Sub copy()
    Dim sShName As String, sAddress As String, vData
    'отключаем обновление экрана
    Application.ScreenUpdating = False
    Workbooks.Open Filename:="Выбрать нужный файл", ReadOnly:=True 'Как заменить эту строку,на то, чтобы выбирать нужный .xlsx файл для обработки?
    sAddress = "A1:A350" 'Как заменить статический диапазон выбранных ячеек в столбце А, на динамический диапазон (до последней ячейки со значением в столбце А)?
    'получаем значения
    vData = Sheets("Отчет").Range(sAddress).Value
    ActiveWorkbook.Close False
    'Записываем данные на активный лист книги, с которой запустили макрос
    If IsArray(vData) Then
        [A4].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
    Else
        [A4] = vData
    End If
    'Включаем обновление экрана
    Application.ScreenUpdating = True
End Sub

Sub ()
    Dim sh As Worksheet: Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets   
        sh.Protect "тут пароль"
    Next sh
    Range("A1048557").Select
End Sub

Sub Макрос3() 'форматирует информацию на листах под нужный формат
    Worksheets("справочник").Unprotect Password:="*********" 'снимает защиту с листа
    Sheets("График RM").Select
    ActiveWindow.SmallScroll Down:=-3
    Columns("A:G").Select
    Selection.Delete Shift:=xlToLeft
    Range("A9:C36").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A9").Select
    Sheets("График приёмка").Select
    Columns("A:G").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("A9:C36").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("График Н.лог").Select
    Columns("A:G").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("A9:C40").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A9").Select
    Sheets("справочник").Select
    Range("H1").Select
    Worksheets("справочник").Protect Password:="*********" 'ставит защиту на лист
End Sub