Здравствуйте! Подскажите, пожалуйста, как можно решить задачу с массовым копированием листов из нескольких книг в одну новую, для последующей работы в них. В листах стоит защита.
Пользовалась этим кодом, но защита переносится в новую книгу. В них невозможно работать.
Пользовалась этим кодом, но защита переносится в новую книгу. В них невозможно работать.
Код |
---|
Sub CombineWorkbooks() Dim FilesToOpen Dim x As Integer Application.ScreenUpdating = False 'отключаем обновление экрана для скорости 'вызываем диалог выбора файлов для импорта FilesToOpen = Application.GetOpenFilename _ (FileFilter:="All files (*.*), *.*", _ MultiSelect:=True, Title:="Files to Merge") If TypeName(FilesToOpen) = "Boolean" Then MsgBox "Не выбрано ни одного файла!" Exit Sub End If 'проходим по всем выбранным файлам x = 1 While x <= UBound(FilesToOpen) Set importWB = Workbooks.Open(Filename:=FilesToOpen(x)) Sheets().Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) importWB.Close savechanges:=False x = x + 1 Wend Application.ScreenUpdating = True End Sub |