Passer au contenu principal

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 bonne idée3

flèche bleue bulle droite 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

 

doc protéger tous les classeurs un dossier 1

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.
doc protéger tous les classeurs un dossier 2

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

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.
doc protéger tous les classeurs un dossier 4

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:
doc protéger tous les classeurs un dossier 5

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.


flèche bleue bulle droite 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.

Kutools for Excel, avec plus de 120 fonctions Excel pratiques, améliorez votre efficacité de travail et économisez votre temps de travail.

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:
doc protéger tous les classeurs un dossier 6

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:
doc protéger tous les classeurs un dossier 7

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:
doc protéger tous les classeurs un dossier 8

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

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.
doc protéger tous les classeurs un dossier 10

téléchargement doc 1

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement 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!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I did all the steps and there was dialogue box saying it's successful but when I open the files, they are opening up without any password.
This comment was minimized by the moderator on the site
Hello, I have tried it here and it works. Please check whether the file extension in your code is correct?
This comment was minimized by the moderator on the site
am using a mac, and when i click on the F5 key it does not work for me, please how can I resolve it?
This comment was minimized by the moderator on the site
Hi, you can try option - F8 keys. But I only tested this VBA in Microsoft system, I do not know if it work in Mac.
This comment was minimized by the moderator on the site
Brilliant. Saves me nearly an hour every month. Thank you.
This comment was minimized by the moderator on the site
can you do the same code but for unprotecting? with option to browse for the folder
This comment was minimized by the moderator on the site
I'm getting a syntax error for the following: <span style="background-color...
This comment was minimized by the moderator on the site
Did you fix this ? How?
This comment was minimized by the moderator on the site
only remove them
This comment was minimized by the moderator on the site
workbook protect ...great program.... very helpful
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations