Ausblenden per VBA

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema ScrollBar
Screenshot zu ScrollBar	ScrollBar-Seite mit Beispielarbeitsmappe aufrufen

Ausblenden per VBA

Ausblenden per VBA von Reservist vom 02.10.2003 09:35:08
- AW: Ausblenden per VBA - von Hans W. Herber am 02.10.2003 09:45:54
  - AW: Ausblenden per VBA - von Reservist am 02.10.2003 09:55:08
- AW: Ausblenden per VBA - von Galenzo am 02.10.2003 09:46:29
  - AW: Ausblenden per VBA - von Reservist am 02.10.2003 10:09:00
- AW: Ausblenden per VBA - von Matthias G am 02.10.2003 09:47:19
  - AW: Ausblenden per VBA - von Reservist am 02.10.2003 09:59:32

Betrifft: Ausblenden per VBA von: Reservist
Geschrieben am: 02.10.2003 09:35:08

Guten Morgen alle Excler,

Keine Ahnung von VBA trotzdem brauche ich eins.

Mein Excel-Dokument soll beim Start alle Symbolleisten außer meine
eigene ("Rechnung") ausblenden. Weiter sollen alle Fensteroptionen
und Anzeigen außer der vertikale Bildlaufleiste ausgeblendet werden.
Schön wäre, wenn auch die Menüleiste verschwindet.
Beim Schließen muß dann der vorherige Zustand wieder hergestellt
werden.

Jede Tabelle einzeln über Optionen möchte ich nicht tun, da meine
Mappe über 100 Tabellen hat.

Wenn dieser Wunsch zuviel des Guten ist,
wäre ich auch über einen Link dankbar der dies behandelt.

Gruß aus Leipzig
Thorsten

Betrifft: AW: Ausblenden per VBA

http://xlfaq.herber.de/texte/039398h.htm

Betrifft: AW: Ausblenden per VBA

Option Explicit

Dim Cn%, xCn%
Dim CdbList(), xCdbList()
Dim Status_StandardBar As Boolean
Dim Status_FormulaBar As Boolean
Dim Status_HorScroll As Boolean
Dim Status_StatusBar As Boolean
Dim Status_Gridlines As Boolean
Dim Status_Headings As Boolean
Dim Status_WorkbookTabs As Boolean

Private Sub auto_Open()
    Dim Cdb As CommandBar, bar

    Application.ScreenUpdating = False

    For Each bar In Application.CommandBars
        bar.Enabled = False
    Next bar

    Cn = 1
    For Each Cdb In Application.CommandBars
        If Cdb.Visible And Cdb.Type = msoBarTypeMenuBar Then
            ReDim Preserve CdbList(Cn)
            CdbList(Cn) = Cdb.Name
            Cn = Cn + 1
            Cdb.Visible = False
        End If
    Next Cdb

    With ActiveWindow
        Status_HorScroll = .DisplayHorizontalScrollBar
        If .DisplayHorizontalScrollBar Then .DisplayHorizontalScrollBar = False
        Status_Gridlines = .DisplayGridlines
        If .DisplayGridlines Then .DisplayGridlines = False
        Status_Headings = .DisplayHeadings
        If .DisplayHeadings Then .DisplayHeadings = False
        Status_WorkbookTabs = .DisplayWorkbookTabs
        If .DisplayWorkbookTabs Then .DisplayWorkbookTabs = False
    End With

    With Application
        Status_StatusBar = .DisplayStatusBar
        If .DisplayStatusBar Then .DisplayStatusBar = False
        Status_FormulaBar = .DisplayFormulaBar
        If .DisplayFormulaBar Then .DisplayFormulaBar = False
    End With

    CommandBars(1).Enabled = False
    Application.Caption = "Meine Mappe"
    Application.DisplayFullScreen = False
    Application.ScreenUpdating = True
End Sub

Private Sub auto_close()
    Dim Cdb As CommandBar, bar, Ci%

    On Error Resume Next

    For Each bar In Application.CommandBars
        bar.Enabled = True
    Next bar

    For Ci = 1 To Cn - 1
        Application.CommandBars(CdbList(Ci)).Visible = True
    Next Ci

    For Each Cdb In Application.CommandBars
        If Cdb.Visible And Cdb.Type = msoBarTypeMenuBar Then
            ReDim Preserve CdbList(Cn)
            CdbList(Cn) = Cdb.Name
            Cn = Cn + 1
            Cdb.Visible = True
        End If
    Next Cdb

    With Application
        Status_StatusBar = .DisplayStatusBar
        If Not (.DisplayStatusBar) Then .DisplayStatusBar = True
        Status_FormulaBar = .DisplayFormulaBar
        If Not (.DisplayFormulaBar) Then .DisplayFormulaBar = True
        .Caption = ""
        .CommandBars("Standard").Visible = True
        .CommandBars("Formatting").Visible = True
        .DisplayFullScreen = False
    End With

    With ActiveWindow
        Status_HorScroll = .DisplayHorizontalScrollBar
        If Not (.DisplayHorizontalScrollBar) Then .DisplayHorizontalScrollBar = True
        .DisplayGridlines = Status_Gridlines
        If Not (.DisplayGridlines) Then .DisplayGridlines = True
        .DisplayHeadings = Status_Headings
        If Not (.DisplayHeadings) Then .DisplayHeadings = True
        .DisplayWorkbookTabs = Status_WorkbookTabs
        If Not (.DisplayWorkbookTabs) Then .DisplayWorkbookTabs = True
    End With

    Application.ScreenUpdating = True

End Sub

Mußt du bei Bedarf noch anpassen.

Viel Spaß und Erfolg!

Betrifft: AW: Ausblenden per VBA von: Reservist
Geschrieben am: 02.10.2003 10:09:00

Hallo Galenzo,

vorab vielen Dank, werde ich gleich probieren
und melde mich ggf. nochmal.

Gruß
Thorsten

Betrifft: AW: Ausblenden per VBA von: Matthias G
Geschrieben am: 02.10.2003 09:47:19

Hallo Thorsten,
sieh mal hier:
https://www.herber.de/forum/archiv/268to272/t270369.htm

oder noch mehr unter Google: "Symbolleisten ausblenden site:www.herber.de"

Gruß,
Matthias