verouiller un bouton

bonsoir cher vous tous avec vos supers conseils

j'ai sur un feuille plusieurs bouton que j'ai verrouiller pour que certains utilisateurs ne puissent le modifier, ma deuille est également verouillée, comment empêcher l'exécution certains boutons quand la feuille est protégée, mais autoriser d'autres quand la feuille est protégée?

la macro est très simple je voudrais que impr_hor autorise l'impression a tous avec feuille protégée et IMPR_PREST et Ticket_R ne l'autorise que si la feuille est déverouillée

merci

ps pour les pro c'est le début de mes macro


Sub impr_hor()
'
' impr_hor Macro
' Macro enregistrée le 5/08/2006 par caline'

'
Range("A1:AQ93").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AQ$93"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Range("R2").Select
End Sub
Sub Ticket_rest()
'
' Ticket_rest Macro
' Macro enregistrée le 5/08/2006 par caline'

'
ActiveWindow.SmallScroll ToRight:=33
Range("FR1:HD45").Select
ActiveSheet.PageSetup.PrintArea = "$FR$1:$HD$45"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$FR$1:$HD$45"
Range("R2").Select
End Sub
Sub impr_presta()
'
' impr_presta Macro
' Macro enregistrée le 5/08/2006 par caline
'

'
ActiveWindow.SmallScroll ToRight:=-5
Range("DU1:EN45").Select
ActiveSheet.PageSetup.PrintArea = "$DU$1:$EN$45"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Range("R2").Select
End Sub