workbook_open事件练习:限制excel文件使用次数

锋芒毕露 · 发表于 2008-6-1 09:08

请问高手,可不可以使用次数到了就自动自杀文件

rivate Sub Workbook_Open() Dim x x = Sheet1.Range("a1") Range("a1") = x + 1 ThisWorkbook.Save If Range("a1") > 2 Then     MsgBox "超过2次的试用次数了"     ThisWorkbook.Close savechanges:=True End If End Sub

锋芒毕露 · 发表于 2008-6-1 09:23

EXCEL限定使用次数后文件自动删除  请教!!

xiaovba · 发表于 2008-6-1 16:59

xuexi

czljh · 发表于 2008-6-16 23:35

[em06]

Firerabbit · 发表于 2008-6-17 06:01

学习了

皮皮1998 · 发表于 2008-6-17 10:01

学习!

Qinjabil · 发表于 2008-6-17 12:03

[em04]

colbylee · 发表于 2008-6-17 12:30

学习

kelinss · 发表于 2008-6-17 12:35

学习..

簡單愛情 · 发表于 2008-6-17 14:45

Private Sub Workbook_Open() Dim X With Sheet1.Columns("IN:IN") .Hidden = False    'IN列显示 .ColumnWidth = .ColumnWidth + 1 X = .ColumnWidth - Sheet1.Columns("IF:IF").ColumnWidth .Hidden = True     'IN列隐藏   If X >= 10 Then        MsgBox "您已超过了使用次数!"        ThisWorkbook.Close SaveChanges:=False   Else        MsgBox "您还可以试用" & 10 - X & "次"        Application.DisplayAlerts = False        ThisWorkbook.Save        Application.DisplayAlerts = True   End If End With End Sub 上面是我写的！我是用了列宽（IN列与IF列的差）来算次数的！并没有在单元格中输入数值！ 不过这样也有一个不好的地方！要是你全选之后！再调整列宽！那又得重新计算了！ 我也有一个与班主任一样的问题！ 若打开次数超过了限定的次数后，这个工作簿不就“废”了？！还有没有再启用这个工作簿的办法？ 打开工作薄时，禁用宏，打开后再清除Sheet1中IV1单元格中的值就又可以用了。（杨副官回答） 上面说的是没错！可是我要是再加一个4.0的宏，如果你不启用宏，就打不开文件！ 那这个文件还有打开的方法吗？ 我是想不到什么办法了！你们有没方法？知道的给我说呀... 谢了....

		自动登录	找回密码
密码			注册

[习题] workbook_open事件练习:限制excel文件使用次数