Frage: gibt es eine Möglichkeit alle Menüleisten also auch, wenn jemand mehrere verwendet zb. verschiedene über Menü Ansicht Symbolleisten aktiviert hat, auch diese, sowie die Blattregisterkarten auszublenden?
Vielen Dank an der Stelle
Torge
Private Sub Workbook_Activate()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFormulaBar = False 'Bearbeitungszeile (falls gewünscht)
End Sub
Private Sub Workbook_Deactivate()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = True
Next cb
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = True
End Sub
Private Sub Workbook_Activate()
Application.OnKey "^{F12}", "Abfrage"
End Sub
Private Sub Workbook_Deactivate()
Einblenden True
Application.OnKey "^{F12}"
End Sub
Private Sub Workbook_Open()
Einblenden False
End Sub
Sub Einblenden(ein As Boolean)
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = ein
Next cb
ActiveWindow.DisplayWorkbookTabs = ein
Application.DisplayFormulaBar = ein 'Bearbeitungszeile (falls gewünscht)
End Sub
Sub Abfrage()
Const kw = "123"
Einblenden InputBox("Kennwort:", "Schutz entfernen") = kw
End Sub