P
Philboy
Guest
Bonjour a tout le forum
voila mon problem :
j'ai un code que je met dans "thisworkbook",il serre a tout desactiver, quand je dis tout, c'est tout. mais j'aimerai le modifier pour laisser une seul barre d'outil (personnalisee) , le voici :
Private Sub Workbook_Activate()
Application.CommandBars(1).Enabled = False
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
End Sub
Private Sub Workbook_Deactivate()
Application.CommandBars(1).Enabled = True
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
End Sub
Merci pour vos lumieres
voila mon problem :
j'ai un code que je met dans "thisworkbook",il serre a tout desactiver, quand je dis tout, c'est tout. mais j'aimerai le modifier pour laisser une seul barre d'outil (personnalisee) , le voici :
Private Sub Workbook_Activate()
Application.CommandBars(1).Enabled = False
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
End Sub
Private Sub Workbook_Deactivate()
Application.CommandBars(1).Enabled = True
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
End Sub
Merci pour vos lumieres