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 :
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office, et facilite grandement votre travail
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 %, et réduit des centaines de clics de souris pour vous chaque jour !