Menüleiste der Mappe ausblende

Forumthread: Menüleiste der Mappe ausblende

10.01.2007 16:00:56

Tobias

Hallo,
ich möchte gerne mehrer Tabellenblätter nebeneinander anzeigen lassen. Dabei möchte ich nicht,das die jeweilige Titelleiste angezeigt wird. Kann mir jemand sagen, wie ich diese ausblenden kann.
Danke!

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Menüleiste der Mappe ausblende

10.01.2007 17:35:13

florian
AW: Menüleiste der Mappe ausblende

10.01.2007 17:37:42

Alofs
AW: Menüleiste der Mappe ausblende

11.01.2007 10:51:54

Tobias
AW: Menüleiste der Mappe ausblende

11.01.2007 14:10:17

Klaus.H

AW: Menüleiste der Mappe ausblende

10.01.2007 17:35:13

florian


Sub Auto_Open()
Application.DisplayFullScreen = True
Application.ScreenUpdating = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Worksheets("Tabelle1").Activate
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
Application.ScreenUpdating = True
End 

Sub

AW: Menüleiste der Mappe ausblende

10.01.2007 17:37:42

Alofs

Hallo Tobias
kopiere folgende Code in das VBA-Projekt deiner Mappe:


Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.CommandBars("Worksheet Menu Bar").Enabled = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
End Sub

AW: Menüleiste der Mappe ausblende

11.01.2007 10:51:54

Tobias

Danke für den Code aber das beantwortet leider nicht meine Frage: ich möchte nicht die Excel-Titelleiste ausblenden, sondern die Titelleiste der einzelnen Dateien die nebeneinander angeordnet sind!

AW: Menüleiste der Mappe ausblende

11.01.2007 14:10:17

Klaus.H

hi
hier bitte
Nachstehend der Code für 'DieseArbeitsmappe'.
Option Explicit
Dim Cn%
Dim CdbList()
Dim Status_FormulaBar As Boolean
Dim Status_HorScroll As Boolean
Dim Status_VerScroll As Boolean
Dim Status_StatusBar As Boolean
Dim Status_Gridlines As Boolean
Dim Status_Headings As Boolean
Dim Status_WorkTabs As Boolean


Private Sub Workbook_Open()
Dim Cdb As CommandBar
'Wenn Titelleiste von Excel geändern werden soll
'Application.Caption = "Meine Mustervorlage"
'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 And Cdb.BuiltIn = True Then
ReDim Preserve CdbList(Cn)
CdbList(Cn) = Cdb.Name
Cn = Cn + 1
Cdb.Visible = False
End If
Next
'Stellt den Status fest und blendet alles aus
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_WorkTabs = .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
'Menüleiste
.CommandBars(1).Enabled = False
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Forumthread: Menüleiste der Mappe ausblende

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread