Re: Symbolleiste ein-/ ausblenden
17.03.2003 15:23:19
Rolf
Hi
folgenden Code in VBA in DieseArbeitsmappeOption Explicit
Public symbol As CommandBar
' Ausblenden einschließlich Datei, Bearbeiten usw.
' Ansatz von HerbertH
Private Sub Workbook_Activate()
For Each symbol In Application.CommandBars
symbol.Enabled = False
Next symbol
' Datei, Bearbeiten usw. wieder einblenden
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each symbol In Application.CommandBars
symbol.Enabled = True
Next symbol
End Sub
Private Sub Workbook_Deactivate()
For Each symbol In Application.CommandBars
symbol.Enabled = True
Next symbol
End Sub
Private Sub Workbook_Open()
For Each symbol In Application.CommandBars
symbol.Enabled = False
Next symbol
' Datei, Bearbeiten usw. wieder einblenden
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
On Error Resume Next
Workbook_Open
End Sub