AW: Zeilen-/Spaltenüberschriften dauerhaft ausblen
08.08.2007 11:34:40
Ramses
Hallo
"...Der Nutzer braucht bei meinem Workbuch keine Optionen!!..."
Wie stellst du sicher, dass der Benutzer keine anderen Mappen offen hat ?
Diese Art der Programmierung ist arrogant.
Aber mir ist das egal, sollen sich deine Benutzer beschweren
Sub test()
Disable_Control "E&xtras", "Option", True
End Sub
Function Disable_Control(disMenu As String, disCntrl As String, cntrlAction As Boolean)
'(C) Ramses
'Menüpunkte müssen mit "&" Zeichen für den Shortcut
'an die Funktion übergeben werden
Dim i As Long
Dim myCmdBar As CommandBarControl, myCnt As CommandBarControl
Set myCmdBar = Application.CommandBars("Worksheet Menu Bar").Controls(disMenu)
For Each myCnt In myCmdBar.Controls
Debug.Print myCnt.Caption
If InStr(1, myCnt.Caption, disCntrl) > 1 Then
myCnt.Enabled = cntrlAction
End If
Next
End Function
Gruss Rainer