Скопируйте рабочий лист без копирования кода

Question

Я могу скопировать рабочий лист, вызвав его метод .Copy.

Sheets("Example").Copy After:=Worksheets("Sheet3") 

Однако это также копирует любые макросы или обработчики событий, связанные с этим листом. Как скопировать лист без копирования кода Visual Basic?

Answer 1

После копирования листа, вы можете ссылаться на него по имени, а затем удалить все строки из модуля кода:

Sheets("Example").Copy After:=Sheets("Sheet3") 

' Get the code/object name of the new sheet... 
Dim strObjectName As String 
strObjectName = ActiveSheet.CodeName 

' Remove all lines from its code module... 
With ThisWorkbook.VBProject.VBComponents(strObjectName).CodeModule 
    .DeleteLines 1, .CountOfLines 
End With 

Edit:

Как указывалось @MackM в комментариях, чтобы работать с компонентами проекта, вам нужно убедиться, что параметр «"Trust access to the VBA project object model"» включен в настройках макроса Excel.

Answer 2

Создайте пустой лист и скопируйте содержимое оригинального листа.

Sub Copy_Sheet_Without_Code(original_sheet As String, copied_sheet As String) 
    ' Creates a copy of original_sheet without any VBA code associated with it 
    ' The copy is named copied_sheet 
    Sheets(original_sheet).Cells.Copy 
    Sheets.Add.Name = copied_sheet 
    Sheets(copied_sheet).Cells.PasteSpecial Paste:=xlPasteAll 
End Sub