今押されたくないボタンを無効以外の方法で処理するには？ (ID:122052)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Option Explicit Private blnClickOK As Boolean Private Sub Command1_Click() If blnClickOK Then 処理 End If End Sub Private Sub Form_Load() Do blnClickOK = True 処理1 blnClickOK = False 処理2 Loop End Sub こんな感じにすれば良いのでは？