Vai al contenuto principale

Come proteggere più fogli di lavoro contemporaneamente in Excel?

Supponendo che tu abbia una cartella di lavoro che contiene più fogli di lavoro e ora devi proteggere tutti i fogli di lavoro o alcuni fogli di lavoro specifici, normalmente in Excel, puoi solo proteggere il foglio uno per uno con la funzione Proteggi foglio, ma questo metodo è noioso e richiede tempo se ci sono numerosi fogli che devono essere protetti. Come si proteggono più fogli contemporaneamente in Excel in modo rapido e semplice?

Proteggi tutti i fogli contemporaneamente con il codice VBA

Proteggi più fogli contemporaneamente con Kutools per Excel

Sproteggi più fogli contemporaneamente con kutools per Excel


freccia blu freccia destra Proteggi tutti i fogli contemporaneamente con il codice VBA

Con il seguente codice VBA, puoi proteggere tutti i fogli della cartella di lavoro attiva contemporaneamente con la stessa password, fai come segue:

1. Tieni premuto il ALT + F11 chiavi e apre il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.

Codice VBA: proteggi tutti i fogli di lavoro in una cartella di lavoro contemporaneamente:

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

3. Quindi premere F5 chiave per eseguire il codice e inserire la password per i fogli protetti nella finestra del prompt, vedere screenshot:

doc-protect-multiple-sheet1-1

4. Clic OK, quindi immettere nuovamente la password per confermare la password.

doc-protect-multiple-sheet2-2

5. Quindi fare clic OKe tutti i fogli sono stati protetti con la stessa password.


freccia blu freccia destra Proteggi più fogli contemporaneamente con Kutools per Excel

A volte, non vuoi proteggere tutti i fogli della tua cartella di lavoro e vuoi solo proteggere alcuni fogli specifici, in questa situazione, il codice sopra non funzionerà. Ma con Kutools for Excel'S Proteggi foglio di lavoro utility, puoi proteggere sia tutti i fogli che fogli specifici in modo rapido e semplice.

Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 60 giorni

Dopo l'installazione Kutools for Excel, si prega di fare come segue:

1. Clic Kutools Plus > Proteggi foglio di lavoro, vedi screenshot:

2. Nel Proteggi foglio di lavoro finestra di dialogo, selezionare i fogli che si desidera proteggere. (Per impostazione predefinita, tutti i fogli di lavoro all'interno della cartella di lavoro corrente sono controllati.) Vedi screenshot:

doc-protect-multiple-sheet4-4

3. E fare clic su OK, quindi digita e conferma la password nella finestra di dialogo Proteggi foglio di lavoro. Vedi screenshot:

doc-protect-multiple-sheet5-5

4. Quindi fare clic OK, i fogli di lavoro selezionati sono stati protetti.

Fare clic su Proteggi foglio di lavoro per saperne di più su questa funzione.


freccia blu freccia destra Sproteggi più fogli contemporaneamente con kutools per Excel

Come puoi rimuovere la protezione da più fogli di lavoro protetti in una cartella di lavoro contemporaneamente? Ovviamente, Kutools for Excel fornisce anche il Rimuovi la protezione del foglio di lavoro utilità per rimuovere immediatamente la protezione.

Si prega di fare con i seguenti passaggi:

1. Apri la tua cartella di lavoro che contiene i fogli di lavoro protetti.

2. Quindi fare clic Kutools Plus > Rimuovi la protezione del foglio di lavoro, vedi screenshot:

3. Nel Rimuovi la protezione del foglio di lavoro finestra di dialogo, i fogli protetti vengono elencati nella casella di riepilogo, quindi fare clic su Ok pulsante, vedi screenshot:

doc-protect-multiple-sheet7-7

4. E poi a Rimuovi la protezione del foglio di lavoro la finestra di dialogo si apre per ricordarti di inserire la password che hai creato per proteggere i fogli di lavoro, vedi screenshot:

doc-protect-multiple-sheet8-8

5. Dopo aver digitato la password, fare clic su Ok, tutti i fogli di lavoro selezionati nella casella di riepilogo non sono stati protetti.

Nota: I fogli di lavoro devono avere la stessa password.

Per saperne di più su questa funzione Unprotect Worksheet.

Scarica e prova gratuitamente Kutools per Excel adesso!


freccia blu freccia destra Demo: proteggi o rimuovi la protezione di tutti i fogli di lavoro contemporaneamente con Kutools per Excel

Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!

Articolo correlato:

Come rimuovere la protezione da più fogli di lavoro contemporaneamente in Excel?

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to use this in a shared workbook but I get a Microsoft Visual Basic error "Run-time error '1004": Application-defined or object-defined error" I am just looking for suggestions on how to get around this. Any help would be appreciated
This comment was minimized by the moderator on the site
Occurs when sheet is already locked
This comment was minimized by the moderator on the site
Thanks for the wonder full tool to protect & unprotect all the sheets at a time. Please guide me I am able to unprotect all sheets in my work book at a time but when I run protect all sheets VBA Code then only first 4 sheets are protected & rest or left unprotected. Please help me to sort out the issue.
This comment was minimized by the moderator on the site
How do I mask the password using the VBA method? I can not find this information via google or F1 help files. Thanks in advance!
This comment was minimized by the moderator on the site
Hi I used this code now I it wont accept my password to get back into my spreadsheet !!
This comment was minimized by the moderator on the site
I have chart tabs and worksheets in my Excel 2013 workbook. The VBA coding above works for the protecting the worksheets but not the separate chart tabs. How do i password protect the multiple chart tabs and multiple worksheets in my workbook? Thanks!
This comment was minimized by the moderator on the site
Hey, I need some help, the above code was very helpful, but it locks the sort (auto filter as well) can you please provide code to solve that problem and also where it would be inserted. Thank you in advance.
This comment was minimized by the moderator on the site
Thank you! This is awesome, I was even able to modify the VBA code so that I could unprotect all sheets at once! :) Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Verify Password") If Not (pass = repass) Then MsgBox "you made a boo boo" GoTo top End If For i = 1 To Worksheets.Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets B4 running this Macro." End Sub
This comment was minimized by the moderator on the site
when i activated this VBA, hyperlink doesn't work. how can i make them work? tnx :)
This comment was minimized by the moderator on the site
I am suddenly having the 1004 error as well. Anyone find a solution?
This comment was minimized by the moderator on the site
I'm suddenly having the error 1004 issue. Have been using the macro for months now it randomly fails.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations