pb de déprotection d'une feuiile en vba

[philmaure]

bonjour,

sur un fichier j'ai une feuille protégé par un mot de passe

A partir d'un autre fichier, je cherche par macro à supprimer des données de la feuille protégé mais la macro s'arrête et je ne parviens pas à résoudre le pb. Le code est :

ChDir "H:\"
Workbooks.Open Filename:="H:\toto.xlsm"
ActiveWorkbook.Sheets("enregistrement").Select
ActiveSheet.Unprotect ("cerise")
Range("A2:I100").Select
Selection.ClearContents <=======c'est a cet endroit que stoppe la macro car la feuille est protégée

Merci pour votre aide
Cdlt
Philippe

 

[camarchepas]

Re : pb de déprotection d'une feuiile en vba

Bonsoir ,

Je pense que le problème vient peut être d'une macro du fichierouvert ,

il faudrait donc désactiver les événementiels entre autre thisworkbook.open

avec l'instruction application.EnableEvents =false juste avant l'ouverture , puis

il faudra les réactiver par application.EnableEvants =true juste aprés le close du même fichier par exemple

 

[philmaure]

Re : pb de déprotection d'une feuiile en vba

bonjour merci pour la réponse.
Le fichier ouvert n'a pas de macro dans thisworkbook et ne lance pas de macro à l'ouverture du fichier
Cdlt
Philippe

 

[camarchepas]

Re : pb de déprotection d'une feuiile en vba

Re ,

comme ceci cela fonctionne , surtout avec le fichier que tu ne fournis pas

ChDir "H:\"
Workbooks.Open Filename:="H:\toto.xlsm"
ActiveWorkbook.Sheets("enregistrement").Select
ActiveSheet.Unprotect Password:="cerise"
Range("A2:I100").Select
Selection.ClearContents

 

[philmaure]

Re : pb de déprotection d'une feuiile en vba

re,

merci pour la solution. tout est ok
bonne soirée
cdlt
Philippe