Opgelost Rechter muisknop in-en uitschakelen

[hki]

Hallo, om de rechter muisknop voor een tabblad uit te schakelen gebruik ik:
Private Sub Workbook_Open()
Application.CommandBars("Ply").Enabled = False
End Sub
Maar bij het afsluiten van het bestand zou ik graag weer de rechtermuisknop inschakelen. De code:
Private Sub Workbook_Open()
Application.CommandBars("Ply").Enabled = True
End Sub
krijg ik niet geactiveerd. Wat doe ik fout?

 

[glda19]

Gebruik ook zo iets voor delete uit te schakelen
Zal het eens opzoeken.
Maar je gebruikt 2x open.
Moet het de 2 de x niet close zijn.
Zal het later vandaag bevestiging welke code je moet hebben

 

[hki]

Bedank voor je reactie, ik wacht af

 

[hki]

Het probleem is opgelost.
Ik heb het volgende toegevoegd bij afsluiten

Sub Afsluiten_menu()
Call Tabblad_bew_aan
ThisWorkbook.Saved = False
Application.Quit
End Sub

Sub Tabblad_bew_aan()
Application.CommandBars("Ply").Enabled = True
End Sub

 

[jkpieterse]

Zet dit in ThisWorkbook:

Private Sub Workbook_Open()
    Application.CommandBars("Ply").Enabled = False
End Sub

Private Sub Workbook_BeforeClose()
    Application.CommandBars("Ply").Enabled = True
End Sub

 

[HSV]

Of alleen maar deze, op de andere werkboeken werkt het dan nog wel.

Private Sub Workbook_Open()
    ActiveWorkbook.Application.CommandBars("Ply").Enabled = False
End Sub

 

[jkpieterse]

@HSV: voor zover ik weet is het disablen van een commandbar iets dat voor de gehele applicatie geldt.

 

[jkpieterse]

Wellicht is dit beter:

Private Sub Workbook_Activate()
    Application.CommandBars("Ply").Enabled = False
End Sub

Private Sub Workbook_Deactivate()
    Application.CommandBars("Ply").Enabled = True
End Sub

 

[HSV]

@jkpieterse,

Alle werkboeken die voortijdig zijn geopend daarbij werkt het nog wel.

 

[hki]

Allemaal bedankt voor de reacties.
Helaas werken ze niet. Ik houd het op de oplossing die ik gevonden had. Werkt goed.

 

[glda19]

je moet wel de oplossing van jkpieters onder thisworkbook zetten

 

[hki]

Had ik gedaan