Come proteggere automaticamente tutti i fogli di lavoro quando si chiude la cartella di lavoro di Excel?

Normalmente, puoi proteggere manualmente un foglio di lavoro o l'intera cartella di lavoro tramite password con la funzione Proteggi foglio o Proteggi cartella di lavoro in Excel. Ma se vuoi proteggere automaticamente tutti i fogli di lavoro con una password alla chiusura della cartella di lavoro, cosa puoi fare? Questo articolo ti mostrerà un metodo VBA per ottenerlo.

Proteggi tutti i fogli di lavoro quando si chiude la cartella di lavoro di Excel con codice VBA

Proteggi tutti i fogli di lavoro quando si chiude la cartella di lavoro di Excel con codice VBA

Sorprendente! Utilizzo di schede efficienti in Excel come Chrome, Firefox e Safari!

Risparmia il 50% del tuo tempo e riduci migliaia di clic del mouse ogni giorno!

Per proteggere automaticamente tutti i fogli di lavoro quando si chiude la cartella di lavoro, applicare il seguente codice VBA.

1. Nella cartella di lavoro che si desidera proteggere tutti i fogli di lavoro quando si chiude il file, premere il tasto altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic su ThisWorkbook nel riquadro di sinistra, quindi copia sotto il codice VBA nella finestra del codice. Vedi screenshot:

Codice VBA: protegge tutti i fogli di lavoro quando si chiude la cartella di lavoro

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
    Dim xSheet As Worksheet
    Dim xPsw As String
    xPsw = ""
    For Each xSheet In Worksheets
        xSheet.Protect xPsw
    Next
End Sub

Suggerimenti:

1) Nel codice, specifica la tua password nella riga xPsw = “”.

2) Se vuoi solo proteggere automaticamente un foglio di lavoro specificato quando chiudi la cartella di lavoro, il codice VBA sottostante può aiutarti.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3. Quindi premere il pulsante altro + Q tasti per chiudere la finestra di Microsoft Visual Basic, Applications Edition.

Dopo il passaggio precedente, tutti i fogli di lavoro o il foglio di lavoro specificato verranno protetti automaticamente alla chiusura della cartella di lavoro.

Note:

1. È necessario salvare la cartella di lavoro come formato di file Cartella di lavoro con attivazione macro di Excel.

2. Vai al foglio di lavoro specifico, fai clic su Revisione > Rimuovi protezione foglio. Quindi digita la password che hai specificato nel codice VBA per rimuovere la protezione da questo foglio di lavoro.

I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
Super Formula Bar (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.

Leggi di più... Download gratuito... Acquista...

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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 centinaia di clic del mouse ogni giorno!