Excel после макрос не работает

Не работают макросы в Excel? Включите их выполнение, добавьте специальный модель с кодом, проверьте версию ОС и Эксель, убедитесь в соответствии пакета приложений, активируйте Майкрософт Офис, снимите блокировку файла, проверьте систему безопасности и применяемые библиотеки. Ниже подробно рассмотрим, в чем могут быть причины подобной неисправности, и какие шаги предпринимать для ее устранения.

Причины

Для начала стоит разобраться, почему не работает макрос в Excel, ведь от этого зависят дальнейшие шаги. К основным причинам стоит отнести:

  1. Функция отключена.
  2. Отключение отслеживания событий.
  3. Устаревшая операционная система.
  4. Несоответствие разработчика пакета офисных приложений.
  5. Устаревшая версия Майкрософт Офис.
  6. Неактивированная версия Excel.
  7. Заблокированный файл.
  8. Неправильные настройки безопасности.
  9. Отсутствие необходимой библиотеки и т. д.

Выше рассмотрены основные причины, почему не удается выполнить макрос в Excel. Все они могут быть решены самостоятельно с помощью приведенных ниже рекомендации. Подробнее на решении вопроса остановимся ниже.

Что делать

Многие пользователи теряются в ситуации, когда не включаются или вообще не работают макросы в Excel. Такая проблема не дает нормально пользоваться приложением и заставляет искать альтернативные варианты.

Включите опцию

Первое, что необходимо сделать — включить функцию для обеспечения ее работоспособности. Здесь многое зависит от версии Эксель.

Если не работают макросы в Excel 2003, сделайте следующие шаги:

  1. Войдите в «Сервис».
  2. Перейдите в раздел «Безопасность».
  3. Кликните «Уровень макросов «Низкий».

В случае, когда не работают макросы в Excel 2007, включите их следующим образом:

  1. Жмите на кнопку «Офис».
  2. Войдите в параметры Excel.
  3. Кликните на «Центр управления безопасности».
  4. Войдите в «Параметры центра управления безопасностью».
  5. Жмите на «Параметры макросов».
  6. Кликните на «Разрешить все …».

В ситуации, когда не работают макросы в Excel 2016, сделайте следующие шаги:

  1. Войдите в раздел «Файл».
  2. Кликните на кнопку «Параметры».
  3. Зайдите в «Центр управления безопасностью».
  4. Войдите в «Параметры центра управления безопасностью».
  5. Кликните на «Параметры …».
  6. Жмите на «Разрешить все …».

После внесения изменений параметра безопасности перезапустите приложение Excel, а именно закройте его полностью и откройте снова. Лишь после этого изменения вступают в силу.

Добавьте нужный модуль в книгу

Бывают ситуации, когда макросы включены, но не работают в Excel из-за отключения каким-либо элементом отслеживания событий. В таком случае сделайте следующее:

  1. Перейдите в редактор VBA с помощью клавиш Alt+F11.
  2. Вставьте указанный ниже код.

Sub Reset_Events()

Application.EnableEvents = True

End Sub

  1. Для выполнения кода поставьте курсор в любой точке между началом и концом.
  2. Кликните F5.

Проверьте операционную систему

В ситуации, когда не отображаются макросы в Excel, обратите внимание на тип операционной системы. К примеру, Майкрософт Офис, который подходит для Виндовс, на Мак ОС уже работать не будет. Причина в том, что в приложении используются разные библиотеки. Даже если надстройки и функционируют, могут быть сбои в работе. Вот почему при появлении проблем нужно проверить ОС на соответствие.

Обратите внимание на разработчика

Если в Экселе не работают макросы, причиной может быть другой разработчик. Так, пользователи Excel часто применяют OpenOffice или LibreOffice. Эти пакеты созданы на разных языках программирования, которые имеют индивидуальные особенности. Так, если надстройки написаны на Visual Basic for Application, он может не работать в указанных выше офисных приложениях. Вот почему необходимо уточнять, для какого пакета создан макрос / надстройка.

Проверьте версию Майкрософт Офис

В Макрософт Офис 2003 применяются надстройки xla для Excel. В современных версиях расширение поменялось на xlam. Если ставить макросы старого типа в приложения Офис 2007 и больше, никаких трудностей не происходит. Если же вы попытаетесь поставить новую надстройку на старую версию Excel, она зачастую не работает. Вот почему важно обратить внимание на этот параметр при выборе.

Убедитесь в наличии пакета VBA

Одной из причин, почему не запускается макрос в Excel, может быть отсутствие пакета VBA. Для успешного запуска надстройки необходимо, чтобы этот пакет был установлен. Иногда он уже установлен в Офис, но так происходит не всегда. Для проверки жмите комбинацию на Alt+F11. Если после этого появляется Visual Basic, компонент можно считать установленным. В ином случае его нужно поставить. Для этого:

  • Зайдите в «Пуск», а далее «Панель управления / Программы и компоненты».

  • Выберите программу Майкрософт Офис.
  • Жмите на кнопку «Изменить».

  • Запустить файл установки Setup.exe.
  • Кликните на «Добавить или удалить компоненты».
  • Выберите в списке Visual Basic и установите его.

Активируйте Офис

Если в Excel 2007 не работает кнопка «макросы», причиной может быть отсутствие активации приложения. Для этого жмите на кнопку «Активировать» и следуйте инструкции. В большинстве случаев такая опция является платной.

Снимите блокировку файла

Учтите, что документ, полученный с другого ПК / ноутбука, может заблокироваться. Для разблокировки файла нужно нажать ПКМ и в разделе «Общие» кликнуть на «Разблокировать».

 Проверьте библиотеки

В случае, когда параметры макросов не активны в Excel, причиной может быть появление ошибки «Can’t find project or library». При этом, надстройка работает на другом ПК / ноутбуке, а здесь возникают проблемы. Ошибку легко устранить, если в окне, которое идет за сообщением об ошибке, снять отметки в полях Missing. Для вызова окна можно выбрать пункт меню Tools / References.

Проверьте настройки безопасности

В ситуации, когда не работают макросы в Excel, можно добавить надежные расположения или настроить доступ к объектной модели VBA. Для этого в Офис 2007 необходимо сделать следующее:

  1. Войдите в Меню
  2. Кликните на пункт «Параметры».
  3. Жмите на «Центр управления безопасностью».
  4. Войдите в «Параметры центра управления безопасностью».
  5. Кликните на «Параметры макросов» и «Доверять доступ к объектной модели проектов».

Зная, почему не работают макросы в Excel, вы можете с легкостью исправить проблему и восстановить работоспособность. Если же сложности в работе возникают, вы всегда можете воспользоваться инструкцией в статье.

В комментариях расскажите, какой из приведенных выше вариантов вам помог, и что еще можно сделать.

Отличного Вам дня!

Хитрости »

1 Май 2011              131638 просмотров


Почему не работает макрос?

Предположим, Вы скачали файл с данного сайта с примером макроса, открываете файл, но макросы в нем не работают! Как такое может быть? Неужели автор сайта выложил неработающий пример и не знает об этом? И тем более как может случиться такое, что Вы перенесли со своего ПК на другой ПК файл с рабочими макросами на флешке, запускаете, а он не работает… Почему? Вроде все правильно делаете, да ведь и у Вас работает на ПК. И начинает закрадываться мысль: «А чем же этот ПК и Excel на нем такие особенные?». А ответ может быть прост — перед выполнением макроса не было разрешено выполнение этих самых макросов. Да, в большинстве случаев по умолчанию выполнение макросов в Excel отключено. И их надо включить. Для этого:

  • Excel 2003:
    Сервис-Безопасность-Уровень макросов «Низкий»
  • Excel 2007:
    Кнопка ОфисПараметры Excel(Excel Options)Центр управления безопасностью(Trust Centr)Параметры центра управления безопасностью(Trust Centr Settings)Параметры макросов(Macro Settings)Разрешить все макросы(Enable All Macros)
  • Excel 2010-2016:
    Файл(File)Параметры(Options)Центр управления безопасностью(Trust Centr)Параметры центра управления безопасностью(Trust Centr Settings)Параметры макросов(Macro Settings)Разрешить все макросы(Enable All Macros)
  • ВАЖНО! После изменения параметров безопасности макросов необходимо перезапустить приложение Excel: закрыть его полностью(т.е. закрыть все файлы Excel) и открыть заново. Только после этого изменения вступят в силу.

Если макросы уже включены, но некоторые макросы отказываются работать (как правило те, которые записаны в модулях листов и книг и запускаются при наступлении определенного события — Worksheet_SelectionChange (выделение ячеек), Worksheet_Change (изменение значений ячеек) и т.п.), то скорее всего когда-то вы выполнили какой-нибудь макрос и он отключил отслеживание событий. Тогда надо в любую активную книгу добавить модуль(переходим в редактор VBA(Alt+F11) —InsertModule), вставить в него приведенный ниже код и запустить:

Sub Reset_Events()
    Application.EnableEvents = True
End Sub

чтобы запустить(выполнить) данный макрос макрос необходимо установить курсор в любое место между Sub и End Sub и нажать клавишу F5.

Так же см.:
Управление безопасностью макросов
Как запустить файл с включенными макросами?


Статья помогла? Поделись ссылкой с друзьями!

  Плейлист   Видеоуроки


Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

  • Remove From My Forums
  • Вопрос

  • Сегодня прилетела куча обновлений MS Office (2007, 2010, 2013) после их установки перестали работать макросы в книгах Exel — кнопка макроса «не нажимается». При открытии файла никаких уведомлений о заблокированном
    содержимом нет.

    Даже если принудительно в настройках безопасности разрешить все макросы — ничего не происходит, кнопки макросов по прежнему не нажимаются, никаких уведомлений о заблокированном содержимом нет. Где копать?

    ps: обновления датированы 9 декабря 2014

    • Изменено

      11 декабря 2014 г. 8:19

Ответы

  • Здравствуйте,

    Посмотрите английскую ветку обсуждения данного вопроса, там несколько временных решений 

    Excel 2010 macros does not work after updates 9.Dec.2014

    Станислав: Для Office 2013 — KB2726958


    Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется как есть, без каких-либо гарантий. Не забывайте помечать сообщения как ответы и полезные, если
    они Вам помогли.

    • Изменено
      Elina Lebedeva
      12 декабря 2014 г. 13:09
    • Предложено в качестве ответа
      Nutslyc
      12 декабря 2014 г. 14:15
    • Помечено в качестве ответа
      ЖукMVP, Moderator
      12 декабря 2014 г. 15:00

  • Столкнулся с той же самой проблемой. Нашел решение — может кому пригодится:

    1. Меняем все кнопки ActiveX на кнопки из группы «Элементы управления формы»

    2. Меняем в коде функции, которые висели на кнопках, с Private на Public

    3. Переходим в режим конструктора, правой кнопкой по добавленной кнопке элемента управления формы -> назначить макрос

    4. Далее радуемся жизни и работающему коду.

    P.S. у меня отвалился весь функционал на нескольких проектах. Наши админы были очень рады, когда им пришлось сносить обновления на всех машинах.

    P.P.S. Решение протестировал на 2-х машинах — все заработало без проблем. Хотел пост с картинками, но не дает вставлять картинки)

    • Изменено
      Nutslyc
      12 декабря 2014 г. 7:43
    • Предложено в качестве ответа
      ILYA [ sie ] SazonovModerator
      12 декабря 2014 г. 11:01
    • Помечено в качестве ответа
      ЖукMVP, Moderator
      12 декабря 2014 г. 15:00

 

AdelaidaGermanova

Пользователь

Сообщений: 15
Регистрация: 11.10.2017

#1

01.08.2018 16:19:46

После выполнения вот такого макроса эксель странно себя ведет: перестает работать выделение ячеек, тыкаю — визуализация выбора ячейки не работает. Не всегда ячейка, на которую тыкаю, выбирается, при вводе значения значение появляется во внезапных местах. Офис 2016.
Закрываю и сохраняю такой некорректно работающий файл, открываю заново — работает все.
Почему?? Как поправить?

методом тыка нашла, что проблема тут » Selection.Value = Selection.Value» — если убираю, то эксель не отваливается, но и макрос не работает, как надо

Код
Sub correct()

'найти неразрывные пробелы и убрать
  On Error Resume Next
  With ActiveSheet.Cells
    .Replace " ", "", xlPart
End With
'преобразовать текст в числа
    Range("a1:p200").Select
    Selection.NumberFormat = "General"
    Selection.Value = Selection.Value
    
'столбик с кодом строки
    Range("Q2").Select
    ActiveCell.FormulaR1C1 = "=RC[-16]&RC[-15]"
    Range("Q2").Select
    Selection.AutoFill Destination:=Range("Q2:Q100"), Type:=xlFillDefault
   ' Range("Q2:Q100").Select
End Sub

Изменено: AdelaidaGermanova01.08.2018 16:34:08

 

Inexsu

Пользователь

Сообщений: 758
Регистрация: 29.06.2017

#2

01.08.2018 16:44:16

Привет!

Данных нет. Без проверки

Код
Option Explicit

Sub correct()

    'найти неразрывные пробелы и убрать
    On Error Resume Next
    With ActiveSheet.Cells
        .Replace " ", "", xlPart
    End With
    'преобразовать текст в числа
    With Range("a1:p200")
        .NumberFormat = "General"
        .Value = .Value
    End With

    'столбик с кодом строки
    With Range("Q2")
        .FormulaR1C1 = "=RC[-16]&RC[-15]"
        .AutoFill Destination:=Range("Q2:Q100"), Type:=xlFillDefault
    End With
    ' Range("Q2:Q100").Select
End Sub

Сравнение прайсов, таблиц — без настроек

 

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

Как правильно тему назвать?

 

AdelaidaGermanova

Пользователь

Сообщений: 15
Регистрация: 11.10.2017

#4

01.08.2018 16:53:25

Цитата
Inexsu написал:

проблема остается
прикладываю файл с данными
макрос призван сразу же после вставки данных преобразовывать их в удобный вид

Цитата
vikttur написал:
Как правильно тему назвать?

» 2.1. Название темы должно отражать смысл проблемы. Темы с названиями «Помогите», «Help», «Срочно», «Нужен макрос» — плохая идея. Модераторы имеют право переименовать, удалить или закрыть такие темы без предупреждения.»
Мне показалось, название моей темы отражает суть. Прошу прощения, если неправильно поняла:( Как же мне теперь все поправить?

Изменено: AdelaidaGermanova02.08.2018 10:30:42

 

sokol92

Пользователь

Сообщений: 4445
Регистрация: 10.09.2017

#5

01.08.2018 17:15:36

В начале макроса поставьте

Код
Application.EnableEvents = False

в конец

Код
Application.EnableEvents = True

Владимир

 

AdelaidaGermanova

Пользователь

Сообщений: 15
Регистрация: 11.10.2017

#6

01.08.2018 17:35:56

Цитата
sokol92 написал:
Application.EnableEvents = False

заработало!
спасибо огромное

 

название темы:
макрос работает не так, как предполагалось. помогите найти ошибку.

AdelaidaGermanova,
улавливаете разницу не корректно работает не Excel. а написанный Вами макрос

Изменено: Ігор Гончаренко01.08.2018 18:03:51

Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

 

AdelaidaGermanova

Пользователь

Сообщений: 15
Регистрация: 11.10.2017

#8

01.08.2018 18:00:26

Цитата
Ігор Гончаренко написал:
улавливаете разницу некорректно работате не Excel. а написанный Вами макрос

если выпендриваться, можно тут и поспорить: макрос сделал то, что я просила, а вот уже эксель не слушается) Но замечание на будущее учту, благодарю

Изменено: AdelaidaGermanova01.08.2018 18:06:12

 

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

Задача должна быть понятна по названию. У Вас  некорректная работа Excel после  выполнения ЛЮБОГО макроса? Посетитель после прочтения заголовка должен понимать, стоит ли ему заходить в тему.

Сообщение №4. Вы о цитировании что-нибудь слышали? Для чего, что это такое? Это точно не бездумое копирование кода. Прошу привести сообщение в порядок.

 

vikttur, Вы необычайно строги на этот раз.
Правильно было бы так: «некорректная работа эксель после выполнения макроса по приведению данных в обрабатываемый вид»?

Изменено: AdelaidaGermanova02.08.2018 10:41:04

 

TheBestOfTheBest

Пользователь

Сообщений: 2366
Регистрация: 03.04.2015

Excel 2010 +PLEX +SaveToDB +PowerQuery

#11

02.08.2018 10:55:25

Excel 2010,  после запуска макроса из #1 на пустом листе все работает, все выделяется. все визуализируется.
Но макрос лучше скорректировать.

Код
sub correct()
 
'найти неразрывные пробелы и убрать
On Error Resume Next
ActiveSheet.UsedRange.Replace " ", "", xlPart

'преобразовать текст в числа
with Range("a1:p200")
    .NumberFormat = "General"
    .Formula = .Value
end with

'столбик с кодом строки
Range("Q1:Q100").FormulaR1C1 = "=RC[-16]&RC[-15]"

End Sub

Изменено: TheBestOfTheBest02.08.2018 10:56:04

Неизлечимых болезней нет, есть неизлечимые люди.

 

TheBestOfTheBest, что интересно — вчера я пробовала перезагружаться и перезапускаться, проблема не исчезала, сегодня — у меня у самой все корректно работает и с изначальным вариантом кода…
Спасибо за Ваш вариант! Я в vba не очень разбираюсь, методом гугла и тыка все задачи решаю, поясните мне, пожалуйста, Ваш вариант только красивее и короче или там крылась бы еще более быстрая обработка на больших массивах данных?  

Изменено: AdelaidaGermanova02.08.2018 11:08:55

 

TheBestOfTheBest

Пользователь

Сообщений: 2366
Регистрация: 03.04.2015

Excel 2010 +PLEX +SaveToDB +PowerQuery

Из кода убраны Select-ы, они не нужны, а время на выполнение этих команд занимает львиную долю в вашем коде. Кроме этого, похоже что глючит именно Excel 2016, неверно работает с видеодрайвером/видеокартой компа. На 2010 такое тоже бывает. но реже. Соответственно, нет Select-ов снижение разов работы с видеокартой, ускорение кода. Правда на Ваших объемах этого не заметно.

Изменено: TheBestOfTheBest02.08.2018 11:14:29

Неизлечимых болезней нет, есть неизлечимые люди.

 

AdelaidaGermanova

Пользователь

Сообщений: 15
Регистрация: 11.10.2017

#14

02.08.2018 11:21:38

TheBestOfTheBest, спасибо большое!

Не так давно очередной раз столкнулся с ошибками приложения Excel при попытке включения макросов после открытия файлов .xlsm. Вспомнил, что подобные проблемы преследуют пользователей довольно давно, но чаще всего они наблюдались с Excel 2013 и Excel 2016. Характерные особенности этой группы ошибок следующие:

  • Приложение Excel закрывается при открытии файла с макросами (при включенном режиме безопасности Включить все макросы);
  • Ошибка приложения Excel возникает при попытке включить содержимое (нажатии соответствующей кнопки);
  • Ошибка приложения Excel возникает при сохранении файла с макросами;

Ну и по горячим следам очередного инцидента, дабы не откладывать на потом, решил для себя собрать небольшой хаб по ошибкам приложения Excel с последующей модификацией, дабы опять не терять время на поиск информации в Сети и на составление облака причин.
Суть в том, что в процессе открытия файла xlsm, и при отключенных макросах, в верхней части основного окна (над таблицей), высвечивается строка уведомления: ПРЕДУПРЕЖДЕНИЕ СИСТЕМЫ БЕЗОПАСНОСТИ Запуск макросов отключен, с кнопкой включения содержимого (макросов). Как только пользователь её нажимает, Excel попросту аварийно завершается (падает) с ошибкой Программа Microsoft Excel не работает и характерным окном уведомления:

excel ошибка макроса

При этом было замечено, что непосредственно перед возникновением ошибки приложения Excel никаких системных обновлений и обновлений пакета Office не устанавливалось. Возможно, каким-то образом задействованы последние обновления на Office, но прямой связи я не заметил, а подробного исследования проблемы не проводил. При этом зависимости от версии операционной системы (мною лично сбои наблюдались на Windows 10 LTSC и Windows 7 Professional) так же выявлено не было. При анализе аварийного дампа приложения (*.hdmp) обычно можно увидеть подобную информацию исключения (вывод урезан):

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

. . .

EXCEPTION_RECORD:  (.exr 1)

ExceptionAddress: 00007ff86a1e05ac (VBE7+0x00000000001405ac)

   ExceptionCode: c0000005 (Access violation)

  ExceptionFlags: 00000000

NumberParameters: 2

   Parameter[0]: 0000000000000001

   Parameter[1]: 0000000000000010

Attempt to write to address 0000000000000010

DEFAULT_BUCKET_ID:  NULL_CLASS_PTR_WRITE

PROCESS_NAME:  EXCEL.EXE

ERROR_CODE: (NTSTATUS) 0xc0000005 <Unable to get error code text>

EXCEPTION_CODE: (NTSTATUS) 0xc0000005 <Unable to get error code text>

EXCEPTION_CODE_STR:  c0000005

EXCEPTION_PARAMETER1:  0000000000000001

EXCEPTION_PARAMETER2:  0000000000000010

WRITE_ADDRESS:  0000000000000010

. . .

обычно это NTSTATUS с кодом c0000005 — Access violation, доступ запрещен. И чаще всего в дампе можно увидеть такой вот стек потока (вывод оптимизирован для улучшения представления):

. . .

STACK_TEXT:  

000000b9`1acfdd00 000001d3`2fb24e90 : 000001d3`5a0e0ef0 00000000`00000000 : VBE7+0x1405ac

000000b9`1acfdd08 000001d3`24c1fe20 : 00000000`00000000 000001d3`2fda9640 : 0x000001d3`2fb24e90

000000b9`1acfdd10 000001d3`6cf35760 : 000001d3`2fda9640 000001d3`045c9b30 : 0x000001d3`24c1fe20

000000b9`1acfdd18 000001d3`5a0e0ef0 : 000001d3`045c9b30 000001d3`2fcbb2b0 : 0x000001d3`6cf35760

000000b9`1acfdd20 00000000`00000000 : 000001d3`2fcbb2b0 000001d3`2fcbb318 : 0x000001d3`5a0e0ef0

. . .

из которого единственное что понятно, так это то, что падение Excel происходит в недрах функций библиотеки vbe7.dll (среда исполнения VBA), подгруженной в адресное пространство процесса. Это указывает на проблемы с обработчиком VBA-скриптов, в контексте Excel чаще именуемых макросами.

НЕРЕШЕННОЕ: при отладке приложений из комплекта MS Office, вы не увидите имен функций в стеке вызовов, поскольку отсутствуют отладочные символы как к основным исполняемым файлам (Excel/Word/Outlook), так и к многочисленным библиотекам. Интересно, есть ли какое-либо решение?

VBA

Так что же такое VBA и для чего он предназначается?

VBA (Visual Basic for Application) — язык макропрограммирования, основанный на языке Visual Basic.

В приложениях, входящих в комплект MS Office, таких как Excel, Word, PowerPoint и Access, VBA используется для автоматизации множества рутинных задач (напр.: повторяющихся однотипных действий), позволяет создавать формы для общения с пользователем и предлагает множество иного богатого функционала. При помощи VBA доступно управление электронной таблицей посредством объектно-ориентированной модели кода/данных, при помощи VBA-кода входные данные таблиц могут быть обработаны и представлены в итоговых (результирующих) таблицах и диаграммах (графиках). Таблица становится интерфейсом кода, позволяя легко работать, изменять его и управлять расчётами. На выходе VBA проект, используемый в структурах описанных выше приложений (электронные таблицы Excel, презентации PowerPoint, базы Access), компилируется в специальный бинарный исполняемый файл, который размещается внутри файла основного формата. Применительно к Excel это файл vbaProject.bin, который располагается внутри *.xslm-файла в директории /xl, представляющий собой бинарный исполняемый файл проекта, содержащий макрос в откомпилированном (готовом к исполнению) виде.

Наиболее вероятной причиной сбоя является повреждение блока кода VBA, содержащегося в книге Excel. Об истоках этого остается только догадываться, возможно что в структуре .xlsm-файла, в процессе работы с документом, происходят какие-то [непредвиденные разработчиками] изменения, способные приводить блок кода в неработоспособное состояние.

Решение 1: вставка нового листа

Выполните приведенную последовательность действий:

  1. Открываем [проблемный] .xlsm-файл (файл с макросами).
  2. Не нажимаем кнопку Включить содержимое.
  3. Добавляем в книгу Excel новый лист: правая кнопка мыши на ярлыках Лист1/Лист2/Лист3 → ВставитьЛист.
  4. Сохраняем электронную таблицу. Закрываем Excel.
  5. Открываем проблемный файл заново и включаем макросы.

Решение 2: перекомпиляция проекта

Выполните последовательность действий:

  1. Запускаем и открываем новую книгу Excel (не ваш проблемный файл).
  2. Открываем меню Файл — выбираем Параметры — далее открываем Центр управления безопасностью и заходим в Параметры центра управления безопасностью.
  3. В разделе Параметры макросов — выставляем чекбокс Отключить все макросы с уведомлением.
  4. В разделе Надежные расположения — выставляем чекбокс Отключить все надежные расположения.
  5. В разделе Надежные документы — выставляем чекбокс Отключить надежные документы.
  6. Жмем везде OK. Закрываем Excel.

  7. Открываем [проблемный] .xlsm-файл (файл с макросами).
  8. Не нажимаем кнопку Включить содержимое.
  9. Открывает редактор Visual Basic при помощи комбинации клавиш Alt+F11. Либо можно использовать обходной маневр: в настройках включаем меню Разработчик, после этого в появившемся сверху в ленте меню Разработчик выбираем пункт Visual Basic.
  10. В открывшемся окне редактора Visual Basic (VBA редактор) пересохраняем проект: для этого жмем на панели инструментов кнопку Сохранить (изображение дискетки или комбинация Ctrl+S).
  11. Выбираем из меню Debug — выбираем пункт меню Compile VBA Project:

    recompile vba project

  12. Еще раз сохраняем проект кнопкой Сохранить.
  13. Закрываем редактор Visual Basic.

  14. Сохраняем файл Excel через меню Файл — опцию Сохранить (или нажатием на значок дискетки в левом верхнем углу, либо комбинация клавиш Ctrl+S).
  15. Возвращаем все установки безопасности, сделанные на предыдущих шагах (пункты 2-5).
  16. Закрываем xlsm-файл.
  17. Заново открываем [проблемный] файл, в верхней части, в строке статуса — включаем макросы посредством кнопки Включить содержимое.

Решение 3: добавление модуля

Дополнительное решение состоит в том, что бы внести изменения в макрос без перекомпиляции.

  1. Открываем [проблемный] .xlsm-файл (файл с макросами).
  2. Не нажимаем кнопку Включить содержимое.
  3. Открывает редактор Visual Basic (при помощи комбинации клавиш Alt+F11).
  4. Открываем меню Tools → пункт Options. В открывшемся окне переходим на вкладку General и деактивируем чекбокс Compile on Demand:

    compile on demand

    Закрываем окно Опции нажатием клавиши OK.

  5. В левом фрейме окна проекта (Project) спускаемся вниз, находим раздел Modules, жмем на нём правую кнопку → пункт InsertModule:

    vba insert module

  6. Далее просто закрываем окно редактора Visual Basic, сохраняем основной xslm-документ и закрываем Excel.
  7. Заново открываем [проблемный] файл, в верхней части, в строке статуса — включаем макросы посредством кнопки Включить содержимое.

Понравилась статья? Поделить с друзьями:
  • Excel после каждой строки вставить еще
  • Excel после знака перенести
  • Excel после запятой убирает ноль
  • Excel после закрытия остается процесс
  • Excel посещаемость по городам