Sub CopyLists()
    Dim wsSh As Worksheet, NewWb As Workbook, asArr(), li As Long, DateString As String
    Dim MyPassword As String, iPath As String
  
    DateString = Format(Sheets("Лист3").Range("A1").Value, "yy_mm_dd")
    Application.ScreenUpdating = False
    For Each wsSh In Worksheets
        If wsSh.Visible <> -1 Then ReDim Preserve asArr(li): asArr(li) = wsSh.Name: li = li + 1: wsSh.Visible = xlSheetVisible
    Next wsSh
    Sheets(Array("Лист1", "Лист2")).Copy
    Set NewWb = ActiveWorkbook
    For Each wsSh In NewWb.Worksheets
        With wsSh
            .Visible = True
            .UsedRange.Value = .UsedRange.Value
            .Cells.Locked = True
            .Cells.FormulaHidden = True
            .EnableSelection = xlNoSelection
        End With
    Next
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Путь сохранения"
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        iPath = .SelectedItems(1) & Application.PathSeparator
    End With
    
    NewWb.SaveAs Filename:=iPath & "Копия_" & DateString & ".xls"
    NewWb.Close
    Application.ScreenUpdating = True
    'ThisWorkbook.Close SaveChanges:=False
    MsgBox "Копия_" & DateString & " сохранена в папку: " & iPath, vbInformation, "Завершено"
End Sub

В модулях обоих листов на событие Worksheet_Activate повешены макросы. Разумеется они копируются вместе с листами. Код из указанных выше ссылок для удаления макросов в скопированных листах не срабатывает в моем исполнении, когда я его интегрирую в макрос копирования листов. Интегрирую - громко сказано Как варианты, запихивал код после Set NewWb = ActiveWorkbook, пробовал перед вызовом диалога выбора пути для сохранения, и по всякому крутил - тщетно. Метод тыка не сработал, прошу помощи.

Всем доброго времени суток! Никогда такого не было и вот опять

Адаптирую под свои цели (расстановка отпусков в графике работы) макрос, когда-то написанный уважаемым Юрием М и позаимствованный мной на этом форуме.

Макрос отрабатывает без ошибок, но безрезультатно (почти). По сути макрос должен брать исходные данные из листа «Отпуска» и, в случае истины, помещать значение 23:31 (мой аналог ОТ) в соответствующие даты сотрудникам на листе «Месяц». В примере желтым цветом обозначил, как это должно быть.

В макрокодировании слаб, но как понимаю, процедуры макроса циклично проходят по ячейкам. И в моём случае вместо подстановки нужного значения вычищают весь диапазон

Буду рад принять любую помощь. Если что, в примере есть лишние пронумерованные листы, на всякий случай, для соблюдения структуры книги (как я понял, макрос на структуру тоже завязан).