请VBA高手帮忙仿做“考试系统”或解密VBA。

user_ncdpj

我很欣赏来自网上的一个PPT考试系统，用VBA做的，但是VBA设了密码，它又是多选题的，我想把它该成单选题。拜托啦！
kaoti.rar (293.98 KB, 下载次数: 190)

2008-4-1 09:43 上传

点击文件名下载附件

user_rlxho

密码已取消，至于VBA代码修改自己看，比较简单结合自己的需要修改。
考题系统.rar (283.09 KB, 下载次数: 271)

2016-4-11 09:41 上传

点击文件名下载附件

lwmx28

多谢网友帮我解了vba密，我尝试了很多次想把该系统增加多些选择题，本人水平有限，无法成功，能帮忙吗？

gubingo

高 手 呀 学习了太好了

user_lgotd

请问lcb163，ppt里vba工程密码如何解除的？用什么软件还是更高的方法？急需，请分享，谢谢阿，感激涕零阿

guojunhai

谢谢了，这几天我也在找，终于找到了！

zzzzzz

找到这一句代码:
If Slide1.CheckBox2.Value = True And Slide1.CheckBox3.Value = True And Slide1.CheckBox1.Value = False And Slide1.CheckBox4.Value = False Then      
此为多选BC对，修改一下代码就成单选了：其余依次类推:
A对：
If Slide1.CheckBox1.Value = True And Slide1.CheckBox2.Value = False And Slide1.CheckBox3.Value = False And Slide1.CheckBox4.Value = False Then   
B对：
If Slide1.CheckBox1.Value = False And Slide1.CheckBox2.Value = True And Slide1.CheckBox3.Value = False And Slide1.CheckBox4.Value = False Then   
C对：
If Slide1.CheckBox1.Value = False And Slide1.CheckBox2.Value = False And Slide1.CheckBox3.Value = True And Slide1.CheckBox4.Value = False Then   
D对：
If Slide1.CheckBox1.Value = False And Slide1.CheckBox2.Value = False And Slide1.CheckBox3.Value = False And Slide1.CheckBox4.Value = True Then