empêcher l´enregistrement d´un classeur

[Delors]

Slt à tous,

comment empêcher l´utilisateur(par macro) d´enregistrer un classeur?
J´ai en effet un classeur qui doit être enregistré automatiquement si l´utilisateur cherchait à le fermer. Je n´aimerai pour autant pas que l´utilisateur enregistre le classeur de lui-même.
comment faire?

merci d´avance pour tout aide.

 

[@+Thierry]

Bonjour Delors, le Forum

Il te suffit de passer par une procédure évènementielle à placer dans le Private Module de ThisWorkBook.

Vu que tu as déjà une macro qui gère la fermeture tu dois connaitre. Par contre il va falloir que tu passe par une Variable Boolean Publique (Déclarée en Top du Module)

Exemple à mettre dans le Private Module de ThisWorkBook :

Option Explicit

Dim TaBooleanPublic As Boolean

Private Sub Workbook_Open()
TaBooleanPublic = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
TaBooleanPublic = False
ThisWorkbook.Save
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = TaBooleanPublic
If TaBooleanPublic = True Then MsgBox "Enregistrement Interdit"
End Sub


Bon Samedi
@+Thierry

 

[Delors]

T´es super Thierry.
Gros merci )