<code>Option Explicit
Dim btnEnabled As Boolean
 
Private Sub Form_Load(()
  btnEnabled = True
End Sub
 
Private Sub Command1_Click()
  If btnEnabled = True Then
   <font color=green>' Code ausführen</font>
    MsgBox "Klick auf CommandButton"
  End If
End Sub</code>