Note: The other languages of the website are Google-translated. Back to English

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

Onglet Office Activez la modification et la navigation par onglets dans Office et simplifiez considérablement votre travail ...
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
  • Réutiliser n'importe quoi: Ajoutez les formules, les graphiques et tout autre élément les plus utilisés ou les plus complexes à vos favoris et réutilisez-les rapidement à l'avenir.
  • Plus de 20 fonctionnalités de texte: Extraire le numéro de la chaîne de texte; Extraire ou supprimer une partie des textes; Convertissez les nombres et les devises en mots anglais.
  • Outils de fusion: Plusieurs classeurs et feuilles en un seul; Fusionner plusieurs cellules / lignes / colonnes sans perdre de données; Fusionner les lignes en double et la somme.
  • Outils de fractionnement: Diviser les données en plusieurs feuilles en fonction de la valeur; Un classeur vers plusieurs fichiers Excel, PDF ou CSV; Une colonne à plusieurs colonnes.
  • Coller sauter Lignes cachées / filtrées; Compte et somme par couleur d'arrière-plan; Envoyez des e-mails personnalisés à plusieurs destinataires en masse.
  • Super filtre: Créez des schémas de filtres avancés et appliquez-les à toutes les feuilles; Sort par semaine, jour, fréquence et plus encore; Filtre par gras, formules, commentaire ...
  • Plus de 300 fonctionnalités puissantes; Fonctionne avec Office 2007-2019 et 365; Prend en charge toutes les langues; Déploiement facile dans votre entreprise ou organisation.

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 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.

Kutools pour 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


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.
onglet kte 201905

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!
bas de cabine
Commentaires (6)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
classeur protéger ... excellent programme .... très utile
Ce commentaire a été minimisé par le modérateur sur le site
J'obtiens une erreur de syntaxe pour les éléments suivants :
Ce commentaire a été minimisé par le modérateur sur le site
Avez-vous corrigé cela ? Comment?
Ce commentaire a été minimisé par le modérateur sur le site
supprimez-les seulement
Ce commentaire a été minimisé par le modérateur sur le site
pouvez-vous faire le même code mais pour déprotéger? avec possibilité de parcourir le dossier
Ce commentaire a été minimisé par le modérateur sur le site
Génial. Me fait gagner près d'une heure chaque mois. Merci.
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés