Comment protéger simultanément tous les classeurs d’un dossier dans Excel ?
Dans Excel, vous pouvez protéger un classeur pour empêcher d’autres utilisateurs de le modifier, mais avez-vous déjà envisagé de protéger plusieurs classeurs en même temps ? Découvrez ici quelques astuces efficaces pour sécuriser tous les classeurs d’un dossier, ainsi que plusieurs feuilles au sein d’un même classeur.
Protéger des classeurs d’un dossier en une seule fois avec VBA
Protéger plusieurs feuilles à la fois avec Kutools pour Excel
Protéger des classeurs d’un dossier en une seule fois avec VBA
Pour protéger les classeurs d’un dossier spécifique, vous pouvez utiliser une macro dédiée répondant précisément à ce besoin.
1. Activez un nouveau classeur, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module, puis collez le code ci-dessous dans le Module.
VBA : Protégez 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 la touche F5 : une fenêtre Sélectionner un dossier s’ouvre, vous permettant de choisir un dossier dont toutes les feuilles de calcul seront protégées.
3. Cliquez sur OK, et une boîte de dialogue s’ouvre pour saisir le mot de passe destiné à protéger les classeurs.
4. Cliquez sur OK, et une boîte de dialogue s’affiche pour vous informer que tous les classeurs du dossier sélectionné ont été protégés avec succès à l’aide d’un même mot de passe.
Lorsque vous ouvrez des classeurs protégés à l’aide du code ci-dessus, une boîte de dialogue s’affiche pour vous demander le mot de passe. Voir la capture d’écran :
Astuce : Ce code fonctionne avec Excel 2007 ou une version ultérieure. Si vous souhaitez l’appliquer à une version antérieure, remplacez simplement xFile = «*.xls» par xFile = «*.xlsx» dans le code.
Protéger plusieurs feuilles à la fois avec Kutools pour Excel
En réalité, il est bien plus courant dans notre travail quotidien de devoir protéger plusieurs feuilles d’un même classeur. Pourtant, Excel ne permet de le faire qu’une feuille à la fois via sa fonction intégrée. Heureusement, un outil puissant –Kutools pour Excel– propose une fonctionnalité Protéger la feuille de calcul qui vous permet de protéger simultanément toutes les feuilles ou les feuilles sélectionnées du classeur.
Après avoir installé gratuitementKutools pour Excel, procédez comme suit :
1. Ouvrez 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 boîte de dialogue Protéger la feuille de calcul, cochez les feuilles que vous souhaitez protéger selon vos besoins dans la liste. Voir la capture d’écran :
3. Cliquez sur Ok, et une autre boîte de dialogue s’ouvre pour vous permettre de saisir, puis de confirmer, votre mot de passe. Voir la capture d’écran :
4. Cliquez sur Ok, et une boîte de dialogue s’affiche pour vous confirmer que l’opération « Protéger les feuilles de calcul » a réussi.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre 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 rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels