Private Sub Workbook_Open()
If Time < "10:00:00" Then
Application.ScreenUpdating = False 'отключаем обновление экрана
Application.Calculation = xlCalculationManual ' отключаем пересчет формул
Application.EnableEvents = False ' отключаем отслеживание событий
MsgBox "Идет обновление формул, не закрывайте журнал. Для продолжения нажмите ОК"
Call Кпии_формул_проверки_осн ' вставляем макрос вставки и протягивания формул
Sheets("Основные линии").Select
Call УФ_вставка ' вставляем условное форматирование
Sheets("Теплоспутники").Select
Call УФ_вставка
Sheets("Опоры").Select
Call УФ_вставка
Sheets("Основные линии").Select
Range("B1").Select
Application.Calculation = xlAutomatic 'включаем обновление экрана
Application.ScreenUpdating = True ' включаем пересчет формул
Application.EnableEvents = True ' включаем отслеживание событий
MsgBox "Спасибо! Можно приступать к работе "
End If
End Sub
но срабатывает он не всегда, а на некоторых компах вообще не срабатывает, хотя все возможные блокировки отключены, запуск макросов разрешён. Могу предположить, что на компах разные версии офисов. Расположение кода в модуле книги