制作带自杀功能的电子表格.docxVIP

Option ExplicitSub ReacdOpenTimes() Dim OpenTimes As Integer With Me OpenTimes = .CustomDocumentProperties(opentimes).Value + 1 If OpenTimes 3 Then Call killthisworkbook Else .CustomDocumentProperties(opentimes).Value = OpenTimes .Save End IfEnd WithEnd Sub说明:格式中别用自动换行,要不会报错误!!!玩转excel，制作带自杀功能的电子表格，新建一个电子表格文件，按下ALT+F11，打开VB编辑器，双击左侧工程选项卡中的thisworkbook，打开代码窗口，将下列代码复制上去，其中“3”是可修改的参数(即打开一定的次数后表格自动消失)，回到EXCEL，点击插入-名称-定义，名称定义为opentimes，引用位置=0，再回到代码编辑区，点一下第二段代码任意位置，按下F5，运行该段代码以隐藏名称名，再次回到定义名称选项卡，则opentimes隐藏不可见，保存文件，就可在工作表中编辑保密文件啦。Sub readopentimes()Dim otimes As Integerotimes = Evaluate(ThisWorkbook.Names(opentimes).RefersTo)otimes = otimes + 1If otimes 3 Then Call killthisworkbookElse ThisWorkbook.Names(opentimes).RefersTo = = otimesEnd IfEnd SubSub hidenames()ThisWorkbook.Names(opentimes).Visible = FalseEnd SubPrivate Sub Workbook_Open()Call readopentimesEnd SubSub killthisworkbook()With ThisWorkbook .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .CloseEnd WithEnd 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 Ifaa = aa + 1If aa 3 Then aa = 1SaveSetting MyApp, Startup, aaa, aaEnd 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 WithEnd Sub希望达到如下目的1）可以从代码中限制excel的使用次数，如25次，则第26次则要求权限或其他什么的，总之可以自由开，自由关。 Private Sub Workbook_Open()Worksheets(2).ScrollArea = A1:IV65535If Sheets(Sheet2).Cells(65536, 256).Value 10 ThenSheets(Sheet2).Cells(65536, 256).Value = Sheets(Sheet2).Cells(65536, 256).Value + 1ActiveWorkbook.SaveElsea = InputBox(请输入密码, 密码验证)If a 7802145 ThenApplication.QuitEnd IfEnd IfEnd Sub打开次数的存放的解决办法：我选择存放在Sheet2的最下脚，并将Cells(65536, 256).设置为白色。然后将最后一行放弃（使不能选择）这样用户就看不到这个数字，就是看到了也不能修改然后你可以去将你的宏加入