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

pat66

XLDnaute Impliqué
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

XLDnaute Impliqué
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
 

Discussions similaires

Statistiques des forums

Discussions
313 224
Messages
2 096 338
Membres
106 572
dernier inscrit
JM04082023!