verouiller un bouton

[caline]

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

 

[lesarthois]

Re : verouiller un bouton

bonsoir caline 🙄

un petit fichier qui peut t'aider
bone nuit
@+

 

[lesarthois]

Re : verouiller un bouton

oups le fichier

 

[lesarthois]

Re : verouiller un bouton

GRrrrrrr😡
m'enfin le voilci !

 

[caline]

Re : verouiller un bouton

merci mais comment adapter cela a ma demande
je joint le fichier avec ce que je souhaiterais

merci à tous

 

[lesarthois]

Re : verouiller un bouton

bonjour caline
petites révision pour satisfaire a tes besoins
pour plus de détail me demander
@+

 

[caline]

Re : verouiller un bouton

ok merci j'ai compris le principe ..... enfin je crois
mais où dois-je ajouter ce que je voudrais que le bouton fasse?
dans quel partie de la macro que tu as fait?

merci a plus

 

[caline]

Re : verouiller un bouton

Soory

j'ai oublié de rajouter que j'ai le message
erreur d'éxécution 1004
impossible de définir la propriété locked de la classe OLEobject

que dois-je


merci

 

[caline]

Re : verouiller un bouton

merci
je pense que j'ai trouvé il suffit que je mette avant l'éxécution de la macro

If InputBox("veuillez saisir le mot de passe", "mot de passe") <> "MotDePasse" Then Exit Sub


merci au forum ou j'ai trouvé cette solution


a bientôt

 

[lesarthois]

Re : verouiller un bouton

bonjour caline
tu ouvre VBE
puis tu tape:

Private Sub CommandButton1_Click()
ton code ( macro)

End Sub
de même pour chaque bouton

@+

 

[lesarthois]

Re : verouiller un bouton

bonjour caline

procede comme ceci
1- ouvre VBE
2- tape ceci:
Private Sub CommandButton1_Click()
ton code (macro)
End Sub

de même pour tous tes commandbutton(1,2,3,4....)
@+

 

[caline]

Re : verouiller un bouton

MERCI ENCORE
cela me convient aussi
et longue vie au forum