Griser bouton et cellule

Hello, je cherche un petit bout de code qui me permettrais de griser le "Bouton 18" une fois qu'on a appuyer dessus une fois, et par la même occasion "verrouiller" des cellules spécifiques.

Merci d'avance

(Déjà fouillé dans le forum, mais rien trouvé qui marche dans mon cas.)

Bonjour Djulito,

Voici un exemple pour un bouton sur un UserForm

Private Sub CommandButton18_Click()
  ' Rendre le bouton inopérant
  Me.CommandButton18.Enabled = False
  ActiveSheet.Unprotect Password:="Djulito"
  ' Plage à protéger
  With Range("A1:B10")
    .Locked = True
    .FormulaHidden = True
  End With
  ActiveSheet.Protect Password:="Djulito"
End Sub

@+