Protéger une macro

Bonjour,

j'ai un bouton qui contient une macro assez importante et je ne veux pas qu'elle soit opérationnelle pour les autres mais tout en gardant le bouton.

c.a.d: dès que quelqu'un clique dessus,soit : le bouton est grisé,soit on lui demande un mot de passe.

Merci d'avance pour votre habituelle aide.

Bonne soirée

Bonjour,

Ci-dessous un exemple à adapter.

Postulats :

1 - Username= ton login (pour moi, sur mon PC = Administrateur)

2 - Le classeur comporte un minimum de 2 onglets

3 - Procédure à intégrer à l'onglet qui comporte le cmd à afficher ou pas.

Cdlt.

Private Sub Worksheet_Activate()

    Application.ScreenUpdating = False
    'MsgBox Environ("username")
    If Environ("username") <> "Administrateur" Then
        cmdMacro.Visible = False
    Else
        cmdMacro.Visible = True
    End If
    Application.ScreenUpdating = True

End Sub