Proteggere un foglio |
|
|
Storico discussioni |
|
| 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.
|
|
| |