Macro excel enregistrer sous Résolu/Fermé

Question

Bonjour à tous, 

J'ai un fichier excel. Je souhaite faire apparaitre un msgbox lorsque l'on enregistre-sous uniquement.
Le problème est que le message s'affiche même lorsque les utilisateurs enregistre.
Le code est ci-dessous : 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        Select Case MsgBox("Ne pas renommer ce fichier en cliquant sur 'Enregistrer sous...'!" & Chr(10) & _
        "Seule XX est habilitée à le faire, ainsi qu'à créer des archives!" & Chr(10) & _
        "Voulez vous continuer?", vbYesNo + vbCritical, "Alerte Enregistrement")
Case vbYes
'procédure si click sur Oui
Case vbNo
Cancel = True
End Select
End Sub

Pouvez vous me guider ?

Merci!!

pilas31 · Answer

Bonjour, 

Il faut tester le SaveAsUI qui est a vrai seulement si la boite enregistrer sous est affichée : 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
If SaveAsUI Then 
    Select Case MsgBox("Ne pas renommer ce fichier en cliquant sur 'Enregistrer sous...'!" & Chr(10) & _ 
     "Seule XX est habilitée à le faire, ainsi qu'à créer des archives!" & Chr(10) & _ 
     "Voulez vous continuer?", vbYesNo + vbCritical, "Alerte Enregistrement") 
    Case vbYes 
    'procédure si click sur Oui 
    Case vbNo 
    Cancel = True 
    End Select 
End If 
End Sub  
A+ 
  
Cordialement,