Proteger un fichier en laissant macro active

youky(BJ) à dit:

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

Cliquez pour agrandir...

Jacky67 à dit:

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

VB:

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

Cliquez pour agrandir...