captaine08

Bonjour, je ne sais pas si tu as eu une réponse depuis, mais si cela n'est pas le cas, je vais tenter de t'apporter un élément de réponse : Pour protéger une feuille avec mot de passe intégré dans ta macrocommande, tu peux utiliser cette routine : Sub proteger() ActiveSheet.Protect password:=Motdepasse End Sub Sub deproteger() ActiveSheet.Unprotect password:=Motdepasse End Sub Dans le cadre où tu posséde plusieur feuille à protéger ... et dans le cadre où tu veux cacher ton mot de passe dans la feuille elle même tu peux faire un truc de ce genre : Sub proteger() Application.ScreenUpdating = False 'cette fonction permet de figer l'écran pour ne pas voir ce qu'il se passe For I = 1 To Sheets.Count ' là tu mets un compteur pour totaliser le nombre total des feuilles du classeur Sheets(I).Activate ' là tu active les feuilles une à une Range("A1").Activate ActiveSheet.Protect password:=Feuil1.Range("A1").Value, UserInterfaceOnly:=True 'là tu protége tes feuilles avec un mot de passe contenu dans la feuil1 en cellule "A1" Next I Feuil6.Activate ' là tu focalise l'activation de la feuille 6 Application.ScreenUpdating = True ' là tu arrêtes le figeage de l'écran End Sub Sub deproteger() Application.ScreenUpdating = False For I = 1 To Sheets.Count Sheets(I).Activate Range("A1").Activate ActiveSheet.Unprotect password:=Feuil1.Range("A1").Value Next I Feuil6.Activate Application.ScreenUpdating = True End Sub Pour protéger une feuille ou classeur par macrocommande et pouvoir faire des actions tout en la laissant portégée, tu peux utiliser : Worksheets("Feuil1").Protect password:=Motdepasse, UserInterfaceOnly:=True UserInterfaceOnly:=True Voilà quelques pistes de recherche... Je ne sais pas si cela t'aidera, mais ce fût avec plaisir !!! Cordialement