Microsoft 365 rétablir le clic droit sur les onglets malgré ThisWorkbook.Saved = True

[pat66]

Bonjour le forum,

j'ai besoin d'un coup de main car en utilisant les macros suivantes, le clic droit reste désactivé sur les classeurs que j'ouvre après, avez vous une idée pour contourner ce problème, car je souhaite qu'en cliquant sur oui dans BeforeClose, le classeur se ferme sans enregistrer, mais rétablisse le clic droit ?

merci d'avance

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

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ret As Integer
    ret = MsgBox("Souhaitez vous fermer ce classeur ?", vbYesNo + vbInformation, "TEST")
    If ret = vbNo Then
    Cancel = True
    Else
 ThisWorkbook.Saved = True
 End If
 End Sub

 

[Oneida]

Bonjour,
Enlever Workbook_Deactivate()

pour click droit sur autre fichier, normalement ca le fait

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ret As Integer
    ret = MsgBox("Souhaitez vous fermer ce classeur ?", vbYesNo + vbInformation, "TEST")
    If ret = vbNo Then
        Cancel = True
    Else
        Application.CommandBars("Ply").Enabled = True
        ThisWorkbook.Close False
    End If
 End Sub

 

[Lu76Fer]

Bonjour Pat66,
Je viens d'écrire une discussion sur BeforeClose qui pourrait vous intéressez :
Evenement BeforeSave plutôt que BeforeClose