Re: Menueleiste bei Mausclick
26.11.2002 12:37:09
Georg_Zi
Hallo Lutz
' **************************************************************
' Modul: DieseArbeitsmappe Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option 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)
Application.ScreenUpdating = False
On Error Resume Next
Workbook_Open
Application.ScreenUpdating = True
End Sub
' **************************************************************
' Modul: Tabelle1 Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit
Private Sub CommandButton1_Click()
ThisWorkbook.Close True
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Hajo