Salut le forum,
Après avoir travailler d'arrache pied pour concevoir un super classeur avec l'aide de Tototiti, qui fonctionne à la perfection. Je souhaiterai protéger ce travail (codes, formules, feuilles cachées etc...) par un mot de passe.
J'ai essayé ce code :
et j'ai protégé tout le Workbook via l'onglet "review".
Si la protection fonctionne pour ma feuille "Accueil", bien qu'en arrière plan apparaît le résultat de ma recherche, les deux autres boutons "reset carte" et "update carte" montre des erreurs : La feuille "carte" étant elle aussi protéger
Je joint une copie du classeur trop lourd pour être en fichier joint ici
Document Cjoint
D'avance merci pour toute solution trouvé à ce p'tit problème
Après avoir travailler d'arrache pied pour concevoir un super classeur avec l'aide de Tototiti, qui fonctionne à la perfection. Je souhaiterai protéger ce travail (codes, formules, feuilles cachées etc...) par un mot de passe.
J'ai essayé ce code :
Code:
Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect "toto", contents:=True, userinterfaceonly:=True
Next ws
End Subet j'ai protégé tout le Workbook via l'onglet "review".
Si la protection fonctionne pour ma feuille "Accueil", bien qu'en arrière plan apparaît le résultat de ma recherche, les deux autres boutons "reset carte" et "update carte" montre des erreurs : La feuille "carte" étant elle aussi protéger
Je joint une copie du classeur trop lourd pour être en fichier joint ici
Document Cjoint
D'avance merci pour toute solution trouvé à ce p'tit problème