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.
| 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:
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.
Meilleurs outils de productivité bureautique
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...
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!
