Comment protéger tous les classeurs d'un dossier à la fois dans Excel?

Dans Excel, vous pouvez protéger un classeur pour empêcher d'autres utilisateurs de le modifier, mais avez-vous déjà créé une image pour protéger plusieurs classeurs à la fois? Ici, je présente quelques astuces pour protéger tous les classeurs dans un dossier et plusieurs feuilles dans un classeur dans Excel.

Protégez les classeurs dans un dossier à la fois avec VBA

Protégez plusieurs feuilles à la fois avec Kutools for Excel

Protégez les classeurs dans un dossier à la fois avec VBA

Pour protéger les classeurs dans un dossier spécifique, vous pouvez appliquer un code de macro à résoudre.

1. Activez un nouveau classeur et appuyez sur Alt + F11 clés pour ouvrir le Microsoft Visual Basic pour Applications, puis cliquez sur insérer > modulee, et collez le code ci-dessous dans le Module scripts.

VBA: protégez les classeurs dans un dossier.

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. presse F5 clé, et un Sélectionnez un dossier fenêtre apparaît pour vous permettre de sélectionner un dossier pour protéger toutes ses feuilles de calcul.

3. Cliquez OK et une boîte de dialogue apparaît pour entrer le mot de passe pour protéger les classeurs.

4. Cliquez OK, une boîte de dialogue apparaît pour vous rappeler que tous les classeurs du dossier sélectionné ont été protégés avec succès par un mot de passe.

Lorsque vous ouvrez les classeurs que vous avez protégés par le code ci-dessus, une boîte de dialogue apparaît pour saisir le mot de passe. Voir la capture d'écran:

Conseil : Ce code fonctionne pour la version 2007 ou supérieure d'Excel, si vous souhaitez l'appliquer pour protéger la version inférieure, vous pouvez modifier xFile = "* .xls" à xFile = "* .xlsx" dans le code.

Protégez plusieurs feuilles à la fois avec Kutools for Excel

En fait, il sera plus fréquent de protéger plusieurs feuilles dans un classeur dans notre travail quotidien. Mais dans Excel, vous devez protéger les feuilles une par une avec sa fonction intégrée. Cependant, il existe un outil puissant - Kutools for Excel, il est Protéger la feuille de travail L'utilitaire peut vous aider à protéger toutes les feuilles ou les feuilles sélectionnées du classeur à la fois.

Après installation gratuite Kutools for Excel, procédez comme suit:

1. Activez le classeur dont vous souhaitez protéger ses feuilles, puis cliquez sur Kutools Plus > Protéger la feuille de travail > Protéger les feuilles de calcul.

2. dans le Protéger la feuille de travail , vous pouvez vérifier les feuilles que vous souhaitez protéger selon vos besoins dans la liste. Voir la capture d'écran:

3. Cliquez Ok, et une autre boîte de dialogue apparaît pour vous permettre de saisir et de retaper le mot de passe, voir capture d'écran:

4. Cliquez Ok, et une boîte de dialogue apparaît pour vous rappeler de protéger les feuilles de calcul avec succès.