Protezione fogli – Forum Excel VBA

Stai vedendo 8 articoli - dal 1 a 8 (di 8 totali)

Autore

Articoli
26/04/2018 alle 9:05 #3838 Score: 0 | Risposta
nicopana
Partecipante
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
26/04/2018 alle 9:11 #3839 Score: 0 | Risposta
nicopana
Partecipante
nicopana
Non sono certo tutti i fogli del file, però sono la maggior parte.

Vorrei selezionare quelli di interesse e lanciare un qualche comando
26/04/2018 alle 15:20 #3856 Score: 0 | Risposta
Ciano
Partecipante
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
```
02/05/2018 alle 7:30 #4057 Score: 0 | Risposta
nicopana
Partecipante
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....
02/05/2018 alle 8:55 #4059 Score: 0 | Risposta
Ciano
Partecipante
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
02/05/2018 alle 8:59 #4060 Score: 0 | Risposta
nicopana
Partecipante
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?
02/05/2018 alle 9:58 #4061 Score: 0 | Risposta
Ciano
Partecipante
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
```
02/05/2018 alle 13:16 #4070 Score: 0 | Risposta
nicopana
Partecipante
nicopana
Fantastico grazie, ora funziona
Autore

Articoli

Stai vedendo 8 articoli - dal 1 a 8 (di 8 totali)