knoppenbalk per blad

[W Bloemendal]

Ik heb voor een wekmap een werkbalk welke automatisch weggaat als werkmap gesloten wordt

Private Sub Workbook_Activate()
Application.CommandBars("BeVEILIGEN").Visible = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("BeVEILIGEN").Delete

End Sub


Is dit ook voor aparte bladen te maken om dat ik voor de werkbladen apparte knoppen nodig heb.

wim

 

[Wigi]

Ik heb voor een wekmap een werkbalk welke automatisch weggaat als werkmap gesloten wordt

Private Sub Workbook_Activate()
Application.CommandBars("BeVEILIGEN").Visible = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("BeVEILIGEN").Delete

End Sub

Is dit ook voor aparte bladen te maken om dat ik voor de werkbladen apparte knoppen nodig heb.

wim

Elk tabblad heeft zijn eigen Events, o.a. Activate en Deactivate. Die heb jij nodig.

Wigi