Период работы макроса.

[Klim Bassenger]

А как еще осуществить такую штуку:
интернет не всегда работает... Нужно как-то обойти проблему... Или дополнительное решение найти...

[doober]

ТО Klim Bassenger
вы конкретно должны определиться 0что хотите в конечном результате получить,при каких условиях.Полумеры не катят.
Тогда и будет конкретное решение

ТО segail

Function  Killer_UserForm( Form_Name As String)

    For Each iVBComponent In ThisWorkbook.VBProject.VBComponents
        With iVBComponent
          For Each iVB In .Collection
            Select Case iVB.Name
                Case Form_Name
             
               iVB.CodeModule.DeleteLines 1, iVB.CodeModule.countoflines
            End Select
          
               Next
            
        End With
    Next
 
 End Sub

[Klim Bassenger]

Большое спасибо за код... Работает как часы!!!
А реально при открытии формы при отсутствующем соединении с интернетом записывать информацию об его отсутствии куда-нибудь в реестр либо создать где-нибудь в системной папке скрытый файлик (любой)... И далее, при последующем открытии файла, если такая запись в реестре есть (либо файлик существует), чтобы выскакивало сообщение, мол "для обновления информации необходимо подключение к интернет"...ну и закрыть форму после этого... (Не удаляем, модуль формы, а просто закрываем...) Ну а дальше, кода они типа "обновят" данные, то как выписали в коде... Ессли цифры 123456, то работаем, ну а если нет....

Что-то типа такого...
Если это можно сделать, то если можно, напишите код как сбросить это всё дело... Вернуть в исходное состояние( убрать запись реестра и скрытый файлик удалить)...