macro pour oter et remettre la protection après utilisation bouton de commande

[eric95]

bonjour,

je souhaite mettre en place une macro qui me permettra d'utiliser des boutons du classeur malgré la protection des feuilles et du classeur.
En clair, la macro devra enlever la protection dès que clic sur un des boutons de commande et remettre la protection à l'issue de la commande d'un bouton.
En pièce jointe une feuille du classeur. Bien entend le classeur sera composé de plusieurs feuilles.

Merci

 

[Paritec]

Re : macro pour oter et remettre la protection après utilisation bouton de commande

Bonsoir eric 95 le forum
a+
Papou

sub CommandButton1_click()
activesheet.unprotect ' ou nom de ta feuille  ex. sheets("Liste").unprotect
'ta macro
activesheet.protect
end sub

 

[eric95]

Re : macro pour oter et remettre la protection après utilisation bouton de commande

Bonsoir Papou,

merci pour ta réponse rapide. par contre, j'ai peut etre omis de te dire que j'allais également mettre un mot de passe : "test" dans cet exemple.
cela change t'il le code ?

merci

eric

 

[Paritec]

Re : macro pour oter et remettre la protection après utilisation bouton de commande

re Eric95 le forum
bah oui si tu mets un mot de passe il faut le dire on ne peut pas deviner !!!
a+
papou

Sub CommandButton1_click()
  Feuil1.unprotect Password:="Test"
  'ta macro
  Feuil1.protect Password:="Test"
 End sub

 

[Pierrot93]

Re : macro pour oter et remettre la protection après utilisation bouton de commande

Bonjour Eric, Papou

A noter également, lorsque la protection est effectuée par le code en utilisant l'argument "userinterfaceonly", plus besoin de déprotéger / protéger la feuille pour exécuter un code. Ci dessous exemple à placer dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
Sheets("NomFeuille").Protect "toto", userinterfaceonly:= True
End Sub

bonne journée
@+

 

[Paritec]

Re : macro pour oter et remettre la protection après utilisation bouton de commande

Bonjour Pierrot le forum eric
oui c'est vrai je n'y pense jamais à userinterface
merci donc de cette précision pour Eric
a+
Papou