Range("A1:F20").CopyPicture

Private Sub Workbook_Open()
    Application.DisplayAlerts = False ' не подавляет системное сообщение с предложением открыть для чтения.
     If Environ("USERNAME") <> "admin" Then
        MsgBox "Файл открыт для чтения," & Chr(10) & "ИЗМЕНЕНИЯ НЕ СОХРАНЯТСЯ!"
        If Not ThisWorkbook.ReadOnly Then ThisWorkbook.ChangeFileAccess xlReadOnly
     End If
     Application.DisplayAlerts = True
End Sub

Private Sub Workbook_Open()
     If  Environ("USERNAME") <> "admin" Then (открыть только для чтения)
End Sub

Sub main()
    Call aaa
    Call bbb
End Sub

Sub aaa()
    ReDim arr(1 To 3, 1 To 3)
End Sub

Sub bbb()
    x = arr(1, 1)
End Sub

Private Sub Workbook_Open()
    Call protection
End Sub

Public Const pass As Long = 123

Sub protection()
    Dim ws As Worksheet
    ActiveWorkbook.Protect Password:=pass, structure:=True
    For Each ws In Worksheets
        ws.Protect Password:=pass, UserInterfaceOnly:=True: ws.EnableSelection = xlNoRestrictions
    Next
End Sub

Sub sort()

        'Сортировка по убыванию столбца J
        iLastrowI = Cells(Rows.Count, 9).End(xlUp).Row
        ActiveWorkbook.Worksheets(1).sort.SortFields.Add Key:=Range("J3"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal 'Order:=xlAscending - по возрастанию
    
    With ActiveWorkbook.Worksheets(1).sort
        .SetRange Range("I3:M" & iLastrowI)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub