Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 6420|回复: 10

[已解决]求教,关于VBA中复选框和按钮的问题

[复制链接]
发表于 2015-2-9 14:30 | 显示全部楼层 |阅读模式
1.jpg 如图所示。用模块打开工程from1后 用代码
CheckBox1.Enabled = False和CheckBox2.Enabled = False 关闭这些按钮变为灰色。但是我按上方的红色叉叉后在打开。它默认还是可选状态,请问用什么代码可以保证永久性锁定变为灰色按钮,而不是再次打开工程from1后,这些被锁定的按钮被自动解锁了?
最佳答案
2015-2-9 17:19
保持状态

test.rar (178.89 KB, 下载次数: 28)
发表于 2015-2-9 14:45 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2015-2-9 15:03 | 显示全部楼层
爱疯 发表于 2015-2-9 14:45
建议说明问题时,上传附件。

test.rar (177.31 KB, 下载次数: 8)
回复

使用道具 举报

发表于 2015-2-9 15:31 | 显示全部楼层
如何永久锁定这些按钮。
如果真想永久锁定,那为什么要创建它们呢。
回复

使用道具 举报

 楼主| 发表于 2015-2-9 15:42 | 显示全部楼层
爱疯 发表于 2015-2-9 15:31
如何永久锁定这些按钮。
如果真想永久锁定,那为什么要创建它们呢。

不是永久锁定, 用enable=FALSE 来关闭按钮,但是我运行程序后。关闭了from1工程再次打开又被解锁了,我的意思是这代码不能像在设置按钮里面那个 enable选项一样,选择FALSE 后 ,就打不开了。不管重新开多少次from1,都被锁定了。而不是每次打开都要重新运行 enable=FALSE 代码来锁定他?
回复

使用道具 举报

 楼主| 发表于 2015-2-9 15:57 | 显示全部楼层
爱疯 发表于 2015-2-9 15:31
如何永久锁定这些按钮。
如果真想永久锁定,那为什么要创建它们呢。

那请问用VBA 来把要添加的代码插入到模块1中呢?
回复

使用道具 举报

发表于 2015-2-9 16:10 | 显示全部楼层
test2.rar (175.87 KB, 下载次数: 6)
回复

使用道具 举报

发表于 2015-2-9 17:19 | 显示全部楼层    本楼为最佳答案   
保持状态

test.rar (178.89 KB, 下载次数: 28)
回复

使用道具 举报

 楼主| 发表于 2015-2-10 16:43 | 显示全部楼层
雪舞子 发表于 2015-2-9 17:19
保持状态

请教,我想要的功能就是可以保存这些按钮和复选框的属性  enable=false   而不是再次打开from1后 又变成默认设置了。变成了 enable=TRUE ,可以保存按钮属性的?
回复

使用道具 举报

发表于 2015-2-10 17:04 | 显示全部楼层
ccc919 发表于 2015-2-10 16:43
请教,我想要的功能就是可以保存这些按钮和复选框的属性  enable=false   而不是再次打开from1后 又变成默 ...

附件提供的已经将属性保存到注册表里,再打开窗体关闭之前是什么状态,打开后还会是什么状态。
为演示方便做了状态切换。你可以将代码中属性值改成 执行后 false,打开就会是一直这个状态。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-3 22:14 , Processed in 0.884613 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表