Как да принудя потребителите да записват като работна книга с активиран макрос?
Когато запишете работна книга на Excel, тя ще бъде записана като файлов формат xlsx по подразбиране и този файлов формат ще премахне макро кодовете от работната книга, ако има няколко кода. За да запазите кодовете, трябва да запишете работната книга като формат на работна книга с активиране на макроси на Excel. Как можете да принудите потребителите да записват като работна книга с активиран макрос?
Принудете потребителите да записват като активирана работна книга с макроси с VBA код
Принудете потребителите да записват като активирана работна книга с макроси с VBA код
За да запазите работната книга като работна книга с макроси по подразбиране, следният VBA код може да ви помогне, моля, направете следното:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. След това кликнете два пъти Тази работна книга под VBAProject раздел, за да отворите нов празен модул, след което копирайте и поставете следния код в модула:
VBA код: Принудително запазване на работна книга като работна книга с активиран макрос по подразбиране:
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. След това запазете и затворете този прозорец с код, отсега нататък, когато потребителите запишат като тази работна книга, тя ще бъде запазена като Работна книга с активирани макроси на Excel формат по подразбиране, както е показано на следната екранна снимка:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!