Microsoft Excel

Herbers Excel/VBA-Archiv

Zusaetzliches Menue in Menueleiste

Betrifft: Zusaetzliches Menue in Menueleiste von: Otto
Geschrieben am: 25.11.2005 10:10:46

Hallo Experten,

Ich habe zwei einfache Makros aufgenommen, die bestimmte Arbeitsblaetter (in diesem Falle b, c und d) ausblenden (bzw. einblenden) und dann die Mappe schuetzen.

Hide Macro
'
Sheets(Array("b", "c", "d")).Select
ActiveWindow.SelectedSheets.Visible = False
ActiveWorkbook.Protect "test", Structure:=True, Windows:=False
End Sub

Sub Unhide()
'
' Unhide Macro
'
    ActiveWorkbook.Unprotect "test"
    Sheets("b").Visible = True
    Sheets("c").Visible = True
    Sheets("d").Visible = True
End Sub


Da ich diese sehr oft benutze, habe ich mich gefragt, ob es moeglich ist, dass beim oeffnen der Datei in der die Makros sind, ein zusaetzliches Menue in der Menueleiste erstellt wird (z.B. „Functions“) mit zwei Untermenues – „Hide“ und „Unhide“, die beim Klicken die ensprechende Makros starten.
Kann mir jemand damit helfen?

Vielen Dank im Voraus

Otto
  


Betrifft: AW: Zusaetzliches Menue in Menueleiste von: Unbekannter Nummer Eins
Geschrieben am: 25.11.2005 10:59:33

Hier ist ein Link wo das gleich gemacht wurde.

https://www.herber.de/forum/archiv/700to704/t700519.htm



Gruß UN1


  


Betrifft: AW: Zusaetzliches Menue in Menueleiste von: Otto
Geschrieben am: 25.11.2005 11:17:14

Danke, UN1.

Nun kann ich leider mit dem Code in dem Beispiel nichts anfangen.
Es erstellt Buttons, ich moechte Menue in der Menueleiste.
Ich bin leider auch nicht so weit mit VBA, dass ich ohne weiteres dieses Code (eher komliziert) fuer meine Zwecke umbauen kann.

Danke und Gruss

Otto


  


Betrifft: AW: Zusaetzliches Menue in Menueleiste von: Unbekannter Nummer Eins
Geschrieben am: 25.11.2005 12:21:51

Dann so und die Buttons dann an den Platzt in der Menüleiste reinziehen wo du sie haben willst.

Sub Stahlbetonstützenleiste()
On Error Resume Next
Dim Befehlsleiste As CommandBar
Dim Befehlsleistenknopf As CommandBarButton
Dim Popupsteuerelement As CommandBarPopup
Dim Befehlsleistenname As String

Application.CommandBars(Befehlsleistenname).Delete
Befehlsleistenname = "Protect"

Set Befehlsleiste = Application.CommandBars.Add(Befehlsleistenname, msoBarTop, False, True)
Set Befehlsleistenknopf = Befehlsleiste.Controls.Add(msoControlButton)
Set Befehlsleistenknopf2 = Befehlsleiste.Controls.Add(msoControlButton)

With Befehlsleiste
.Position = msoBarFloating
.Visible = True
End With
With Befehlsleistenknopf
.Caption = "Hide"
.BeginGroup = True
.FaceId = 0
.Tag = "Hide"
.OnAction = "verstecken"
.State = 0
.Style = 3
End With
With Befehlsleistenknopf2
.Caption = "Unhide"
.BeginGroup = True
.FaceId = 0
.Tag = ""
.OnAction = "wiederherstellen"
.State = 0
.Style = 3
End With
End Sub


Sub verstecken()
On Error Resume Next
Sheets("b").Visible = False
Sheets("c").Visible = False
Sheets("d").Visible = False
End Sub


Sub wiederherstellen()
On Error Resume Next
Sheets("b").Visible = True
Sheets("c").Visible = True
Sheets("d").Visible = True
End Sub


Gruß UN1


  


Betrifft: AW: Zusaetzliches Menue in Menueleiste von: Otto
Geschrieben am: 25.11.2005 15:19:01

Danke schoen!

Otto