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

pat66 · 13 Décembre 2023

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

VB:

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 · 13 Décembre 2023

Bonjour,
Enlever Workbook_Deactivate()

pour click droit sur autre fichier, normalement ca le fait

VB:

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 · 25 Décembre 2023

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

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

pat66

XLDnaute Impliqué

Oneida

XLDnaute Impliqué

Lu76Fer

XLDnaute Occasionnel

Discussions similaires