Das Archiv des Excel-Forums

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

Excel-Beispiele zum Thema " Ausblenden per VBA"

Fehlermeldung #NV ausblenden		Spalten einer Mehrbereichsauswahl ausblenden.
Symbolleisten ein-/ausblenden		Zeilen und Spalten über ein Drehfeld ein- und ausblenden
Excel für die Zeit eines Dialogaufrufes ausblenden		ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden
Alle Menüs und Symbolleisten ausblenden		Entwicklungsumgebung ein- und ausblenden
Leere Zeilen beim Druck ausblenden		Alle leeren Spalten ausblenden
Zeilen mit Zellen mit rotem Hintergrund ausblenden		Arbeitsblattmenüleiste ein- und ausblenden
Schaltfläche in einem Tabellenblatt ein- und ausblenden		UserForm-TextBoxes ein- und ausblenden
Ausgblendetes Fenster ein- und aktives Fenster ausblenden		Excel und VBE auf Schaltflächendruck ein- und ausblenden
Excel-Menü oben links am Fenster ausblenden		Spalten ein-/ausblenden nach UserForm-ListBox-Vorgabe
Ein- und ausblenden von Blättern gem. UserForm-ComboBoxes		Kopfleiste einer UserForm ein- und ausblenden
Spalten über UserForm-Auswahl ein- und ausblenden		Tabellenblattgrafik ein/ausblenden und verschieben
Arbeitsblätter ausblenden		Datensätze unter Maximum ausblenden
Alle Zeilen mit dem Wahrheitswert WAHR ausblenden		Tabellenblätter für Kalenderwochen anlegen und ein/ausblenden
Grafik in Abhängigkeit eines Formelwertes ein/ausblenden		Spalten mit Zellen ohne Eintrag oder 0-Werten ausblenden
Negative Zahlen ausblenden		Formate und Zellinhalte ausblenden