Come proteggere automaticamente tutti i fogli di lavoro alla chiusura di una cartella di lavoro Excel?
Di solito puoi proteggere manualmente un foglio di lavoro o l’intera cartella di lavoro con una password usando le funzioni **Proteggi foglio** o **Proteggi cartella di lavoro** in Excel. Ma se vuoi proteggere automaticamente tutti i fogli con una password al momento della chiusura della cartella, come puoi fare? In questo articolo ti mostreremo un metodo VBA per raggiungere proprio questo obiettivo.
Proteggi tutti i fogli di lavoro alla chiusura della Cartella di lavoro Excel con codice VBA
Proteggi tutti i fogli di lavoro alla chiusura della Cartella di lavoro Excel con codice VBA
Per proteggere automaticamente tutti i fogli di lavoro alla chiusura della cartella di lavoro, applica il seguente codice VBA.
1. Nella cartella di lavoro in cui desideri proteggere tutti i fogli alla chiusura del file, premi i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Nella finestra di Microsoft Visual Basic for Applications, fai doppio clic su ThisWorkbook nel riquadro sinistro, quindi copia il seguente codice VBA nella finestra del codice. Guarda lo screenshot:
Codice VBA: Proteggi tutti i fogli di lavoro alla chiusura della 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:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Protect "123"
ActiveWorkbook.Save
End Sub3. Premi quindi i tasti Alt+Q per chiudere la finestra di Microsoft Visual Basic for Applications.
Dopo il passaggio precedente, tutti i fogli di lavoro o il foglio specificato verranno protetti automaticamente alla chiusura della cartella.
Note:
Proteggi rapidamente più/ tutti i fogli di lavoro con una password simultaneamente in Foglio di lavoro corrente |
L'utility Proteggi foglio di lavoro di Kutools per Excel ti permette di proteggere facilmente più fogli o tutti i fogli di lavoro con una password in un’unica operazione. Ecco lo screenshot seguente:
Kutools per Excel– Potenzia Excel con oltre 300 strumenti essenziali, rendendo il tuo lavoro più veloce e semplice, e sfrutta le funzionalità basate sull’IA per un’elaborazione dati più intelligente e una maggiore produttività.Scaricalo ora |
Articoli correlati:
- Come si utilizza un elenco a discesa in un foglio di lavoro protetto di Excel?
- Come bloccare celle specifiche in Excel senza proteggere l’intero foglio di lavoro?
- Come nascondere la formula in Excel mostrando solo il risultato, senza proteggere il foglio di lavoro?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi