Wie kann man Benutzer zwingen, als makrofähige Arbeitsmappe zu speichern?
Wenn Sie eine Excel-Arbeitsmappe speichern, wird diese standardmäßig als XLSX-Dateiformat gespeichert, und dieses Dateiformat entfernt die Makrocodes aus der Arbeitsmappe, wenn mehrere Codes vorhanden sind. Um die Codes beizubehalten, sollten Sie die Arbeitsmappe als Excel Macro-Enable Workbook-Format speichern. Wie können Sie Benutzer zwingen, als makrofähige Arbeitsmappe zu speichern?
Benutzer zum Speichern als makrofähige Arbeitsmappe mit VBA-Code zwingen
Benutzer zum Speichern als makrofähige Arbeitsmappe mit VBA-Code zwingen
Um die Arbeitsmappe standardmäßig als makrofähige Arbeitsmappe zu speichern, kann Ihnen der folgende VBA-Code helfen: Gehen Sie folgendermaßen vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Doppelklicken Sie dann DiesesWorkbook unter dem VBAProjekt Abschnitt, um ein neues leeres Modul zu öffnen, und kopieren Sie dann den folgenden Code und fügen Sie ihn in das Modul ein:
VBA-Code: Erzwingt standardmäßig das Speichern der Arbeitsmappe als makrofähige Arbeitsmappe:
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. Speichern und schließen Sie dann dieses Codefenster. Wenn Benutzer diese Arbeitsmappe speichern, wird sie von nun an als gespeichert Excel Makroaktivierte Arbeitsmappe Formatieren Sie standardmäßig den folgenden Screenshot:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!