Control in CommandBars("Ply") uitschakelen.

[HSV]

In het bestandje heb ik een en ander uitgeschreven wat ik van plan ben.
Misschien kan een van jullie eens kijken en testen in Office 365 waarom ik een control niet kan uitschakelen, maar wel uitgeschakeld is in de PopUp die ik laat opkomen.

Ook graag je bevindingen in oudere versies.

Ps. wees gerust, bij het sluiten van het bestand wordt het netjes gereset.

 

[snb]

In deze gebeurtenisprocedure werkt het hier als gewenst (E 2010)

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 With Application.CommandBars("Ply")
    .Controls(10).Enabled = False
   .ShowPopup
  End With
End Sub

 

[HSV]

Dat klopt, in mijn versie ook met de PopUp, maar niet als je een rechtsklik op het werkblad Tab doet.
In die Menu is het dan niet uitgeschakeld.

 

[snb]

Wel met mijn macro. Ik rechtsklik op een tabblad et alors... De gebeurtenisprocedure is cruciaal.

 

[HSV]

Dan werkt het helaas niet in Office 365.
In je PopUp net als bij mij in de Sub hsv_2() wel, maar een rechtermuisklik op de Tab weer niet.
Zouden het twee verschillende menu's zijn in Office 365?

Wat wel werkt in Office 365,....

Application.commandbars("cell").enabled = false

maar dat is weer een ander verhaal.

 

[snb]

Blijkbaar wordt de instelling van deze optie in de coommandbar niet onthouden.

 

[HSV]

Denk het ook.
Wat het wel werkt.......

Application.commandbars("ply").enabled = false

... maar daar ging het mij niet om..