Errore di Run time 1004

Question

Buongiorno a tutti voi

Sapreste suggerirmi cosa fare per una segnalazione di errore di run time 1004**?**

In particolare, in un foglio excel ho creato una macro che azionandola tramite un pulsante fa sì che nella cella C1 appare la scritta: Dott. Emilio, si qui tutto funzionante **** con il problema però che****subito dopo  appare una finestra segnalante errore di run time 1004 “impossibile impostare la proprietà NAME per la classe FONT”.

Qualcuno sa suggerirmi se c’è possibilità di risolvere quest’errore di run time**?**

Riporto la macro con segnalazione in grassetto dell’errore riportato dalla macro:

Sub Dott_Emilio()

'

' Dott_Emilio Macro

'

'

Range("C1:I1").Select

ActiveCell.FormulaR1C1 = "Dott. Emilio"

With ActiveCell.Characters(Start:=1, Length:=12).Font

.Name = "Arial"

.FontStyle = "Grassetto"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

 .ThemeFont = xlThemeFontNone

End With

Range("C2:I2").Select

End Sub

Ringrazio, Saluti

Answer 1

Ciao Paolo,

Preciso che - come dici tu - l'errore di Run Time lo dà solo quando vi è inserita la protezione.

Detto ciò ti invio un piccolo esemplare di file in cui si riscontra il problema del Run Time.

Io nella copia mia originale il tuo suggerimento l'ho provato ma non risolvo il problema; evidentemente sbaglio qualcosa.

Ti chiedo se tu puoi provare il tuo suggerimento nel mio file che troverai in OneDrive, inserendolo nel file il tuo suggerimento, così mi accorgerò dove ho sbagliato 

 https://onedrive.live.com/?cid=A35E0B80441FC6B5&id=A35E0B80441FC6B5%21125

Ho scaricato il tuo file.

Nel modulo ThisWorkbook ho incollato il seguente codice:

'=========>>

Option Explicit

'--------->>

Private Sub Workbook_Open()

    Dim SH As Worksheet

    Const mySheet As String = "Foglio1"

    Set SH = Me.Sheets(mySheet)

    SH.Protect Password:=PWord, DrawingObjects:=True, UserInterfaceOnly:=True

End Sub

'<<=========

Nel modulo Modulo1, alla testa del modulo, ho incollato:

'=========>>

Option Explicit

Public Const PWord As String = "PaoloNigro"                      '<<==== Modifica

Ho salvato e chiuso il file. Riaprendo il file, il Foglio1 viene proteggiato con la password PaoloNigro e tutti i pulsanti funzionano senza alcun problema, come se il foglio non  fosse protetto.

Ho caricato il file PaoloNigro20150322.xlsm a: http://1drv.ms/1xOgji0

===

Regards,

Norman

Answer 2

Ciao Norman

Preciso che - come dici tu - l'errore di Run Time lo dà solo quando vi è inserita la protezione.

Detto ciò ti invio un piccolo esemplare di file in cui si riscontra il problema del Run Time.

Io nella copia mia originale il tuo suggerimento l'ho provato ma non risolvo il problema; evidentemente sbaglio qualcosa.

Ti chiedo se tu puoi provare il tuo suggerimento nel mio file che troverai in OneDrive, inserendolo nel file il tuo suggerimento, così mi accorgerò dove ho sbagliato 

 https://onedrive.live.com/?cid=A35E0B80441FC6B5&id=A35E0B80441FC6B5%21125

Saluti Paolo

Answer 3

Ciao Paolo,

Ma hai provato il mio suggerimento?

Mi aspetterai di incontrare l'errore che hai indicato se il foglio di interesse fosse protetto - anche se le celle di interesse non fossero bloccate.

Tuttavia, se il mio suggerimento non risolve il problema, vorrei chiederti di caricare il file problematico su un sevizio di condivisione, ad esempio Onedrive o  DropBox, indicando un modo per riprodurre l'errore. Prima di caricare il file, modifica / nascondi i dati sensibili e posta il link al file in una risposta

===

Regards,

Norman

Answer 4

Ciao Normann

Sicuramente mi sarò spiegato in maniera poco comprensibile; ci riprovo nuovamente!.

Ho esigenza di trascrivere nella Cella C1 del Foglio 1 un Cognome da scegliere di volta in volta da un elenco il cui totale è di cinque Cognomi.

Per omettere la trascrizione manuale del  Cognome prescelto e, quindi,  per velocizzare la trascrizione dello stesso, ho creato 5 macro e 5 pulsanti (create automaticamente dal menu “Visualizza-Macro-Registra macro…”), e assegnando poi i cinque pulsanti alle rispettive macro, ho fatto si che ognuno dei pulsanti eseguisse la macro relativa ad un Cognome con corretta trascrizione automatica del prescelto Cognome nella cella C1.

Cliccando per esempio sul pulsante addetto alla trascrizione del Cognome “Pluto”, esso adempie correttamente alla trascrizione nella Cella C1 del Cognome "Pluto", ma, contemporaneamente, appare una finestra di errore di run time 1004 con la relativa comunicazione: impossibile impostare la proprietà NAME per la classe FONT

---

Io oltre non so andare, se c’è possibilità di far funzionare questa esigenza sopra spiegata te ne sarò grato.

Eventualmente, a dopo, Paolo

Answer 5

Ciao Paolo,

Prova qualcosa del genere:

'=========>>

Public Sub Tester()

    ActiveSheet.Unprotect Password:="Pippo"                      '<==== Modifica

     '\ Tuo codice 

    ActiveSheet.Protect Password:="Pip po"                          '<==== Modifica

End Sub

'<<=========

===

Regards,

Norman