Mahesh a un certain nombre de classeurs Excel, tous stockés dans le même dossier.

Il se demande s’il est possible d’attribuer un mot de passe à l’ensemble du dossier afin que tous les classeurs soient protégés.

La réponse courte est non, vous ne pouvez pas faire cela dans Excel. Il existe cependant un certain nombre de techniques différentes que vous pouvez appliquer et qui fourniront le résultat souhaité. La première méthode consiste à utiliser un programme tel que WinZip pour combiner tous les classeurs dans un seul fichier zip. Ce fichier peut être protégé par mot de passe (dans WinZip) afin que tout le monde ne puisse pas l’ouvrir. Vous pouvez ensuite ouvrir le fichier zip (en utilisant votre mot de passe) et double-cliquer sur n’importe quel classeur afin de le modifier avec Excel. Le résultat, à toutes fins utiles, est que vous avez un «dossier» (le fichier zip) qui est protégé, alors que les fichiers individuels qu’il contient ne le sont pas.

Une autre approche consiste à placer le dossier du classeur sur un lecteur réseau, puis à demander à l’administrateur réseau de protéger le dossier. La plupart des systèmes d’exploitation réseau permettent aux administrateurs de contrôler qui peut avoir accès à des dossiers spécifiques et à leur contenu.

Une troisième approche consiste à utiliser un programme tiers pour protéger le dossier.

Une recherche rapide sur le Web permettra sans aucun doute de trouver plusieurs candidats, comme les suivants:

http://www.folder-password-expert.com

Vous pouvez également utiliser une macro Excel pour protéger les classeurs. Bien qu’il n’offre pas une véritable protection au niveau du dossier, il vous permet de protéger tous les classeurs du dossier de la manière la plus simple possible.

Sub ProtectAll()

Dim wBk As Workbook     Dim sFileSpec As String     Dim sPathSpec As String     Dim sFoundFile As String

sPathSpec = "C:\MyPath\"

sFileSpec = "*.xls"



sFoundFile = Dir(sPathSpec & sFileSpec)

Do While sFoundFile <> ""

Set wBk = Workbooks.Open(sPathSpec & sFoundFile)

With wBk             Application.DisplayAlerts = False             wBk.SaveAs FileName:=.FullName, _               Password:="swordfish"

Application.DisplayAlerts = True         End With         Set wBk = Nothing         Workbooks(sFoundFile).Close False         sFoundFile = Dir     Loop End Sub

Assurez-vous de modifier les variables sPathSpec et sFileSpec, vers le début du code, pour refléter le dossier contenant les classeurs et le modèle des noms des classeurs que vous souhaitez protéger. La macro suppose que tous les classeurs ne sont pas protégés; le cas échéant, la macro demandera le mot de passe du classeur.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2878) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Protecting_an_Entire_Folder_of_Workbooks [Protéger un dossier entier de classeurs].