1 bouton - 2 macros

[croustet40]

Bonjour,

Je souhairais créer une macro qui me permettrait par un click gauche de verrouiller la feuille active et par un click droit (ou double click) de la déverrouiller. Débutant dans le VBA je suis un peu perdu.

Merci de votre aide.

 

[Pierrot93]

Re : 1 bouton - 2 macros

Bonjour,

regarde les codes ci-dessous, à placer dans le module de la feuille où se trouve le bouton, "CommandButton" de la boite à outils controles :

Option Explicit
Private Sub CommandButton1_Click()
Feuil1.Protect
End Sub
Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Feuil1.Unprotect
End Sub

bon après midi
@+

 

[croustet40]

Re : 1 bouton - 2 macros

merci du conseil. Bonne journée

 

[Efgé]

Re : 1 bouton - 2 macros

Bonjour croustet40, Pierrot93
Une autre version comme Tibo à placer dans le module de la feuille où se trouve le bouton, "CommandButton" de la boite à outils controles :

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Protéger" Then
    CommandButton1.Caption = "Déprotéger"
    Feuil1.Protect
Else
    CommandButton1.Caption = "Protéger"
    Feuil1.Unprotect
End If
End Sub

Cordialement

 

[Pierrot93]

Re : 1 bouton - 2 macros

Re,

Une autre version comme Tibo

vois pas Tibo....

 

[Efgé]

Re : 1 bouton - 2 macros

Re
Je voulais écrire : Une autre version comme Pierrot, bien sur 😱 😱 .
Vraiment désolé...
Cordialement