Proteger un fichier en laissant macro active

[LAPIN-53]

Bonjour,

J'ai créer un fichier de recherche de consignes. Je souhaiterais le protéger afin que personne ne puisse modifier les consignes. Mon problème est qu'une fois protégé, je ne peux plus effectuer de recherche dans la zone de texte de la macro.
Pouvez-vous m'aider à trouver comment verrouiller mon fichier tout en laissant la main sur le "moteur de recherche".
Merci d'avance.

 

[youky(BJ)]

Bonjour,
C'est assez simple
en début on déprotège et à la fin on reprotège
Private Sub TextBox21_Change()
ActiveSheet.Unprotect
'ta macro
ActiveSheet.Protect
End Sub

si tu mets un MP mets ActiveSheet.Unprotect "tonmotdepasse" entre guillemets
Bruno

 

[Jacky67]

Bonjour à tous
Ceci placé dans le ThisWorkbook protège la feuille avec le mot de passe ==>toto
et exécute les instructions Vba sans se soucier de la protection

Private Sub Workbook_Open()
  Feuil1.Protect "toto", UserInterfaceOnly:=True
End Sub

 

[LAPIN-53]

Bonjour,
C'est assez simple
en début on déprotège et à la fin on reprotège
Private Sub TextBox21_Change()
ActiveSheet.Unprotect
'ta macro
ActiveSheet.Protect
End Sub

si tu mets un MP mets ActiveSheet.Unprotect "tonmotdepasse" entre guillemets
Bruno

Merci, mais s'agissant d'un fichier à mettre à disposition, le mot de passe n'est connu que de moi, donc cette solution ne convient pas.
J'ai eu ma réponse entre temps.
merci quand même

 

[LAPIN-53]

Bonjour à tous
Ceci placé dans le ThisWorkbook protège la feuille avec le mot de passe ==>toto
et exécute les instructions Vba sans se soucier de la protection

Private Sub Workbook_Open()
  Feuil1.Protect "toto", UserInterfaceOnly:=True
End Sub

Merci, c'est exactement ça que je cherchais.