Ausblenden per VBA

Forumthread: Ausblenden per VBA

Ausblenden per VBA

02.10.2003 09:35:08

Reservist

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ausblenden per VBA

02.10.2003 09:45:54

Hans W. Herber

AW: Ausblenden per VBA

02.10.2003 09:55:08

Reservist

AW: Ausblenden per VBA

02.10.2003 09:46:29

Galenzo

AW: Ausblenden per VBA

02.10.2003 10:09:00

Reservist

AW: Ausblenden per VBA

02.10.2003 09:47:19

Matthias G

AW: Ausblenden per VBA

02.10.2003 09:59:32

Reservist

AW: Ausblenden per VBA

02.10.2003 09:45:54

Hans W. Herber

Hallo Thorsten,

grundsätzlich rate ich von sowas ab. Man sollte den Anwender als mündig behandeln. Wenn es aber denn sein muss, Du findest die Routinen hier:
http://xlfaq.herber.de/texte/039398h.htm

Wenn es beim Öffnen und Schließen geschehen soll, ist die eine Routine aus dem Workbook_Open-Ereignis, die andere aus dem Workbook_BeforeClose-Ereignis im Klassenmodul der Arbeitsmappe aufzurufen.

gruss hans

AW: Ausblenden per VBA

02.10.2003 09:55:08

Reservist

Danke Hans,
so hab`ich es bisher nicht gesehen. Ist OK.
Ziel war mehr optische Gestaltung und otimalen
Platz in der Bildhöhe, da jeweils ein komplette
A4-Seite angezeigt werden soll.

Gruß Thorsten

AW: Ausblenden per VBA

02.10.2003 09:46:29

Galenzo

Hallo,

ich poste dir hier mal die Open-/Close-Prozeduren, die ich des öferen verwende
In ein Standardmodul fügst du diese Prozeduren ein:

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!

Beliebteste Forumthreads (12 Monate)

Forumthread: Ausblenden per VBA

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread