[已解决]能不能限制按钮点击次数？

sdada

在菜单栏添加两个按钮，能不能限制按钮点击次数？比如点击次数超过5次，按钮变灰色。
附件： 附件.rar (6.74 KB, 下载次数: 47)

2013-6-24 00:55 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

妞叫七七

2013-6-24 09:28

Sub aaa()
    k = k + 1
    If k = 5 Then
    Application.CommandBars(1).Controls("测试").Controls("按钮1").Enabled = False
    MsgBox "你好,第" & k & "次,很抱歉,你不能再点了"""
    MsgBox
    Exit Sub
    End If
    MsgBox "你好,第" & k & "次"
End Sub

跳转到最佳答案楼层

妞叫七七

你在模块中设置一个公共变量 如 public k
在单击事件中
k=k+1
if k=5 then Me.CommandButton1.Enabled = False

sdada

帮个忙解决一下

妞叫七七

示例 限制按钮点击次数.zip (10.09 KB, 下载次数: 48)

2013-6-24 08:58 上传

点击文件名下载附件

sdada

妞叫七七 发表于 2013-6-24 08:58
示例

发的附件在菜单栏添加两个按钮，用我发的附件来示范

妞叫七七

Sub aaa()
    k = k + 1
    If k = 5 Then
    Application.CommandBars(1).Controls("测试").Controls("按钮1").Enabled = False
    MsgBox "你好,第" & k & "次,很抱歉,你不能再点了"""
    MsgBox
    Exit Sub
    End If
    MsgBox "你好,第" & k & "次"
End Sub

sdada

妞叫七七 发表于 2013-6-24 09:28
Sub aaa()
    k = k + 1
    If k = 5 Then

现在有个问题，当按钮点击5次变灰色，重新打开表格又能点击，
怎么让它始终是灰色?

妞叫七七

sdada 发表于 2013-6-24 09:42
现在有个问题，当按钮点击5次变灰色，重新打开表格又能点击，
怎么让它始终是灰色?

你再试试,重新打开也不能点击的,我测试是这样的

sdada

妞叫七七 发表于 2013-6-24 10:01
你再试试,重新打开也不能点击的,我测试是这样的

你还是发个附件看看？

妞叫七七

关键是你在open事件中添加了重置命令和重新添加新命令,你可以把k的值放在单元格里,在添加后判断k的值,如果k的值=5,就设置命令无用