Empecher "enregistrer sous "

Bonjour Groupe.

J'ai besoin d'aide. J'ai un fichier avec des macro (donc XLSM). Le fichier est modifié par différents utilisateurs.

Toutefois, j'ai des utilisateurs qui le sauve en XLSX. donc qui retire les macro. Est-ce qu'il y a une facon que les utilisateurs puissent modifier le fichier mais ne puisse pas modifier le type de fichier.

Merci de votre support

Bonjour La_baie_1976

Oui, il faut jouer avec l'évènement BeforeSave de ThisWorkbook je pense

A+

Bonjour,

En effet avec ce code, la version originale en xlsM sera sauvegardée avec le même nom et à son emplacement avant que le "enregistrer sous" soit entièrement lancé :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ActiveWorkbook.Save
End Sub

@ bientôt

LouReeD

Bonjour,
A tester !...
Cdlt.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then
        Cancel = True ' Annule uniquement l'option "Enregistrer Sous"
        MsgBox "L'option 'Enregistrer Sous' est désactivée pour ce fichier.", vbExclamation
    End If
End Sub