AW: Symbolleitse Datei & Co.
23.07.2003 16:14:20
Matthias G.
Hallo Thorsten,
folgende Subs:
Public
Sub DeactivateCommandBars()
Dim cBar As CommandBar
Application.DisplayFormulaBar = False
For Each cBar In Application.CommandBars
cBar.Enabled = False
Next cBar
End Sub
Public
Sub ActivateCommandBars()
Dim cBar As CommandBar
Application.DisplayFormulaBar = True
For Each cBar In Application.CommandBars
cBar.Enabled = True
Next cBar
End Sub
Diese Prozeduren wären entsprechenden Ergegnissen zuzuordnen.
Die Tatsturkürzel sind aber noch extra abzublocken, z.B.
Application.OnKey "^s", "" blockiert Strg-S für Speichern
Application.OnKey "^s" hebt das Ganze wieder auf
Grüße,
Matthias G.