ツールバーを変更できないようにする

Sub Sample1()
    Dim myBar As CommandBar, i As Long
    Set myBar = CommandBars.Add         ''新しいツールバーを作成します
    For i = 1 To 3
        myBar.Controls.Add ID:=i + 1    ''ダミーのボタンを追加します
    Next i
    myBar.Position = msoBarLeft         ''ツールバーを左に表示します
    myBar.Visible = True
End Sub

Sub Sample2()
    Dim myBar As CommandBar, i As Long
    Set myBar = CommandBars.Add         ''新しいツールバーを作成します
    For i = 1 To 3
        myBar.Controls.Add ID:=i + 1    ''ダミーのボタンを追加します
    Next i
    myBar.Position = msoBarFloating     ''フローティングにします
    myBar.Protection = msoBarNoMove     ''移動を禁止します
    myBar.Visible = True
End Sub

Sub Sample4()
    Dim c
    For Each c In CommandBars
        If c.BuiltIn = False Then c.Protection = msoBarNoProtection
    Next c
End Sub

Sub Sample5()
    Dim myBar As CommandBar, i As Long
    Set myBar = CommandBars.Add         ''新しいツールバーを作成します
    For i = 1 To 3
        myBar.Controls.Add ID:=i + 1    ''ダミーのボタンを追加します
    Next i
    With myBar.Controls.Add
        .OnAction = "myMacro2"          ''ボタンがクリックされたとき実行するマクロを設定します
        .BeginGroup = True              ''区切り線を表示します
        .FaceId = 277                   ''ボタンイメージの番号を指定します
    End With
    myBar.Visible = True
End Sub

Sub myMacro2()
    With CommandBars.ActionControl
        If .Parent.Protection = msoBarNoMove Then       ''移動禁止だったら
            .Parent.Protection = msoBarNoProtection         ''移動禁止を解除する
            .State = False                                  ''ボタンが押されていない状態にする
        Else                                            ''移動禁止ではなかったら
            .Parent.Protection = msoBarNoMove               ''移動禁止にする
            .State = True                                   ''ボタンが押されている状態にする
        End If
    End With
End Sub