levée de la protection

[tany]

Bonjour à tous,
Ma feuille est protégée mais du coup mon code VBA ne peut fonctionner...
peut on lever cette protection momentanement et la remettre par code VBA ?
Merci et bonne journée.

 

[Bernard_XLD]

Re : levée de la protection

Bonjour

consulte l'aide sur les méthodes protect et unprotect, il y a des exemples.
sinon tu peux protéger avec la méthode protect en utilisant le param UserInterfaceOnly qui protégera l'interface utilisateur tout en laissant l'accés aux macros.


Cordialement

 

[tany]

Re : levée de la protection

Re,

pour dire que, si j'ai bien compris je suis allé dans basic editor
là j'ai saisi ceci :

sub protectsheet()
activesheet.protect userinterfaceonly:=true
end sub

Ceci aurait du me permettre l'action du code VBA sans que
la protection soit levée sur la feuille ? ça ne marche pas !

Qu'ai-je mal fait ? merci.

 

[GPLIONEL]

Re : levée de la protection

Bonsoir Tany,

si ta feuille est protégée mais sans mot de passe :

au début de ta macro :
ActiveSheet.Unprotect

et à la fin de ta macro :
ActiveSheet.Protect

 

[Bernard_XLD]

Re : levée de la protection

Bonjour

ActiveSheet.Protect Password:="abc", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True

cela fonctionne parfaitement
par contre, ta feuille ne doit pas ,être protégée au départ
si elle l'est déprotège la avec unprotect et reprotège avec cette commande

A+