Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
come faccio ad eseguire del codice su di un foglio protetto?
Hai due possibilità. La prima ti consente di proteggere una volta sola il foglio e di consentire poi alle tue macro di scrivere nelle celle protette:
Public Sub m()
Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Foglio1")
With sh
.Protect Pasword:="tuaPassword", UserInterfaceOnly:=True
End With
Set sh = Nothing
End Sub
La seconda toglie di volta in volta la protezione, scrive sulle celle protette e rimette la protezione:
Public Sub m()
Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Foglio1")
With sh
.Protect Pasword:="tuaPassword"
'tuo codice che esegue operazioni
'sul Foglio1
.Unprotect Password:="tuaPassword"
End With
Set sh = Nothing
End Sub
Vedi tu quale preferire. Io normalmente utilizzo la seconda per avere maggior controllo su quanto stanno facendo le mie macro.
--
La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare il codice o la soluzione in files importanti.
--
Mauro Gamberini - Microsoft© MVP(Excel)