Microsoft Excel

Herbers Excel/VBA-Archiv

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

Ausblenden per VBA

    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 von: Hans W. Herber
    Geschrieben am: 02.10.2003 09:45:54

    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


      


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

    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


      


    Betrifft: AW: Ausblenden per VBA von: Galenzo
    Geschrieben am: 02.10.2003 09:46:29

    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!


      


    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


      


    Betrifft: AW: Ausblenden per VBA von: Reservist
    Geschrieben am: 02.10.2003 09:59:32

    Danke Matthias,

    wird mir sicher helfen.

    Gruß
    Thorsten


     

    Beiträge aus den Excel-Beispielen zum Thema " Ausblenden per VBA"