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 Paolo,

Ti ringrazio per il cortese riscontro e mi fa piacere che hai risolto il tuo problema.

===

Regards,

Norman

Answer 3

Ciao Norman

Ho testato la tua soluzione ed è perfettamente conforme alle mie esigenze, Bravo!.

Ti ringrazio soprattutto perché ho notato che tu, quando rispondi ai quesiti, usi un linguaggio più o meno tecnico a seconda della preparazione che ritieni che il tuo interlocutore possieda.

In Informatica, io è come se avessi la 1^ elementare eppure riesci a farti capire bene, complimenti.

Ciao, Paolo Nigro

(colgo l'occasione per mandare un grande abbraccio ad Andrea Avon che ci guarda da lassù)

Answer 4

Ciao Paolo,

Avrei dovuto spiegere che il parametro UserInterfaceOnly del metodo Protect permette una procedura VBA di operare come se il foglio non fosse protetto. Tuttavia, questa impostazione non è persistente tra le sessioni di Excel. Pertanto, è necessario aggiornare la protezione ogni volta che la cartella di lavoro viene aperta. Questo obiettivo è raggiunto con l'uso della mia versione della procedura Workbook_Open.

===

Regards,

Norman