user_ncdpj 发表于 2008-4-1 09:43:00

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

我很欣赏来自网上的一个PPT考试系统，用VBA做的，但是VBA设了密码，它又是多选题的，我想把它该成单选题。拜托啦！

user_rlxho 发表于 2008-4-1 10:56:26

密码已取消，至于VBA代码修改自己看，比较简单结合自己的需要修改。


lwmx28 发表于 2008-4-1 11:54:10

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

gubingo 发表于 2008-4-1 12:33:37

高 手 呀 学习了太好了

user_lgotd 发表于 2008-4-1 13:00:48

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

guojunhai 发表于 2008-4-1 13:11:33

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

zzzzzz 发表于 2008-4-1 13:40:53

找到这一句代码:
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
页: [1]
查看完整版本: 请VBA高手帮忙仿做“考试系统”或解密VBA。