Доброго времени суток, уважаемые!
Суть в следующем:
Существует книга с n-ым кол-вом листов и модулей. В одном из модулей есть макрос, который, если коротко - копирует один из листов в новую книгу. Этот лист содержит в себе следующий код:
Обратите внимание на Call OK_ВыбратьНОМЕРАГруппКарт
Т.к. я копирую только лист из книги без модулей, то выполнение кода невозможно, т.к. В НОВОЙ книге модуль листа ссылается на несуществующий макрос.
Подскажите, пожалуйста, как пропустить эту ошибку, либо осуществить копирование листа без учета макросов в нем?
Спасибо!
Хорошего дня!
Суть в следующем:
Существует книга с n-ым кол-вом листов и модулей. В одном из модулей есть макрос, который, если коротко - копирует один из листов в новую книгу. Этот лист содержит в себе следующий код:
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next ' ОТКЛЮЧИТЬ ПОКАЗ ОШИБОК Application.DisplayAlerts = False ' ОТКЛЮЧИТЬ ВЫВОД СИСТЕМНЫХ СООБЩЕНИЙ Application.ScreenUpdating = False ' ОТКЛЮЧИТЬ ОБНОВЛЕНИЕ ЭКРАНА ActiveWorkbook.RemovePersonalInformation = False ' ОТКЛЮЧЕНИЕ ОКНА С ТЕКСТОМ О ПЕРСОНАЛЬНЫХ ДАННЫХ '========================================================================= If ActiveSheet.Name <> "Операции с картами" Then Exit Sub Dim rng As Range: Set rng = [O23:O24] 'диапазон Вашей таблицы If Not Intersect(rng, Target) Is Nothing Then ApLe = Application.Left ApTo = Application.Top ApWi = Application.Width ApHe = Application.Height Call OK_ВыбратьНОМЕРАГруппКарт Application.Left = ApLe Application.Top = ApTo Application.Width = ApWi Application.Height = ApHe End If End Sub |
Т.к. я копирую только лист из книги без модулей, то выполнение кода невозможно, т.к. В НОВОЙ книге модуль листа ссылается на несуществующий макрос.
Подскажите, пожалуйста, как пропустить эту ошибку, либо осуществить копирование листа без учета макросов в нем?
Спасибо!
Хорошего дня!
Улыбнись.