Comment forcer les utilisateurs à enregistrer un classeur Excel au format de fichier avec macros activées ?

Lorsque vous enregistrez un classeur Excel, il est par défaut au format de fichier .xlsx, qui ne prend pas en charge les macros et supprimera tout code macro dans le classeur. Pour conserver les codes, vous devez enregistrer le classeur au format Classeur Excel avec macros activées. Comment pourriez-vous forcer les utilisateurs à enregistrer sous forme de classeur avec macros activées ?

Forcer les utilisateurs à enregistrer sous forme de classeur avec macros activées via du code VBA

Forcer les utilisateurs à enregistrer sous forme de classeur avec macros activées via du code VBA

Pour garantir que le classeur soit enregistré par défaut au format avec macros activées, vous pouvez utiliser le code VBA suivant. Veuillez suivre ces étapes :

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Double-cliquez ensuite sur ThisWorkbook dans la section VBAProject pour ouvrir un nouveau module vierge, puis copiez et collez le code suivant dans le module :

Code VBA : Forcer l'enregistrement du classeur au format avec macros activées par défaut :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updateby Extendoffice
Dim xFileName As String
If SaveAsUI <> False Then
    Cancel = True
    xFileName = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", , "Save As xlsm file")
    If xFileName <> "False" Then
      Application.EnableEvents = False
      ActiveWorkbook.SaveAs Filename:=xFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
      Application.EnableEvents = True
    Else
      MsgBox "Action Cancelled"
      Cancel = True
      Exit Sub
    End If
End If
End Sub

3. Ensuite, enregistrez et fermez cette fenêtre de code. Désormais, lorsque les utilisateurs enregistrent ce classeur, il sera automatiquement sauvegardé au format Classeur Excel avec macros activées, comme illustré dans la capture d'écran suivante :