|
Wクォーテーション忘れたので訂正。
ラベルを1つ作ってそれをフラグに使うとか(ラベルを非表示にすれば見えません)
グローバル変数を使ってもいいけど。
その1
Private Sub CommandButton1_Click()
Me.Label1.Caption = "True"
End Sub
Private Sub CommandButton2_Click()
If Me.Label1.Caption = "False" Then Exit Sub
MsgBox 123
End Sub
Private Sub CommandButton3_Click()
If Me.Label1.Caption = "False" Then Exit Sub
MsgBox 1234
End Sub
Private Sub UserForm_Initialize()
Me.Label1.Caption = "False"
End Sub
ボタン1を押すまで使えなくするとか、その他用途によって変わると思います。
その2
Private Sub CommandButton1_Click()
Dim obj As Control
For Each obj In Me.Controls
obj.Enabled = True
Next
End Sub
Private Sub UserForm_Initialize()
Dim obj As Control
For Each obj In Me.Controls
If obj.Name <> "CommandButton1" Then
obj.Enabled = False
End If
Next
End Sub
|
|