Wenn ich nachfolgende Makros (extras_makro_aus und extras_schutz_aus) mit dem Sub auto_open aufrufe, werden die entsprechenden Menupositionen ausgeblendet und bei Aufruf von extras_makro_ein und extras_schutz_ein werden durch Aufruf mit dem Sub auto_close wieder eingeblendet.
Weshalb tritt nicht der gleiche Effekt ein, wenn ich diese mit
Private Sub Workbook_Deactivate()
extras_makro_ein
extras_Schutz_ein
End Sub
resp.Private Sub Workbook_Activate()
extras_makro_ein
extras_Schutz_ein
End Sub
aufrufe? Die Menupositionen Extras_Makro und Extras_Schutz sollen nur deaktiviert sein, wenn die entsprechende Datei aktiv ist.Danke für eine Antwort und Gruss, Peter
Sub extras_makro_aus()
Dim ctrl As CommandBarPopup
Set ctrl = _
Application.CommandBars.FindControl(ID:=30017)
If ctrl Is Nothing Then Else ctrl.Enabled = False
End Sub
Sub extras_makro_ein()
Dim ctrl As CommandBarPopup
Set ctrl = _
Application.CommandBars.FindControl(ID:=30017)
If ctrl Is Nothing Then Else ctrl.Enabled = True
End Sub
Sub extras_Schutz_aus()
Dim ctrl As CommandBarPopup
Set ctrl = _
Application.CommandBars.FindControl(ID:=30029)
If ctrl Is Nothing Then Else ctrl.Enabled = False
End Sub
Sub extras_Schutz_ein()
Dim ctrl As CommandBarPopup
Set ctrl = _
Application.CommandBars.FindControl(ID:=30029)
If ctrl Is Nothing Then Else ctrl.Enabled = True
End Sub