エクセルブックをパスワードロックするユーティリティなマクロ

Option Explicit

Sub ブックの保護マクロ()
'*************
    Dim PassWD As Variant
    PassWD = "ロック"
'*************
    Dim Ans1 As Long
        If ActiveWorkbook.ProtectStructure = False Then
            Ans1 = MsgBox("保護するブックは 「 " _
                & ActiveWorkbook.Name & " 」 になります。" _
              & vbCrLf & "保護しますか？", vbYesNo + vbQuestion, _
                "ブックの保護")
            If Ans1 = vbYes Then
                ActiveWorkbook.Protect Password:=PassWD
            Else
                Exit Sub
            End If
        End If
    Dim Ans2 As Long
    Dim Inp As Variant
        If ActiveWorkbook.ProtectStructure = True Then
            Ans2 = MsgBox("ブックは保護されています。" & vbCrLf & _
            "解除しますか？", vbYesNo + vbExclamation, "ブックの保護")
        End If
        If Ans2 = vbYes Then
            Inp = Application.InputBox("パスワードを入力してください", _
                    Title:="PASSWORD", Type:=2)
            If Inp <> PassWD Then
                MsgBox "パスワードが違います。" & vbCrLf & _
                        "初めからやり直してください。"
                Exit Sub
            End If
            ActiveWorkbook.Unprotect Password:=Inp
            MsgBox "ロックが解除されました。"
        Else
            Exit Sub
        End If
End Sub

'*************
    Dim PassWD As Variant
    PassWD = "ロック"
'*************

    Dim Ans1 As Long
        If ActiveWorkbook.ProtectStructure = False Then
            Ans1 = MsgBox("保護するブックは 「 " _
                & ActiveWorkbook.Name & " 」 になります。" _
              & vbCrLf & "保護しますか？", vbYesNo + vbQuestion, _
                "ブックの保護")
            If Ans1 = vbYes Then
                ActiveWorkbook.Protect Password:=PassWD
            Else
                Exit Sub
            End If
        End If

    Dim Ans2 As Long
    Dim Inp As Variant
        If ActiveWorkbook.ProtectStructure = True Then
            Ans2 = MsgBox("ブックは保護されています。" & vbCrLf & _
            "解除しますか？", vbYesNo + vbExclamation, "ブックの保護")
        End If

        If Ans2 = vbYes Then
            Inp = Application.InputBox("パスワードを入力してください", _
                    Title:="PASSWORD", Type:=2)

            If Inp <> PassWD Then
                MsgBox "パスワードが違います。" & vbCrLf & _
                        "初めからやり直してください。"
                Exit Sub
            End If
            ActiveWorkbook.Unprotect Password:=Inp
            MsgBox "ロックが解除されました。"
        Else
            Exit Sub
        End If
End Sub

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

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

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