Question

在VBA中修改按钮的属性

sub 矩形1_click()
语句
end sub
执行完语句后，按钮的属性变为不可用，通过语句如何实现？该语句写到哪个位置？

Answer 1

可以换种方式来做，如初始时将按钮背景色设置成绿色，执行时判定一下颜色条件，符合的执行，执行完后改成其他颜色，如灰色。如不是绿色则跳出，相当于不可用了。
Private Sub 矩形1_Click()
If 矩形1.BackColor = vbGreen Then
'你要运行的语句
矩形1.BackColor = RGB(192, 192, 192)
Else
Exit Sub
End If
End Sub

追问

按钮属性设置成不可用，是为了防止语句重复执行，而且我按照你的思路我编辑了程序，运行后错误提示，运行时错误424，要求对象。

追答

按钮的name是什么？你改过了吗，还是原来默认的？我这里是按你提问中的名称写的

Answer 2

窗体里的按钮可以，工作表里的按钮没试过，好像不行。

Answer 3

sub 矩形1_click()
语句
矩形1.Enabled = False
end sub