AW: Passwort bei Spezialmenu öffnen
27.08.2006 16:02:50
Peter
Hallo Excelfreund
so ungefähr hatte ich mir das gedacht.
Nur leider weiss ich nicht wie und wo ich das einbauen soll?
Es soll beim öffnen des Spezialmenus eine Passwortabfrage eingebaut werden.
Ich Poste mal das Macro das ich mir zusammengebaut habe aus dem Vorum.
Hier soll die Passwortabfrage eingebaut werden:
Option Explicit
Private Const menueName As String = "Mein Spezialmenu"
Sub makeMenue()
Dim cbMenu As CommandBar
Dim cbSpecialMenu As CommandBarPopup
Dim cbCommand As CommandBarButton
deleteMenue
'Zuweisen der Objectvariablen
Set cbMenu = Application.CommandBars("Worksheet Menu Bar")
Set cbSpecialMenu = cbMenu.Controls.Add(Type:=msoControlPopup)
'Titelbeschriftung der Menübar
cbSpecialMenu.Caption = menueName
'Einen Button hinzufügen und diesen gleich beschriften
Set cbCommand = cbSpecialMenu.Controls.Add(Type:=msoControlButton)
With cbCommand
.Style = msoButtonIconAndCaption
.Caption = "Drucker auswählen"
.OnAction = ""
.FaceId = 1
End With
Set cbCommand = cbSpecialMenu.Controls.Add(Type:=msoControlButton)
With cbCommand
.Style = msoButtonIconAndCaption
.Caption = "Aktiver Drucker"
.OnAction = "Makro16"
.FaceId = 4
End With
Set cbCommand = cbSpecialMenu.Controls.Add(Type:=msoControlButton)
With cbCommand
.Style = msoButtonIconAndCaption
.Caption = "Drucker LPQ3"
.OnAction = "Makro17"
.FaceId = 4
End With
Set cbCommand = cbSpecialMenu.Controls.Add(Type:=msoControlButton)
With cbCommand
.Style = msoButtonIconAndCaption
.Caption = ""
.OnAction = ""
.FaceId = 1
End With
Set cbMenu = Nothing
Set cbCommand = Nothing
Set cbSpecialMenu = Nothing
End Sub
Sub deleteMenue()
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls(menueName).Delete
On Error GoTo 0
End Sub
Kannst du mir hierbei helfen.
Gruß Peter