AW: Kontexmenü Anpassen
04.07.2003 09:55:58
ivan
hi uwe
in ein normales modul
Option Explicit
Dim Cn%
Dim CdbList()
Dim Status_StandardBar As Boolean
Dim Status_FormulaBar As Boolean
Dim Status_HorScroll As Boolean
Dim Status_StatusBar As Boolean
Dim Status_VerScroll As Boolean
Dim Status_Gridlines As Boolean
Dim Status_Headings As Boolean
Dim Status_WorkbookTabs As Boolean
Dim xCn%
Dim xCdbList()
Sub auto_open()
Dim Cdb As CommandBar
Dim bar
For Each bar In Application.CommandBars
bar.Enabled = False
Next
'Wenn Titelleiste von Excel geändern werden soll
Application.Caption = "" '" Mp3 Reader Copyright by "
'falls die eigenen Symbolleisten auch ausgeblendet werden sollen, dann
'den Code 'And Cdb.BuiltIn = True' aus nachstehender Zeile entfernen
Cn = 1
For Each Cdb In Application.CommandBars
If Cdb.Visible And Cdb.Type <> msoBarTypeMenuBar Then
'And Cdb.BuiltIn = True Then
ReDim Preserve CdbList(Cn)
CdbList(Cn) = Cdb.Name
Cn = Cn + 1
Cdb.Visible = False
End If
Next
With ActiveWindow
Status_HorScroll = .DisplayHorizontalScrollBar
If .DisplayHorizontalScrollBar = True Then .DisplayHorizontalScrollBar = False
Status_VerScroll = .DisplayVerticalScrollBar
If .DisplayVerticalScrollBar = True Then .DisplayVerticalScrollBar = False
Status_Gridlines = .DisplayGridlines
If .DisplayGridlines = True Then .DisplayGridlines = False
Status_Headings = .DisplayHeadings
If .DisplayHeadings = True Then .DisplayHeadings = False
Status_WorkbookTabs = .DisplayWorkbookTabs
If .DisplayWorkbookTabs = True Then .DisplayWorkbookTabs = False
End With
With Application
Status_StatusBar = .DisplayStatusBar
If .DisplayStatusBar = True Then .DisplayStatusBar = False
Status_FormulaBar = .DisplayFormulaBar
If .DisplayFormulaBar = True Then .DisplayFormulaBar = False
End With
CommandBars(1).Enabled = False
Application.DisplayFullScreen = False
End Sub
Sub auto_close()
Dim bar
For Each bar In Application.CommandBars
bar.Enabled = True
Next
Dim Cdb As CommandBar
Dim Ci%
For Ci = 1 To Cn - 1
Application.CommandBars(CdbList(Ci)).Visible = True
Next Ci
With ActiveWindow
.DisplayHeadings = Status_Headings
.DisplayHorizontalScrollBar = Status_HorScroll
.DisplayVerticalScrollBar = Status_VerScroll
.DisplayGridlines = Status_Gridlines
.DisplayWorkbookTabs = Status_WorkbookTabs
End With
With Application
.DisplayStatusBar = Status_StatusBar
.DisplayFormulaBar = Status_FormulaBar
End With
CommandBars(1).Enabled = True
'Dim Cdb As CommandBar
'Wenn Titelleiste von Excel geändern werden soll
Application.Caption = "" '" Copyright by "
'falls die eigenen Symbolleisten auch ausgeblendet werden sollen, dann
'den Code 'And Cdb.BuiltIn = True' aus nachstehender Zeile entfernen
Cn = 1
For Each Cdb In Application.CommandBars
If Cdb.Visible And Cdb.Type <> msoBarTypeMenuBar Then
'And Cdb.BuiltIn = True Then
ReDim Preserve CdbList(Cn)
CdbList(Cn) = Cdb.Name
Cn = Cn + 1
Cdb.Visible = True
End If
Next
With ActiveWindow
Status_HorScroll = .DisplayHorizontalScrollBar
If .DisplayHorizontalScrollBar = False Then .DisplayHorizontalScrollBar = True
Status_VerScroll = .DisplayVerticalScrollBar
If .DisplayVerticalScrollBar = False Then .DisplayVerticalScrollBar = True
Status_Gridlines = .DisplayGridlines
If .DisplayGridlines = False Then .DisplayGridlines = True
Status_Headings = .DisplayHeadings
If .DisplayHeadings = False Then .DisplayHeadings = True
Status_WorkbookTabs = .DisplayWorkbookTabs
If .DisplayWorkbookTabs = False Then .DisplayWorkbookTabs = True
End With
With Application
Status_StatusBar = .DisplayStatusBar
If .DisplayStatusBar = False Then .DisplayStatusBar = True
Status_FormulaBar = .DisplayFormulaBar
If .DisplayFormulaBar = False Then .DisplayFormulaBar = True
End With
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.DisplayFullScreen = False
End Sub
gruss
ivan