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

Normalmente, puoi proteggere manualmente un foglio di lavoro o l'intera cartella di lavoro con una password utilizzando 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 raggiungere questo obiettivo.

Proteggi tutti i fogli di lavoro alla chiusura della cartella di lavoro Excel con il codice VBA

Proteggi tutti i fogli di lavoro alla chiusura della cartella di lavoro Excel con il codice VBA

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

1. Nella cartella di lavoro in cui desideri proteggere tutti i fogli di lavoro alla chiusura del file, premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, fai doppio clic su ThisWorkbook nel riquadro a sinistra, quindi copia il seguente codice VBA nella finestra del Codice. Vedi 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 Sub

3. Quindi premi i tasti Alt + Q per chiudere la finestra Microsoft Visual Basic for Applications.

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

Note:

Articoli correlati:

• Come utilizzare un elenco a discesa in un foglio di lavoro protetto in Excel?
• Come bloccare celle specifiche senza proteggere l'intero foglio di lavoro in Excel?
• Come nascondere le formule ma visualizzare il risultato senza proteggere il foglio di lavoro in Excel?