MyTetra Share
Делитесь знаниями!
Элементы ActiveX перестали работать или ведут себя непредсказуемо
Время создания: 16.03.2019 23:43
Текстовые метки: Обработка ошибок, On Error Goto, VBA, Error, ошибки
Раздел: !Закладки - VBA - VBA управление кодами - Ошибки-глюки
Запись: xintrea/mytetra_db_adgaver_new/master/base/1514995097lyaz8t4e5x/text.html на raw.githubusercontent.com

Элементы ActiveX перестали работать или ведут себя непредсказуемо

В Microsoft Office после определенных обновлений может появиться проблема: Перестают работать все элементы ActiveX (кнопки CommandButton, списки(Lists и ComboBox) и пр.) во всех файлах, а так же невозможно вставить любой элемент ActiveX на лист(при попытке вставки появляется сообщение Вставка объекта неосуществима), а при работе с таким файлом может появится ошибка Can't exit design mode because control cannot be created). Подробнее про вставку таких элементов на лист можно прочитать в статье: КАК СОЗДАТЬ КНОПКУ ДЛЯ ВЫЗОВА МАКРОСА НА ЛИСТЕ? Там я описывал пример вставки кнопки через ActiveX, но сути это не меняет - остальные элементы вставляются точно так же. Яркий пример - декабрьское обновление безопасности для пакета Microsoft Office (от 09.12.2014), которое призвано устранить различные уязвимости безопасности (кстати сам пакет обновлений делает исправления не только в офисе, но и в Internet Explorer(IE), Exchange и самой ОС Windows). Тогда многие пользователи оказались практически без элементов ActiveX.
При этом очевидных решений проблем как правило нет, удаление установленных обновлений не всегда решает проблему.
Если столкнулись с подобной проблемой, то можно попробовать некоторые приведенные ниже способы. Не все они выдуманы мной, некоторые взяты из форумов. Я собрал проверенные методы в одну статью. Особая благодарность за решение сей проблемы MVP Excel Владимиру Захарову, известному на форумах как ZVI.

Предупреждение: все описанные ниже действия вы выполняете на свой страх и риск и автор статьи не несет никакой ответственности за потерю каких-либо данных(в том числе форматов) вследствие неосторожного использования инструкции, а так же за какой-либо ущерб, включая все без исключения случаи упущенной выгоды или потери данных, либо других денежных потерь, ставших результатом использования или невозможности использования инструкции, даже если автор был заранее поставлен в известность о возможности подобного рода ущерба.


СПОСОБ 1
Попробуем исправить ошибку вручную.

  1. Закрыть Excel (желательно вообще все окна и приложения)
  2. Нажать одновременно клавишу Windows и R (или нажать на панели задач кнопку ПУСК и выбрать команду Выполнить. В Windows 7 и выше она может отсутствовать и её необходимо будет отобразить через настройку меню Пуск)
  3. Ввести в поле команду: %APPDATA%\Microsoft\Forms и нажать Enter
    В XP обычно это папка:
    C:\Documents and Settings\%USERNAME%\Application Data\Microsoft\Forms\
    В Win7:
    C:\Users\%USERNAME%\AppData\Roaming\Microsoft\Forms\
  4. В открывшейся папке удалить все файлы с расширением EXD
  5. Так же не помешает удалить файлы с расширением EXD из временных папок Excel и VBE: %Temp%\Excel8.0\, %Temp%\VBE\, %USERPROFILE%\Local Settings\Temp\, %USERPROFILE%\Local Settings\Temp\Excel8.0\, %SystemRoot%\Temp\VBE\, %SystemRoot%\Temp\Excel8.0\
    Если каких-то папок нет или в них нет файлов EXD - значит все хорошо и там ничего критичного нет.

СПОСОБ 2
Для тех, кто руками такое проделывать не хочет или все написанное выше китайская грамота - прикладываю BAT-файл со всеми необходимыми командами. Все, что останется - это только его запустить двойным кликом мыши (закрыв предварительно Excel и другие приложения и папки).

  fixMS_Hay.zip (423 bytes, 3 793 скачиваний)

Само содержание BAT-ника выглядит так:

@echo off del "%APPDATA%\Microsoft\Forms\*.exd" del "%APPDATA%\Microsoft\Excel\*.xlb" del "%APPDATA%\Roaming\Microsoft\Forms\*.exd" del "%Temp%\VBE\*.exd" del "%Temp%\Excel8.0\*.exd" del "%APPDATA%\Microsoft\Local\*.exd" del "%USERPROFILE%\Local Settings\Temp\*.exd" del "%USERPROFILE%\Local Settings\Temp\VBE\*.exd" del "%USERPROFILE%\Local Settings\Temp\Excel8.0\*.exd" del "%SystemRoot%\Temp\VBE\*.exd" del "%SystemRoot%\Temp\Excel8.0\*.exd"


1

2

3

4

5

6

7

8

9

10

11

12

@echo off

del "%APPDATA%\Microsoft\Forms\*.exd"

del "%APPDATA%\Microsoft\Excel\*.xlb"

del "%APPDATA%\Roaming\Microsoft\Forms\*.exd"

del "%Temp%\VBE\*.exd"

del "%Temp%\Excel8.0\*.exd"

del "%APPDATA%\Microsoft\Local\*.exd"

del "%USERPROFILE%\Local Settings\Temp\*.exd"

del "%USERPROFILE%\Local Settings\Temp\VBE\*.exd"

del "%USERPROFILE%\Local Settings\Temp\Excel8.0\*.exd"

del "%SystemRoot%\Temp\VBE\*.exd"

del "%SystemRoot%\Temp\Excel8.0\*.exd"



Если использовали Способ1 или Способ2, то для верности необходимо запустить файл с проектом VBA, открыть код(Alt+F11) и внести в код любые изменения (можно просто добавить или изменить любой комментарий), после чего скомпилировать проект в ручном режиме из меню: Debug=>Compile VBAProject. Сохранить файл. Попробовать работу ActiveX, в том числе на других ПК.



СПОСОБ 3
Самый верный способ для тех, кому нечего терять :-) Переустановка Windows. Можно еще попробовать сделать откат обновлений, но как показала практика откат не далеко не всегда решает проблему. Переустановка офиса помогает еще реже, судя по отзывам тех, кто столкнулся с проблемой. Т.е. переустановка может помочь, а может и нет. Как поступить в этом случае решайте сами.



СПОСОБ 4
Вспомнить в какой момент это все началось и проверить обновления офиса и безопасности за этот период от Microsoft. Если таковые были - перейти на страницу обновлений, изучить что в них вошло. И терпеливо ждать исправления проблемы от Microsoft.



И напоследок - элементы ActiveX сами по себе считаются устаревшими и я бы не рекомендовал их использовать без крайней необходимости, во избежание ситуаций, описанных в этой статье. Для запуска макроса кнопкой есть и другие методы, более стабильные.

Прикрепленные файлы:
 
MyTetra Share v.0.59
Яндекс индекс цитирования