Beug sur cette macro

Bonjour

J'ai cette macro affectée à un bouton ,qui fonctionne bien, le hic est que si j'appuie une 2ème fois sur le bouton par accident ça beug

Je vois pas où est mon erreur.

Je vous remercie pour votre aide

Sub valider()

' valider Macro

Range("A3:G10").Select

Selection.Locked = True 'le beug est sur cette ligne

Selection.FormulaHidden = True

ActiveSheet.Protect "0000"

End Sub

Bonjour,

après la première exécution de la macro ta feuille est protégée par un mot de passe. Tu ne peux donc plus modifier son contenu sans la déprotéger, ce que tu essaies de faire en exécutant une nouvelle fois la macro. (mettre on error resume next ou tester si la feuille est protégée, ou déprotéger la feuille, ....)

Bonjour h2so4

Merci pour ton aide

Par contre mes facultés en matière de vba étant limitées peux tu me modifier mon code

je ne sais pas où et comment placer ce que tu me dis.

C'est bon j'ai trouvé je l'ai mis en début de macro

Bonne journée