Symbolleiste nicht mit Maus einblenden
15.02.2004 18:04:21
Tom
ich habe anhand von VBA beim Öffnen alle Symbolleitsne ausgeblendet und nur meine eigene Symbolleiste eingeblendet.
Nun möchte ich aber noch verhindern, daß der User nicht wieder an alle Befehle kommt (Menüleiste einblenden usw), wenn er auf "meine" Symbolleiste mit der rechten Maustaste klickt - im Moment ist das aber möglich ... Wie kann ich das deaktivieren und an welche Stelle muß ich das in meinen Code einbauen?
Gruß und danke vorab.
Tom
Hier der Code:
Private Sub Workbook_Open()
Dim cb As CommandBar
Dim CBC As CommandBarButton
Dim I%
Application.CommandBars("Worksheet Menu Bar").Enabled = False 'Menüleiste ausblenden
For Each cb In Application.CommandBars
On Error Resume Next
cb.Visible = False
Next cb
On Error GoTo 0
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
.Caption = "Tom"
.Windows(1).Caption = ""
.WindowState = xlMaximized
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
End With
On Error Resume Next
Set cb = Application.CommandBars.Add(Name:="Datenbank", _
temporary:=True, Position:=msoBarTop)
On Error GoTo 0
If Application.CommandBars("Tom").Visible = False Then
cb.Visible = True
For I = 1 To 9
Set CBC = cb.Controls.Add(Type:=msoControlButton)
With CBC
.Width = 100 ' Breite der Schalter
.Style = msoButtonCaption ' Text auf Schaltfläche
Select Case I
Case 1
.Caption = "Beenden"
.OnAction = "Beenden"
.TooltipText = "Datei beenden"
.BeginGroup = True
Case 2
.Caption = "Speichern unter ..."
.OnAction = "Speichern_unter"
.TooltipText = "Speichern unter ..."
.BeginGroup = True
Case 3
.Caption = "Drucken"
.OnAction = "Drucken"
.TooltipText = "Drucken"
.BeginGroup = True
Case 4
.Caption = "Neuer Eintrag"
.OnAction = "Neuer_Eintrag"
.TooltipText = "Neuen Datensatz eintragen"
.BeginGroup = True
Case 5
.Caption = "Seitenansicht"
.OnAction = "Seitenansicht"
.TooltipText = "Seitenansicht"
.BeginGroup = True
Case 6
.Caption = "Sortieren"
.OnAction = "Sortieren"
.TooltipText = "Sortieren nach ..."
.BeginGroup = True
Case 7
.Caption = "Information"
.OnAction = "Info"
.TooltipText = "Datei Info"
.BeginGroup = True
Case 8
.Caption = "Ansicht +"
.OnAction = "Größer"
.TooltipText = "Ansicht vergrößern"
.BeginGroup = True
Case 9
.Caption = "Ansicht -"
.OnAction = "Kleiner"
.TooltipText = "Ansicht verkleinern"
.BeginGroup = True
End Select
End With
Next I
End If
Application.OnKey "^{PGDN}", "" ' Bild ab
Application.OnKey "^{PGUP}", "" ' Bild Auf
Application.OnKey "%{F11}", "" 'VBA-Editor deaktivieren
Application.OnKey "+%{F12}", "VBEShow" 'umschalt + Alt + F12 jetzt!
Worksheets(1).Select
Range("B2").Select
End Sub