Macro excel enregistrer sous
Résolu
steaker59
Messages postés
47
Date d'inscription
Statut
Membre
Dernière intervention
-
steaker59 Messages postés 47 Date d'inscription Statut Membre Dernière intervention -
steaker59 Messages postés 47 Date d'inscription Statut Membre Dernière intervention -
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!!
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!!
A voir également:
- Macro excel enregistrer sous
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Audacity enregistrer son pc - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
1 réponse
Bonjour,
Il faut tester le SaveAsUI qui est a vrai seulement si la boite enregistrer sous est affichée :
A+
Cordialement,
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,
steaker59
Messages postés
47
Date d'inscription
Statut
Membre
Dernière intervention
Merci infiniment c nikel !!