title image


Smiley Re: Versuche mal...
Habe die Lösung!



Ich habe vergessen zuerst einen Verweis auf das "darüberliegende" Popup-Control "Datei" zu setzen.



So funktioniert's:



Set cbr = Application.CommandBars.ActiveMenuBar

Set cbp = cbr.FindControl(msoControlPopup, ID:=CommandBars(strMenubar).Controls("Datei").ID)

Set cbb = cbp.Controls("Version auswählen")

cbb.Enabled = False



Aber der Tipp mit "ActiveMenubar" hatte mir schon mal weitergeholfen.



Vielen Dank Elvis!

Gruß

jolli



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: