| |
Wクォーテーション忘れたので訂正。
ラベルを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を押すまで使えなくするとか、その他用途によって変わると思います。
その２
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
