Protezione fogli

[nicopanaPartecipante nicopana]

Con Excel 2016, è possibile inserire/rimuovere la protezione su più fogli contemporaneamente? se si come?

 

Perché quando provo a selezionare in basso i fogli che mi interessano, per eseguire l'operazione, mi scompare l'icona "proteggi foglio", devo fare l'operazione singolarmente su tutti i fogli, e siccome sono parecchi porta via molto tempo farla uno ad uno

[nicopanaPartecipante nicopana]

Non sono certo tutti i fogli del file, però sono la maggior parte.

 

Vorrei selezionare quelli di interesse e lanciare un qualche comando

[CianoPartecipante Ciano]

ciao Nico

prova con questo ed adatta alle tue esigenze

Sub Proteggi_Fogli()

Application.Visible = True
Sheets("Foglio1").Protect Password:=psw 'metti password
Sheets("Foglio2").Protect Password:=psw
End Sub


Sheets("Foglio1").Unprotect Password:=psw 'per togliere password

[nicopanaPartecipante nicopana]

 Ma devo creare due moduli separati? Uno con la sub Proteggi_Fogli e l'altra con ad esempio Elimina_protezione_fogli che ha i comandi Unprotect elencati su tutti i fogli?

 

Perché adesso, con i fogli protetti, provo a lanciare la macro Elimina_protezione e mi da un Errore di Runtime 9: Indice non incluso nell'intervallo, provo ad aprire il debug e mi da una selezione sulla riga del primo foglio Sheets....

[CianoPartecipante Ciano]

Ciao Nico,

non serve creare due moduli ben distinti per fa funzionare sia la protezione che annullare la protezione dei fogli ... importante che siano due SUB diverse per proteggere e per eliminare protezione fogli.

A riguardo l'errore di "run time 9" che hai , sembrerebbe legato più che altro a qualche incongruenza di dichiarazione fogli o range.

Ciano

[nicopanaPartecipante nicopana]

ma se creo le due SUB nello stesso modulo, posso comunque lanciarle separatamente?

 

Quando nel testo prima postato c'è scritto "Foglio1", devo sostituire a Foglio1 il nome del foglio?

[CianoPartecipante Ciano]

Pensavo che fosse implicita la cosa,

due sub nello stesso modulo

che ciascuna inizi con "SUB tuo nome()" ... tuo codice ... e finiscano con "End Sub"

le puoi lanciare separatamente ... "Foglio1 .. o 2 ... ect" ... dovrai sostituire con i nomi dei tuoi fogli.  

vedo di farti un esempio più pratico

Sub Proteggi_Fogli()
Application.Visible = True
Sheets("Tuo foglio1").Protect Password:=psw 'metti password
Sheets("Tuo foglio2").Protect Password:=psw
End Sub


!!! per eliminare protezione !!!

Sub SProteggi_Fogli()
Application.Visible = True
Sheets("Tuo foglio1").Unprotect Password:=psw 'metti password
Sheets("Tuo foglio2").Unprotect Password:=psw
End Sub​

[nicopanaPartecipante nicopana]

Fantastico grazie, ora funziona

[Autore]

Articoli