Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як змусити користувачів зберігати як книгу з підтримкою макросів?

Коли ви зберігаєте книгу Excel, вона буде збережена у форматі файлу xlsx за замовчуванням, і цей формат файлу позбавить від макрокодів з книги, якщо є кілька кодів. Щоб зберегти коди, слід зберегти книгу у форматі Excel Macro-Enable Workbook. Як ви могли змусити користувачів зберігати як книгу з підтримкою макросів?

Змусити користувачів зберігати як книгу з підтримкою макросів із кодом VBA


стрілка синя права міхур Змусити користувачів зберігати як книгу з підтримкою макросів із кодом VBA

Щоб зберегти книгу як книгу за замовчуванням із підтримкою макросів, вам може допомогти такий код VBA, зробіть так:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Потім двічі клацніть ThisWorkbook під 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

doc force save як xlsm 1

3. Потім збережіть і закрийте це вікно коду, відтепер, коли користувачі зберігатимуть цю книгу, вона буде зберігатися як Книга Excel з підтримкою макросів формат за замовчуванням, як показано на наступному скріншоті:

doc force save як xlsm 2


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    rdmason@tmo.com · 2 years ago
    Any way to have this VBA in a file that is a true template file type?
    • To post as a guest, your comment is unpublished.
      PatrickF · 1 years ago
      When you are ready to create the template, I believe you must use the Immediate Window to run
      ActiveWorkbook.SaveAs Filename:="ENTER YOUR TEMPLATE NAME", FileFormat:=xlOpenXMLTemplateMacroEnabled
  • To post as a guest, your comment is unpublished.
    Rich · 2 years ago
    Any way to have this VBA in a template file
  • To post as a guest, your comment is unpublished.
    Jonathan · 2 years ago
    Keep getting a 1004 ERROR.
    Using Off365 2016 for MAC. Got a solutions?
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      Hello, Jonathan,
      This code works well in Windows Office, but it not tested in MAC.
      You should search for a code for working in MAC.
      Thank you!
  • To post as a guest, your comment is unpublished.
    Shazza · 2 years ago
    fileformat: =52 is a nicer was as making macro enabled workbook. fileformat:=51 is normal workbook.
  • To post as a guest, your comment is unpublished.
    brevig.madison@gmail.com · 3 years ago
    I'm using Excel 2016 for Mac, and when I use this VBA code to achieve the "force save as .xlsm" I get the following error:

    Run-time error '1004':

    Method 'GetSaveAsFilename' of object '_Application' failed

    Any guidance someone could provide around this error and how I may need to adjust the code to work on the Mac version of Excel would be greatly appreciated!
  • To post as a guest, your comment is unpublished.
    ProbablyNotLadyGaga · 3 years ago
    Nice one!

    Saved me a lot of headache! :)
  • To post as a guest, your comment is unpublished.
    RM · 4 years ago
    Saved me a lot of pain - thanks so much
  • To post as a guest, your comment is unpublished.
    AFF · 4 years ago
    This was so useful and worked like a charm thank you :)