Come proteggere tutti i workbook in una cartella contemporaneamente in Excel?

In Excel, puoi proteggere un workbook per impedire ad altri utenti di modificarlo, ma hai mai pensato di proteggere più workbook contemporaneamente? Qui ti presento alcuni trucchi per proteggere tutti i workbook in una cartella e più fogli di lavoro in un workbook in Excel.

Proteggi i workbook in una cartella contemporaneamente con VBA

Proteggi più fogli contemporaneamente con Kutools per Excel

Proteggi i workbook in una cartella contemporaneamente con VBA

Per proteggere i workbook in una cartella specifica, puoi applicare un codice macro per risolvere.

1. Apri un nuovo workbook e premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications, quindi fai clic su Inserisci > Modulo e incolla il seguente codice nello script del Modulo.

VBA: Proteggi i workbook in una cartella.

Sub ProtectAll()
    Dim xWorkBooks As Workbook
    Dim xExitFile As String
    Dim xPassWord As Variant
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then
        Exit Sub
    Else
        xStrPath = xStrPath + "\"
    End If
    xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
    If (xPassWord = False) Or (xPassWord = "") Then
        MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xFile = "*.xls"
    xExitFile = Dir(xStrPath & xFile)
    On Error Resume Next
    Application.ScreenUpdating = False
    Do While xExitFile <> ""
        Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
        Application.DisplayAlerts = False
        xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
        Application.DisplayAlerts = True
        Workbooks(xExitFile).Close False
        Set xWorkBooks = Nothing
        xExitFile = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub

2. Premi F5 tasto, e una Seleziona una cartella finestra si aprirà per permetterti di selezionare una cartella per proteggere tutti i suoi fogli di lavoro.

3. Clicca OK e una finestra di dialogo si aprirà per inserire la password per proteggere i workbook.

4. Clicca OK, una finestra di dialogo si aprirà per avvisarti che tutti i workbook nella cartella selezionata sono stati protetti con successo con una password.

Quando apri i workbook protetti tramite il codice sopra, una finestra di dialogo si aprirà per inserire la password. Vedi screenshot:

Suggerimento: Questo codice funziona per la versione Excel 2007 o superiore; se vuoi applicarlo per proteggere le versioni inferiori, puoi cambiare xFile = "*.xls" in xFile = "*.xlsx" nel codice.

Proteggi più fogli contemporaneamente con Kutools per Excel

In realtà, sarà più frequente dover proteggere più fogli di lavoro in un workbook durante il nostro lavoro quotidiano. Ma in Excel, devi proteggere i fogli uno per uno con la sua funzione incorporata. Tuttavia, esiste uno strumento potente – Kutools per Excel, la cui utilità Proteggi Foglio può aiutarti a proteggere tutti i fogli o i fogli selezionati del workbook contemporaneamente.

Dopo aver installato gratuitamente Kutools per Excel, procedi come segue:

1. Abilita il workbook che desideri proteggere nei suoi fogli, e clicca su Kutools Plus > Proteggi Foglio > Proteggi Fogli di Lavoro.

2. Nel Proteggi Foglio dialogo, puoi selezionare i fogli che desideri proteggere secondo necessità dall'elenco. Vedi screenshot:

3. Clicca Ok, e un'altra finestra di dialogo si aprirà per inserire e reinserire la password, vedi screenshot:

4. Clicca Ok, e una finestra di dialogo si aprirà per avvisarti della protezione riuscita dei fogli di lavoro.