Risolto macro per proteggere e sprotegere piu' fogli

[Gennaro]

buongiorno, avendo bisogno di due macro una che mi protegge tutti i fogli del file e logicamente altra che gli sprotegge
in rete ho trovato le macro di cui l'allegato ma mentre mi protegge il foglio quando uso sprotegge esce l'errore mostrato
poichè le mie conoscenza sono sottozero spero che qualcuno mi possa aiutare.
colgo l'occasione per chiedere anche perchè mettendo il cursore a sub sproteggi mi parte invece la macro proteggi e le
due macro non risultano indipendenti come per Excel per cui per far partire sproteggi devo da macro poi sceglierere sproteggi ed esegui

[lucky63]

bisogno di due macro una che mi protegge tutti i fogli del file e logicamente altra che li sprotegge

Codice: Seleziona tutto

Sub ProteggiTuttiFogli
Doc = ThisComponent
NrFogli = Doc.Sheets.Count 'Conteggio parte da 1
For X = 0 to NrFogli-1
Doc.Sheets.GetByIndex(X).Protect("12345")
Next
MsgBox("Protezione fogli attivata", 0 ,"ATTENZIONE")
End sub

Sub SProteggiTuttiFogli
Doc = ThisComponent
NrFogli = Doc.Sheets.Count 'Conteggio parte da 1
For X = 0 to NrFogli-1
Doc.Sheets.GetByIndex(X).UnProtect("12345")
Next
MsgBox("Protezione fogli disattivata", 0 ,"ATTENZIONE")
End sub

[Gennaro]

Grazie lucky53 per la pronta risposta ma inserendo quando mi hai mandato la macro protegge funzione e la sproteggi mi da sempre lo stesso errore
può influire che uso sia opencalc che libre calc portatili su sistema win10?
ti allego lo screenshoot

[Gennaro]

Scusa lucky53 non avevo visto l'allegato ma la tua macro funziona tutta non capisco perchè copiata e incollata e cambiando solo la password mi esce quell'avviso.
purtroppo domani e dopo no posso vedere cosa succede ti faro' sapere se inserita nel mio contesto il tuo allegato funziona
grazie infinite per ora