interdire une action

[DAMIEN]

bonjour à tous

je voudrais interdire une action (enregistrer sous) dans un fichier en question.

merci

 

[Pascal76]

Bonjour Damien,


si dans Workbook_beforesave tu ajoutes la ligne ci dessous tu ne dois pas pouvoir enregistrer

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

Bon courage

Pascal