1 bouton - 2 macros

Pierrot93

XLDnaute Barbatruc

• 1 Juin 2010

• #2

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 :

Code:

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
@+

 

Vote positif 0 Vote négatif

C

croustet40

Guest

• 2 Juin 2010

• #3

Re : 1 bouton - 2 macros

merci du conseil. Bonne journée

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 2 Juin 2010

• #4

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 :

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Juin 2010

• #5

Re : 1 bouton - 2 macros

Re,

Une autre version comme Tibo

Cliquez pour agrandir...

vois pas Tibo....

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 2 Juin 2010

• #6

Re : 1 bouton - 2 macros

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

 

Vote positif 0 Vote négatif