高难度！怎么在excel文件中限制这个文件打开的次数啊？请高手来解决一下哦

yanziyang223

高难度！怎么在excel文件中限制这个文件的打开次数啊？比如我想这个cxcel文件打开100次后就打不开了，需要输入密码才可以使用了，请问要怎么做啊，谢谢各位大侠指教啊。是写一个宏就可以了还是........急需帮助啊

或者:某个文件在打开时使用设定的密码达到一定次数后密码失效,或者自动删除,或者说可以设个隐藏密码,第一个密码使用达到次数时自动启用隐藏密码.不知道能不能实现?

[ 本帖最后由 yanziyang223 于 2010-7-15 19:02 编辑 ]

smhf_6

使用3次后需要密码打开
Private Sub Workbook_Open()
k = GetSetting(appname:="MyApp", section:="Startup", key:="aaa", Default:=1)
If k > 4 Then
ActiveWorkbook.Protect Password:="888888", structure:=True, Windows:=True
ActiveWorkbook.Password = "888888"
End If
k = k + 1
SaveSetting "MyApp", "Startup", "aaa", k
End Sub

yanziyang223

是写在宏里面吗？这些代码要怎么操作啊

lhx120824

原帖由 smhf_6 于 2010-7-15 19:23 发表
使用3次后需要密码打开
Private Sub Workbook_Open()
k = GetSetting(appname:="MyApp", section:="Startup", key:="aaa", Default:=1)
If k > 4 Then
ActiveWorkbook.Protect Password:="888888", structure:=T ...

看来excel是无所不能。

henrylam

学习学习

海婷

原帖由 smhf_6 于 2010-7-15 19:23 发表
使用3次后需要密码打开
Private Sub Workbook_Open()
k = GetSetting(appname:="MyApp", section:="Startup", key:="aaa", Default:=1)
If k > 4 Then
ActiveWorkbook.Protect Password:="888888", structure:=T ...

使用3次后不用密码还能打开

海婷

不知怎么操作才有效

海婷

知道了,文件名设"aaa"才有效,谢谢2楼分享

xihabang

学习来咯 ..呵呵

smhf_6

解释几个问题：
1、上面我的描述本身有误，第1次打开K=0,则要到第6次才K=5>4,但也是在判断后才K=5,所以需要在第7次才生效
　　或者调整K>4 为K>0,　或者调整代码顺序
2、与文件名无关
3、大家在打开后关闭工作簿，这个在关闭时，与保存与否有关，一定要保存一下，这点很重要
4、大家可以测试：
　　在if前加一句k=0,按F8运行一次，然后注释掉
　　在K=0后加一句 msgbox k
        这样就可以测试了
　　如果已经被保护了，还要撤销保护：一是工具－保护－撤销工作簿保护，二是工作－选项－打开权限保护