Worksheet_Activate werkt wel in Excel 2007 maar niet in excel 2010

[Artemiss]

Beste collega-VBA'ers

Hopelijk kunnen jullie mij helpen.
Ik heb in een bestand een Private Sub Workbook.Activate & .Deactivate & .BeforeClose in ThisWorkbook, zie onderstaand.
In 2007 werkt dit iedere keer perfect, alle opties voor toevoegen, verwijderen, hernoemen van sheets worden ge(de)blokkeerd, maar in 2010 gebeurt er helemaal niets.
Heeft iemand een idee waar dit aan kan liggen? Alvast bedankt!!
(Het werkboek beveiligen heb ik geprobeerd, maar dit levert andere problemen op, die mij moeilijker overkoombaar lijken, dan deze)

Private Sub Workbook_Activate()

    'Delete
    Application.CommandBars("Ply").FindControl(ID:=847).Enabled = False
     'Move/Copy
    Application.CommandBars("Ply").FindControl(ID:=848).Enabled = False
     'Rename
    Application.CommandBars("Ply").FindControl(ID:=889).Enabled = False
     'Hide
    Application.CommandBars("Ply").FindControl(ID:=890).Enabled = False
     'Unhide
    Application.CommandBars("Ply").FindControl(ID:=891).Enabled = False
     'Protect Sheet
    Application.CommandBars("Ply").FindControl(ID:=893).Enabled = False
     'Insert
    Application.CommandBars("Ply").FindControl(ID:=945).Enabled = False
     'Select All Sheets
    Application.CommandBars("Ply").FindControl(ID:=946).Enabled = False
     'View Code
    Application.CommandBars("Ply").FindControl(ID:=1561).Enabled = False
     'Ungroup Sheets
    Application.CommandBars("Ply").FindControl(ID:=1968).Enabled = False
     'Tab Color
    Application.CommandBars("Ply").FindControl(ID:=12181).Enabled = False
    
    Application.CommandBars("Tools").FindControl(ID:=30017).Enabled = False

End Sub
Private Sub Workbook_Deactivate()

    'Delete
    Application.CommandBars("Ply").FindControl(ID:=847).Enabled = True
     'Move/Copy
    Application.CommandBars("Ply").FindControl(ID:=848).Enabled = True
     'Rename
    Application.CommandBars("Ply").FindControl(ID:=889).Enabled = True
     'Hide
    Application.CommandBars("Ply").FindControl(ID:=890).Enabled = True
     'Unhide
    Application.CommandBars("Ply").FindControl(ID:=891).Enabled = True
     'Protect Sheet
    Application.CommandBars("Ply").FindControl(ID:=893).Enabled = True
     'Insert
    Application.CommandBars("Ply").FindControl(ID:=945).Enabled = True
     'Select All Sheets
    Application.CommandBars("Ply").FindControl(ID:=946).Enabled = True
     'View Code
    Application.CommandBars("Ply").FindControl(ID:=1561).Enabled = True
     'Ungroup Sheets
    Application.CommandBars("Ply").FindControl(ID:=1968).Enabled = True
     'Tab Color
    Application.CommandBars("Ply").FindControl(ID:=12181).Enabled = True
    
    Application.CommandBars("Tools").FindControl(ID:=30017).Enabled = True

End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Sheets("Daily Input Form").Range("E16").Value <> Empty Then
    InvoerVastleggen
End If
Application.EnableEvents = True

End Sub

 

[ScorpionX]

kan het zijn dat je macro's uitvoeren uit hebt staan in excel 2010? in trustcenter?

 

[Artemiss]

Nee, de overige macro's werken wel, ook event-macro's

 

[pixcel]

In je titel heb je het over worksheet events, in je code gaat het om workbook events. Verkeerde module misschien?

Misschien heb je wat aan http://pixcels.nl/events-in-workbooks/

 

[Artemiss]

Beste Pixcel,

Bedankt voor je reactie.
Maar ik heb in mijn titel een foutje gemaakt, daar had WorkBook_Activate moeten staan.

Wat ik zelf ondertussen gevonden heb, dat in 2010 in XML het Ribbon zou moeten aanpassen, en niet meer met CommandBars, maar dat is voor mij eigenlijk volledig onbekend terrein.

 

[snb]

Was dat in 2007 ook niet al zo ?

 

[Artemiss]

Ja, dat klopt, maar toch werkt de macro met Commandbars in 2007 nog wel, maar in 2010 doet het niets meer.