Правильная защита макросом

Worksheets("Лист2").EnableOutlining = True 
Worksheets("Лист2").Protect Password:="555", UserInterfaceOnly:=True, AllowFiltering:=True, , AllowSorting:=True

.Protect Password:=MyPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
 AllowFiltering:=True,  AllowSorting:=True, UserInterfaceOnly:=True

AllowSorting:=True

pass=inputbox("Введите пароль")
Worksheets("Лист1").Protect Password:=pass

For Each ws in ActiveWorkbook.Worksheets
   ws.Protect Password:="123", UserInterfaceOnly:=True
Next ws

Option Explicit
Const rrow = 1

Private Sub Worksheet_Activate()
    Dim r As Range, sh As Worksheet, ind&
    Application.ScreenUpdating = False

    Range("a" & rrow & ":n" & Cells(rrow, 2).End(xlDown).Row).Clear
    For Each sh In Worksheets
        With sh
            If .Index <> ActiveSheet.Index Then
                Set r = .Range("a" & rrow & ":n" & .Cells(.Rows.Count, 1).End(xlUp).Row)
                r.Copy Cells(rrow + ind, 1)
                ind = ind + r.Rows.Count
            End If
        End With
    Next

    Application.ScreenUpdating = True

End Sub

Private Sub Workbook_Open()
  Worksheets("Заявки";) .Protect Password:="123", UserInterfaceOnly:=True
End Sub

Workbooks("тест.xlsb").Protect Password:="1", UserInterfaceOnly:=True, Structure:=True, Windows:=False

Sub Workbook_Open()

Dim user As String
user = Application.UserName

If user = "Александр Петров" Or user = "Александр Иванов" Then
здесь надо ввести пароль для редактирования
MsgBox "Hello"
Else
открыть книгу в режиме только для чтения 
MsgBox "Файл только для просмотра. Сохранение изменений невозможно!"
End If

End Sub 

Sub Workbook_Open()
' Установить защиту листа с запретом всех действий (снятие всех галочек)
Worksheets("Лист1").Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("Лист1").EnableSelection = xlNoSelection         '   Запретить выделение на листе

Dim user As String
user = Application.UserName

If user = "Александр Петров" Or user = "Александр Иванов" Then
Worksheets("Лист1").Unprotect Password:="123"             '   Снять защиту листа

MsgBox "Hello"
Else
MsgBox "Файл только для просмотра. Сохранение изменений невозможно!"
End If

End Sub