Защита книги и кода excel

Private Sub ProgrammeClose_Click()
Sheets("1").Protect "xxx"
Sheets("2").Protect "xxx"
Sheets("3").Protect "xxx"
Sheets("4").Protect "xxx"
Sheets("5").Protect "xxx"
ActiveWorkbook.Close
End Sub

Private Workbook_Open()
Sheets("1").Unprotect "xxx"
Sheets("2").Unprotect "xxx"
Sheets("3").Unprotect "xxx"
Sheets("4").Unprotect "xxx"
Sheets("5").Unprotect "xxx"
UserForm1.Show
End Sub

Private Declare Function GetWindowLong _
    Lib "user32" _
            Alias "GetWindowLongA" ( _
            ByVal hwnd As Long, _
            ByVal nIndex As Long) _
As Long
 
Private Declare Function SetWindowLong _
    Lib "user32" _
        Alias "SetWindowLongA" ( _
            ByVal hwnd As Long, _
            ByVal nIndex As Long, _
            ByVal dwNewLong As Long) _
As Long
 
 
Private Declare Function FindWindowA _
    Lib "user32" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) _
As Long
 
Private Const GWL_STYLE As Long = -16
Private Const WS_SYSMENU As Long = &H80000
 
 
Private Sub UserForm_Initialize()
Dim lOldStyle As Long
Dim lNewStyle As Long
Dim hW As Long
 
    hW = FindWindowA(vbNullString, Me.Caption)
    lOldStyle = GetWindowLong(hW, GWL_STYLE)
    lNewStyle = lOldStyle Xor WS_SYSMENU
    
    SetWindowLong hW, GWL_STYLE, lNewStyle
     
End Sub
 
'это для того, чтобы при alt+f4 закрывалась не форма, а вся программа с сохранением результатов
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Close SaveChanges:=True
End Sub