Symbolleisten verschollen

Hallo Wissende,
bei erstmaligem Dateistart speichere ich den Zustand aller CommandBars in Zelle
A5 ab. Dies geschieht mit der Sub "Symbol"
In einer UF kann man dann 2 Optionsbuttons auswählen, jenachdem wird zelle A7
auf 0 oder 1 gesetzt und die Sub "Symbole" aufgerufen
Ganzer Bildschirm bzw displayfullscreen möchte ich nihct benutzen.
Zwei Fragen dazu:
1--wie blende ich noch die Titelzeile aus?
2--nach mehrmaligen Aufruf von "Symbole" mit A7 = 1 bzw 0 sind unter
Ansicht---Symbolleisten nur noch 3 Möglichkeiten sichtbar, Formular, Standard,
Anpassen. Wie kann ich vermeiden dass die anderen Leistenmöglichkeiten
verschwinden?

Sub Symbol()
Dim Wert As String
Set wsE = Worksheets("Einstellungen")
If wsE.Range("A5") = "" Then
For Each s In CommandBars
If s.Visible = True Then
Wert = Wert & "1"
Else
Wert = Wert & "0"
End If
Next s
End If
wsE.Range("A5") = Wert
Set wsE = Nothing
End Sub
Sub Symbole()
On Error Resume Next
Set wsE = Worksheets("Einstellungen")
If wsE.Range("A7") = 1 Then
'Application.DisplayFullScreen = False
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
Application.CommandBars("Worksheet Menu Bar").Enabled = True
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayScrollBars = True
UserForm1.OptionButton3 = True
For Each s In Application.CommandBars
n = n + 1
If Mid(wsE.Range("A5"), n, 1) = "1" Then
s.Enabled = True
Else
s.Enabled = False
End If
Next s
Else
'Application.DisplayFullScreen = True
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayStatusBar = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayScrollBars = False
UserForm1.OptionButton4 = True
For Each s In Application.CommandBars
s.Enabled = False
Next s
End If
Set wsE = Nothing
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Activate() Dim cb As CommandBar For Each cb In Application.CommandBars cb.Enabled = False Next DoEvents With ActiveWindow .DisplayHeadings = False .DisplayOutline = False .DisplayZeros = False .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False .DisplayWorkbookTabs = False End With With Application .DisplayFormulaBar = False .DisplayStatusBar = False End With End Sub

Hallo Reinhard,
das geht ganz einfach:

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Enum constats
    GWL_STYLE = -16
    WS_CAPTION = &HC00000
End Enum
Public Sub test()
    Static bolCaption As Boolean
    Dim lnghWnd As Long, lngStyle As Long
    lnghWnd = FindWindow("XLMAIN", vbNullString)
    If lnghWnd <> 0 Then
        lngStyle = GetWindowLong(lnghWnd, GWL_STYLE)
        If bolCaption Then
            lngStyle = lngStyle Or WS_CAPTION
        Else
            lngStyle = lngStyle And Not WS_CAPTION
        End If
        SetWindowLong lnghWnd, GWL_STYLE, lngStyle
        DrawMenuBar lnghWnd
        bolCaption = Not bolCaption
    End If
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Symbolleisten verschollen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread