excel自杀.docVIP

说明:格式中别用自动换行,要不会报错误!!! 玩转excel，制作带自杀功能的电子表格， 新建一个电子表格文件，按下ALT+F11，打开VB编辑器，双击左侧工程选项卡中的thisworkbook，打开代码窗口，将下列代码复制上去，其中“3”是可修改的参数(即打开一定的次数后表格自动消失)，回到EXCEL，点击插入-名称-定义，名称定义为opentimes，引用位置=0，再回到代码编辑区，点一下第二段代码任意位置，按下F5，运行该段代码以隐藏名称名，再次回到定义名称选项卡，则opentimes隐藏不可见，保存文件，就可在工作表中编辑保密文件啦。 Sub readopentimes() Dim otimes As Integer otimes = Evaluate(ThisWorkbook.Names(opentimes).RefersTo) otimes = otimes + 1 If otimes 3 Then Call killthisworkbook Else ThisWorkbook.Names(opentimes).RefersTo = = otimes End If End Sub Sub hidenames() ThisWorkbook.Names(opentimes).Visible = False End Sub Private Sub Workbook_Open() Call readopentimes End Sub Sub killthisworkbook() With ThisWorkbook .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close End With End Sub 使用一次就自动删除没有任何提示 Private Sub Workbook_Open() Application.DisplayAlerts = False 只限用一次代码! aa = GetSetting(appname:=MyApp, section:=Startup, key:=aaa, Default:=1) If aa = 3 Then ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ThisWorkbook.Close False End If aa = aa + 1 If aa 3 Then aa = 1 SaveSetting MyApp, Startup, aaa, aa End Sub 到日期后，自动删除 Private Sub Workbook_Open() If Date = #2/5/2008# Then Exit Sub MsgBox 文件已过期。 With ThisWorkbook .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub 希望达到如下目的 1）可以从代码中限制excel的使用次数，如25次，则第26次则要求权限或其他什么的，总之可以自由开，自由关。 Private Sub Workbook_Open() Worksheets(2).ScrollArea = A1:IV65535 If Sheets(Sheet2).Cells(65536, 256).Value 10 Then Sheets(Sheet2).Cells(65536, 256).Value = Sheets(Sheet2).Cells(65536, 256).Value + 1 ActiveWorkbook.Save Else a = InputBox(请输入密码, 密码验证) If a 7802145 Then Application.Quit End If End If End Sub 打开次数的存放的解决办法：我选择存放在Sheet2的最下脚，并将Cells(65536, 256).设置为白色。然后将最后一行放弃（使不能选择）这样用户就看不到这个数字，就是看到了也不能修改 然后你可以去将你的宏加入数字签名。这样就可以强制使用宏了。 若这个设定了打开次数的工作簿超过允许打开的次数以后，之后每次再打开时就自动关闭了 Private Sub Workbook_BeforeClose(Cancel As Boolean) Me.Save