Ausblenden per VBA

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

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)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread