Protezione di un foglio Excel
Hai un problema con Excel?
Protezione foglio di
apoben64 |
Ho realizzato un modulo su un foglio protetto e in
cui inserisco i dati solo in alcune celle, per caricare nuovi dati
ho creato questa macro : Sub Nuovoinserimento() x =
MsgBox("Vuoi inserire nuovi dati ?", vbYesNo) If x = vbYes Then
Worksheets("modulo").Select
Range("B8,D8,B11,B13,D13,B15,B17,B18,D17,B18,B19,B20,B21,B22").Select
Selection.Clear End If Worksheets("fax").Select
Range("d11") = Date End Sub Il problema stà nel fatto
che la macro non si esegue in quanto il foglio è protetto, ho
provato ad inserire qualche istruzione come
ActiveWorksheets.Unprotect ma non funziona ugualmente qualcuno mi
può aiutare |
|
di Mauro |
Siccome usi + fogli ti conviene associare il metodo
"Protect" o "Unprotect" direttamente al foglio che stai usando. Se
usi Activeworksheet dovrebbe andare bene lo stesso ma è + facile
fare confusione. Quindi: '.... If x = vbYes Then
Worksheets("modulo").Unprotect Worksheets("modulo").Select
'..... Worksheets("modulo").Protect End If
Worksheets("fax").Unprotect Worksheets("fax").Select
'.... Worksheets("fax").Protect |
|
di apoben64 |
Grazie Mauro , ho inserito l'istruzione prima del
"messaggio" e funziona, tra l'altro non ho messo l'istruzione
.Protect in quanto provando il foglio mi rimane ancora protetto.
|
|
|
Vuoi approfondire questo argomento?