Làm cách nào để buộc người dùng lưu dưới dạng sổ làm việc hỗ trợ macro?
Khi bạn lưu sổ làm việc Excel, nó sẽ được lưu dưới dạng định dạng tệp xlsx theo mặc định và định dạng tệp này sẽ loại bỏ các mã macro khỏi sổ làm việc nếu có nhiều mã. Để giữ các mã, bạn nên lưu sổ làm việc dưới dạng Excel Macro-Enable Workbook định dạng. Làm cách nào bạn có thể buộc người dùng lưu dưới dạng sổ làm việc hỗ trợ macro?
Buộc người dùng lưu dưới dạng sổ làm việc hỗ trợ macro bằng mã VBA
Buộc người dùng lưu dưới dạng sổ làm việc hỗ trợ macro bằng mã VBA
Để lưu sổ làm việc dưới dạng sổ làm việc hỗ trợ macro theo mặc định, mã VBA sau có thể giúp bạn, vui lòng thực hiện như sau:
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Sau đó nhấp đúp vào Sổ làm việc này theo dự án VBA để mở một mô-đun trống mới, sau đó sao chép và dán mã sau vào mô-đun:
Mã VBA: Buộc lưu sổ làm việc dưới dạng sổ làm việc hỗ trợ macro theo mặc định:
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. Sau đó lưu và đóng cửa sổ mã này, kể từ bây giờ, khi người dùng lưu dưới dạng sổ làm việc này, nó sẽ được lưu dưới dạng Sổ làm việc hỗ trợ macro Excel định dạng theo mặc định như ảnh chụp màn hình sau:
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!