Comment protéger tous les classeurs d'un dossier en une seule 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à imaginé pouvoir protéger plusieurs classeurs en même temps ? Voici quelques astuces pour protéger tous les classeurs d'un dossier ainsi que plusieurs feuilles dans un classeur sous Excel.

Protégez les classeurs d'un dossier en une seule fois avec VBA

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

Protégez les classeurs d'un dossier en une seule fois avec VBA

Pour protéger les classeurs d'un dossier spécifique, vous pouvez appliquer un code macro pour résoudre ce problème.

1. Ouvrez un nouveau classeur, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications, et cliquez sur Insérer > Module, puis collez le code ci-dessous dans le script du Module.

VBA : Protéger les classeurs d'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. Appuyez sur F5 , et une Sélectionner un dossier fenêtre apparaît pour vous permettre de sélectionner un dossier afin de protéger toutes ses feuilles de calcul.

3. Cliquez sur OK et une boîte de dialogue apparaît pour saisir un mot de passe afin de protéger les classeurs.

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

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

Astuce : Ce code fonctionne pour Excel 2007 ou version ultérieure. Si vous souhaitez l'appliquer pour protéger des versions antérieures, vous pouvez changer xFile = "*.xls" en xFile = "*.xlsx" dans le code.

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

En réalité, il est plus fréquent de devoir protéger plusieurs feuilles dans un classeur lors de notre travail quotidien. Mais dans Excel, vous devez protéger les feuilles une par une avec sa fonction intégrée. Toutefois, il existe un outil puissant – Kutools pour Excel, dont l'utilitaire Protéger la feuille de calcul peut vous aider à protéger toutes les feuilles ou les feuilles sélectionnées du classeur en une seule fois.

Après avoir installé gratuitement Kutools pour Excel, veuillez procéder comme suit :

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

2. Dans la Protéger la feuille de calcul boîte de dialogue, vous pouvez cocher les feuilles que vous souhaitez protéger selon vos besoins dans la liste. Voir capture d'écran :

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

4. Cliquez sur Ok, et une boîte de dialogue apparaît pour vous informer que les feuilles de calcul ont été protégées avec succès.