Steuerelemente aus - eigene Menüleiste ein

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Steuerelemente aus - eigene Menüleiste ein von: Reservist
Geschrieben am: 10.02.2005 18:55:40

Guten Abend,

hatte diesen Beitrag schoneinmal im Januar gestellt. Leider ohne Antwort,

Ich benutze unten stehenden Code (von Hajo).
Bin damit zufrieden aber brauch nun doch eine eigene Menüleiste.
Name der Leiste ist "Buchhaltung".
Beim Ausschalten der Steuerelemente soll sich die eigene Menüleiste
einblenden. Beim Einschalten der Steuerelement soll sich die eigene
Menüleiste wieder ausblenden.
Wer kann helfen ? und den Code entspechend ändern/erweitern.

Gruß Thorsten

Hier der Code


Sub Steuerelemente_ausschalten()
    With Application
        .ScreenUpdating = False
        .CommandBars("toolbar list").Enabled = False
        .CommandBars("Worksheet Menu Bar").Enabled = False
        .CommandBars("Cell").Enabled = False
        .DisplayFormulaBar = True
        .DisplayStatusBar = True
        .DisplayFullScreen = True
    End With
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
        .DisplayHeadings = False
        .WindowState = xlMaximized
    End With
End Sub




Sub Steuerelemente_einschalten()
    With Application
        .ScreenUpdating = False
        .CommandBars("toolbar list").Enabled = True
        .CommandBars("Worksheet Menu Bar").Enabled = True
        .CommandBars("Cell").Enabled = True
        .DisplayFormulaBar = False
        .DisplayStatusBar = False
        .DisplayFullScreen = False
    End With
    With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
        .DisplayHeadings = True
        .WindowState = xlMaximized
    End With
    
End Sub

Bild


Betrifft: AW: Steuerelemente aus - eigene Menüleiste ein von: Ulf
Geschrieben am: 10.02.2005 19:12:43

Wie wird deine Leiste erzeugt?

Ulf


Bild


Betrifft: AW: Steuerelemente aus - eigene Menüleiste ein von: Reservist
Geschrieben am: 10.02.2005 21:44:01

Hallo Ulf,

sorry, unerwarteter Besuch kam dazwischen.

über: Extra | Anpassen | Neue Menüleiste

Thorsten


Bild


Betrifft: AW: Steuerelemente aus - eigene Menüleiste ein von: Ulf
Geschrieben am: 10.02.2005 21:58:37

Hast du die auch an die Datei angefügt?

Ulf


Bild


Betrifft: AW: Steuerelemente aus - eigene Menüleiste ein von: Reservist
Geschrieben am: 10.02.2005 22:09:22

Was für Datei angefügt ?

Muss mich aber berichtigen. Es ist eine Symbolleiste.
Erstellt über Extra | Anpassen

Thorsten


Bild


Betrifft: AW: Steuerelemente aus - eigene Menüleiste ein von: Ulf
Geschrieben am: 10.02.2005 22:19:52

Wenn diese Symbolleiste immer zur Verfügung stehen soll, musst du sie an die Datei anfügen(Symbolleisten|Anpassen|Symbolleisten|Anfügen

Ulf


Bild


Betrifft: AW: Steuerelemente aus - eigene Menüleiste ein von: Reservist
Geschrieben am: 10.02.2005 22:38:17

Symbolleiste ist der Datei angefügt.

Doch der Code blendet beim Start der Datei die kompletten Leisten, einschließlich Menüleiste aus (ist auch ok so).
Nur meine eigene Symbolleiste soll eingeblendet werden.

Thorsten


Bild


Betrifft: AW: Steuerelemente aus - eigene Menüleiste ein von: Ulf
Geschrieben am: 10.02.2005 22:51:48

Den Namen der Symbolleiste anpassen!


Sub Steuerelemente_ausschalten()
    With Application
        .commandbars("Deine").enabled = true
        .commandbars("Deine").visible = true
        .ScreenUpdating = False
        .CommandBars("toolbar list").Enabled = False
        .CommandBars("Worksheet Menu Bar").Enabled = False
        .CommandBars("Cell").Enabled = False
        .DisplayFormulaBar = True
        .DisplayStatusBar = True
        .DisplayFullScreen = True
    End With
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
        .DisplayHeadings = False
        .WindowState = xlMaximized
    End With
End Sub






Sub Steuerelemente_einschalten()
    With Application
        .commandbars("Deine").enabled = False
        .ScreenUpdating = False
        .CommandBars("toolbar list").Enabled = True
        .CommandBars("Worksheet Menu Bar").Enabled = True
        .CommandBars("Cell").Enabled = True
        .DisplayFormulaBar = False
        .DisplayStatusBar = False
        .DisplayFullScreen = False
    End With
    With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
        .DisplayHeadings = True
        .WindowState = xlMaximized
    End With
    
End Sub



Bild


Betrifft: AW: Steuerelemente aus - eigene Menüleiste ein von: Reservist
Geschrieben am: 10.02.2005 23:19:16

Habe dies in mein Modul entsprechend eingefügt,
funktioniert aber nicht.
Bei Start nach wie vor alle Leisten ausgeblendet
und meine eigene Symbolleiste ist nun nicht mehr unter
"Symbolleisten" sichtbar vorhanden. Ist aber
immer noch angefügt.

Thorsten


Bild


Betrifft: AW: Steuerelemente aus - eigene Menüleiste ein von: Ulf
Geschrieben am: 10.02.2005 23:45:47

Da muss was anderes faul sein, lad mal Beispiel hoch.

Ulf


Bild


Betrifft: AW: Steuerelemente aus - eigene Menüleiste ein von: Reservist
Geschrieben am: 11.02.2005 00:01:37

Glaub ich auch.

Die ganze Datei kann ich nicht hochladen (bestehende Buchhaltung).
Muss das mal als Beispiel bearbeiten. Pack ich aber heute nicht
mehr. Mir fallen die Klotzen zu.
Vielen Dank für deine Hilfe. Vielleicht klappt`s morgen Abend.

Gruß Thorsten


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Steuerelemente aus - eigene Menüleiste ein"