エクセルブックを保護する基本コード エクセルVBA最速理解

Sub ブックの保護1()
        Workbooks("Book1.xlsm").Protect
End Sub

Sub ブックの保護2()
        Workbooks("Book1.xlsm").Unprotect
End Sub

Sub ブックの保護3()
        Workbooks("Book1.xlsm").Protect Password:="ロック"
End Sub

Sub ブックの保護4()
        Workbooks("Book1.xlsm").Unprotect Password:="ロック"
End Sub

Sub ブックの保護5()
        If ThisWorkbook.ProtectStructure = True Then
            MsgBox "ブックは保護されています。"
        End If
End Sub

Sub ブックの保護6()
'*************
    Dim PassWD As Variant
    PassWD = "ロック"
    If ThisWorkbook.ProtectStructure = False Then
        ThisWorkbook.Protect Password:=PassWD
    End If
'*************
    Dim Ans As Long
    Dim Inp As Variant
        If ThisWorkbook.ProtectStructure = True Then
            Ans = MsgBox("ブックは保護されています。" & vbCrLf & _
            "解除しますか？", vbYesNo + vbExclamation, "ブックの保護")
        End If
        If Ans = vbYes Then
            Inp = Application.InputBox("パスワードを入力してください", _
                    Title:="PASSWORD", Type:=2)
            If Inp <> PassWD Then
                MsgBox "パスワードが違います。"
                Exit Sub
            End If
            ThisWorkbook.Unprotect Password:=Inp
        Else
            Exit Sub
        End If
End Sub