Wie können Sie Benutzer zwingen, eine Excel-Arbeitsmappe als makrofähige Datei zu speichern?
Wenn Sie eine Excel-Arbeitsmappe speichern, wird standardmäßig das .xlsx-Dateiformat verwendet, das keine Makros unterstützt und jeglichen Makrocode in der Arbeitsmappe entfernt. Um die Codes beizubehalten, sollten Sie die Arbeitsmappe im Format „Makrofähige Excel-Arbeitsmappe“ speichern. Wie könnten Sie Benutzer zwingen, die Arbeitsmappe als makrofähig zu speichern?
Benutzer mit VBA-Code zwingen, als makrofähige Arbeitsmappe zu speichern
Benutzer mit VBA-Code zwingen, als makrofähige Arbeitsmappe zu speichern
Um sicherzustellen, dass die Arbeitsmappe standardmäßig als makrofähige Arbeitsmappe gespeichert wird, können Sie den folgenden VBA-Code verwenden. Bitte folgen Sie diesen Schritten:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Doppelklicken Sie dann auf ThisWorkbook im Abschnitt VBAProject, um ein neues leeres Modul zu öffnen, und kopieren Sie den folgenden Code in das Modul:
VBA-Code: Erzwingen, dass die Arbeitsmappe standardmäßig als makrofähige Arbeitsmappe gespeichert wird:
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. Von nun an wird die Arbeitsmappe bei der Speicherung standardmäßig im Format „Makrofähige Excel-Arbeitsmappe“ gespeichert, wie im folgenden Screenshot gezeigt:
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins