Macro pour empecher l'enregistrement
cedmon24
-
cedmon24 -
cedmon24 -
Bonjour,
voila dans un fichier excel, j'aimerais que si les utilisateurs de mon fichier n'ont pas renseigner les cellules voulu, qu'ils ne puissent faire un "sauvegarder sous".
j'ai mis ma macro dans
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
la selection des cellules je la fait avec un select, mais dans la condition :
case is=empty
je ne sais comment empecher la fenetre de sauvegarde d'apparaitre, pour les empecher d'enregistrer.
merci de venir a mon aide.
voila dans un fichier excel, j'aimerais que si les utilisateurs de mon fichier n'ont pas renseigner les cellules voulu, qu'ils ne puissent faire un "sauvegarder sous".
j'ai mis ma macro dans
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
la selection des cellules je la fait avec un select, mais dans la condition :
case is=empty
je ne sais comment empecher la fenetre de sauvegarde d'apparaitre, pour les empecher d'enregistrer.
merci de venir a mon aide.
A voir également:
- Macro pour empecher l'enregistrement
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Enregistrement mp3 gratuit - Télécharger - Streaming audio
- Jitbit macro recorder - Télécharger - Confidentialité
- Enregistrement - Guide
1 réponse
si tu veux, tu peux les empecher de sauvegarder le documents avant fermeture.
sinon pour ton probleme:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If COUNTBLANK( range(.....) ) <>0 then
Cancel = True
endif
End Sub
ca devrait peut etr emarcher ca, mais c'ets deja plus mon niveau
je debute excel...
sinon pour ton probleme:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If COUNTBLANK( range(.....) ) <>0 then
Cancel = True
endif
End Sub
ca devrait peut etr emarcher ca, mais c'ets deja plus mon niveau
je debute excel...
je te remercie pour ta reponse rapide, mais il me dit que la fonction ("countblank") est non definie.
donc je ne peux savoir si sa fonctionne.
pourrais tu m'expliquer un peu plus?
voila ma macro
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Select Case Cells(5, 1)
Case Is = Empty
GoTo fin
Case Is <> Empty
Select Case Cells(5, 6)
Case Is = Empty
GoTo fin
Case Is <> Empty
End Select
End Select
Exit Sub
fin:
MsgBox "tous les champs ne sont pas remplis"
end sub
mais dans le label fin, il faudrais que je puisse fermer la fenetre d'enregistrer sous qui c'est ouverte sans qu'il puisse y avoir de sauvegarde de faite.
merci