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

Incroyable! Utilisation d'onglets efficaces dans Excel comme Chrome, Firefox et Safari!

Économisez 50% de votre temps et réduisez chaque jour des milliers de clics de souris!

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 pour 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 Entreprise > Protéger la feuille de travail. Voir la capture d'écran:

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.

Pour déprotéger ces feuilles, il vous suffit de cliquer sur Entreprise > Déprotéger la feuille de travail pour saisir le mot de passe pour déprotéger.

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

• Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
• Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
• Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
• Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
• Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
• Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
• Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
• Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
• Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Lire la suite... Téléchargement Gratuit... Achat... 

---

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

• Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!

Lire la suite... Téléchargement Gratuit... Achat...