OVH Cloud OVH Cloud

Macro Workbook_BeforeSave

2 réponses
Avatar
Philippe
Bonjour,

Je souhaite intégrer dans un classeur une macro empêchant la sauvegarde de
modifications par l'utilisateur.

Cette macro est :

Private Sub Workbook_beforeSave (By Val SaveAsUI As Boolean, Cancel As
Boolean)
Cancel = True
End Sub

Mais quand je veux sauvegarder mon classeur, la macro m'empêche de le faire
(normal, me direz-vous!). Comment faire pour contourner ce problème ?

Merci d'avance

2 réponses

Avatar
Philippe
Bonjour,

Et pourquoi pas une petite macro qui ferait :

1. Application.EnableEventsúlse
2. ActiveWorkBook.Save
3. Application.EnableEvents=true

Cordialement

Philippe

Bonjour,

Je souhaite intégrer dans un classeur une macro empêchant la sauvegarde de
modifications par l'utilisateur.

Cette macro est :

Private Sub Workbook_beforeSave (By Val SaveAsUI As Boolean, Cancel As
Boolean)
Cancel = True
End Sub

Mais quand je veux sauvegarder mon classeur, la macro m'empêche de le faire
(normal, me direz-vous!). Comment faire pour contourner ce problème ?

Merci d'avance


Avatar
AV
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub

AV