title image


Smiley Re: Menüpunkte verstecken
Hallo Rene,



Du gibst die Wordversion nicht an. Hier sind einige Makros getestet in Word 97:Sub TestA()

' Evtl. eine bestimmte Vorlage öffnen (gilt für alle fogenden Makros)

' Nähere Hinweise in der Hilfe des VBA-Edtors

' Stichwort [Application]CustomizationContext

' Set myTemplate = Documents.Open("C:\Templates\XYZ.dot")

' Application.CustomizationContext = myTemplate



' auf genaue Schreibweise der Menüs und Controls achten!

' Ampersand [&] muss, wenn vorhanden, an der richtigen Stelle stehen

' deaktiviert den Menüpunkt Makro im Menü Extras

'

Dim strControl As String, oMenu As String

strControl = "Ma&kro"

oMenu = "E&xtras"



If MenuItemFound(oMenu, strControl) Then

CommandBars("Menu Bar").Controls("E&xtras").Controls(strControl).Enabled = False

End If

End Sub



Function MenuItemFound(NameMenu As String, NameSubMenu As String) As Boolean

On Error Resume Next

For Each oCtl In CommandBars("Menu Bar").Controls(NameMenu).Controls

If oCtl.Caption = NameSubMenu Then MenuItemFound = True: Exit Function

Next

End Function



Sub TestB()

' auf genaue Schreibweise der Menüs und Controls achten!

' Ampersand [&] muss, wenn vorhanden, an der richtigen Stelle stehen

' aktiviert den Menüpunkt Makro im Menü Extras

'

Dim strControl As String, oMenu As String

strControl = "Ma&kro"

oMenu = "E&xtras"



If MenuItemFound(oMenu, strControl) Then

CommandBars("Menu Bar").Controls("E&xtras").Controls(strControl).Enabled = True

End If

End Sub



Sub TestC()

' deaktiviert die Menüleiste

' hierbei muss die Englische Schreibweise gewählt werden

CommandBars("Menu Bar").Enabled = False

End Sub



Sub TestD()

' aktiviert die Menüleiste

' hierbei muss die Englische Schreibweise gewählt werden

CommandBars("Menu Bar").Enabled = True

End Sub



Sub ListCommandBarNames()

Dim oBar As CommandBar



For Each oBar In CommandBars

' nur sichtbare

If oBar.Visible = True Then

Debug.Print oBar.Name

End If

Next

Set oBar = Nothing

End SubHubert





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: