ExcelVBAでフォーム内のトグルボタンをロックする方法

構文

構文は以下の通りです。

トグルボタン名.Locked = True / False

解説

トグルボタン名.Lockedを使用して、フォーム内のトグルボタンをロックすることができます。LockedにTrueを設定すると、トグルボタンがロックされ、ユーザーが操作できなくなります。Falseに設定すると、再び操作可能になります。なお、Enabledと異なり、ボタンは見た目上は変更されませんが、クリック操作が無効になります。

プログラミング例

具体的なプログラミング例を紹介します。

Private Sub ロックボタン_Click()
    ' トグルボタンをロックする
    トグルボタン1.Locked = True
    MsgBox "トグルボタンがロックされました"
End Sub

上記のプログラムでは、「ロックボタン」という通常のコマンドボタンをクリックすると、トグルボタン1がロックされます。ロックされると、ユーザーはそのトグルボタンをクリックできなくなり、メッセージボックスが表示されます。トグルボタン1.Locked = Trueにより、トグルボタンがロックされます。MsgBoxは、処理が完了したことをユーザーに知らせるためのメッセージを表示します。

まとめ

トグルボタンをロックするには、ToggleButton名.Locked = Trueを使用します。Lockedは、ボタンの見た目には影響を与えませんが、クリック操作を無効にします。トグルボタンを再度操作可能にするには、LockedをFalseに設定します。