Das Funktioniert wahrscheinlich mit Workbook Open, hab auch schon probiert habe aber noch keine richtige Lösung gefunden.
Danke im vorraus für Eure Hilfe.
Private Sub workbook_deactivate()
Dim cb As CommandBar
Application.ScreenUpdating = False
For Each cb In Application.CommandBars
cb.Enabled = True
Next cb
Application.ScreenUpdating = True
End Sub
Private Sub workbook_activate()
Dim cb As CommandBar
Application.ScreenUpdating = False
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
Application.CommandBars("Worksheet Menu Bar").Enabled = True 'Optional Menüleiste einblenden
Application.ScreenUpdating = True
End Sub
Private Sub workbook_open()
Dim cb As CommandBar
Application.ScreenUpdating = False
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
Application.CommandBars("Worksheet Menu Bar").Enabled = True 'Optional Menüleiste einblenden
Application.ScreenUpdating = True
End Sub
Private Sub workbook_beforeclose(cancel As Boolean)
Dim cb As CommandBar
Application.ScreenUpdating = False
For Each cb In Application.CommandBars
cb.Enabled = True
Next cb
Application.ScreenUpdating = True
End Sub