alle Kontextmenüs abschalten
02.12.2005 11:11:55
Horst
wer kann mir die script-Zeilen geben und sagen, an welche Stelle genau dies muss. Habe für das Kontext-Menü rechte Maustaste im Sheet ein VBA, aber das erscheint beim Öffnen der Mappe und die anderen Scripts laufen erst weiter, wenn ich einmal ins Sheet klicke. Abgeschaltet ist es dann. Wie mache ich das richtig? An anderer Position einbinden - wo? Fand das script in der Recherche:
Sub Kontext()
Dim NeuesMenü As CommandBarButton
With CommandBars("Cell")
Do While .Controls.Count > 0
On Error Resume Next
.Controls(1).Delete
Loop
Set NeuesMenü = .Controls.Add(msoControlButton)
With NeuesMenü
.Caption = "&Zoom"
.OnAction = "Zomm+"
End With
End With
z
End Sub
Sub KontextmenüWiederherstellen()
'Zellkontextmenü wiederherstellen
CommandBars("Cell").Reset
z
End Sub
Sub z()
CommandBars("Cell").ShowPopup
End Sub
Danke für Hilfe!!
Gruß
Horst