制作Ecel自杀文件

制作Excel “自杀”文件
2010年7月25日整理一：打幵立即“自杀” 步骤1:新建一个Excel表格
步骤2：点“工具”----- “宏”----“ Vistual Basic编辑器”（如下图所
或用快捷键“ Alt+F11
步骤3:在弹出的窗口中，双击： ThisWorkbook
步骤4:在弹出的窗口中输入以下代码，保存后即可
Sub KillThisWorkBook()
With ThisWorkbook
.Saved = True .Cha ngeFileAccess xlRead Only
Kill .FullName .Close
End With
End Sub
Private Sub Workbook_Ope n()
Call KillThisWorkBook
End Sub
』立嘩© 囲即 现易迫 掩入© 牯弍① 迪空② 進石啦 工旦© 外揺程匚⑥ 西口邑
二：限制次数打幵“自杀”（注：此方法制作的文件，每次打幵后要手动 保存，打幵次数才会增加！）
步骤1:新建一个Excel 表格，
步骤2：点“工具” ----- “宏” --- “ Vistual Basic 编辑器”（如下图所 示）。

或用快捷键“ Alt+F11 ”
步骤3:在弹出的窗口中，双击： ThisWorkbook
步骤4：在弹出的窗口中输入以下代码，把光标指到 AddHiddenNames （）区 域，按F5运行代码，，建立OpenTimes 变量。

（建立OpenTimes 变量方法 二:在Excel 菜单中点“插入”一一“名称”一一“自定义”，输入OpenTimes, 把引用位置中输入=0，如下所示）。

保存，退出即可。

墓当前工作溥中的名称⑩:
.-1
占㈢口
島 -彩 VBtfr+Text (^ff~ 曰K
w>>ft izcti y
国］隔讥七
窈 TM mY rrfkt 、Ak
-般 /DKfi• jucL GB 建 I f'S Wl
tx Plvfi Xxcrl ' 豐iMbu 吐l
皑蛀 B3 £kunl2 gh “诅 題耳虻*
门(Xh4*t ；( J| SKII1 Q
XI
丄y %： r ' ' & i 行"，利昭
（A 用厂 5ub K1LL711： =?M-kEjat (? V_ tJi 7K: sY^rldt ach £.Ed ■ Ii'iti c> Kill F H IIIF FWF tl«E» LU ¥M 3皿 Privats Sub Y orlA o akjOpEn ff CJ.1 吐庙“b Sal S3b
引用位豊
=o| |vi 注：修改如下代码中红色数字，即可改变打幵限制次数。

Opti on Explicit
Sub HideNames() ("Ope ntimes").Visible = True
End Sub
Sub AddHidde nN ames()
Name:二"Ope nTimes", _
RefersTo:="=0", Visible:二False
End Sub
Sub ReadOpe nTimes()
Dim OTimes As In teger
OTimes = Evaluate("Ope nTimes").RefersTo)
OTimes = OTimes + 1
If OTimes > 10 The n
Call KillThisWorkBook
Else
("OpenTimes").RefersTo = "=" & OTimes
End If
End Sub
Sub KillThisWorkBook()
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close
End With
End Sub
Private Sub Workbook_Open()
Call ReadOpenTimes
End Sub
三：限制次数打开“自杀” ( 注：此方法制作的文件，每次打开后会自动保存，打开次数会自动增加！ )
步骤 1：新建一个 Excel 表格，
步骤 2：点“文件”——“属性”——“自定义”，在名称一栏中输入
“ OpenTimes” 在类型中选“数字” ，在取值中写入“ 0” ,点“更改”，如下所示
步骤3:点“工具”一一“宏” 一一“ Vistual Basic编辑器”（如下图所示）。

或用快捷键“ Alt+F11 ”
步骤4：在弹出的窗口中，双击： ThisWorkbook
步骤5:在弹出的窗口中输入以下代码，保存退出即可。

注：修改如下代码中红色数字，即可改变打幵限制次数。

Opti on Explicit
Sub ReadOpe nTimes()
Dim Open times As In teger
With Me
Open times = .CustomDocume ntProperties("Ope nTimes").Value + 1
If Opentimes > 10 Then
Call KillThisWorkBook
Else
.CustomDocume ntProperties("Ope nTimes").Value = Open times
.Save
End If
End With
End Sub
Sub KillThisWorkBook()
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close
End With
End Sub
Private Sub Workbook_Open()
Call ReadOpenTimes
End Sub
四：限制次数打开“自杀” 。

步骤：直接在 ThisWorkbook 中输入以下代码 (说明： k = 4, 限用三次，第 4 次自杀)：
Private Sub Workbook_Open()
= False
k = GetSetting(appname:="MyApp", section:="Startup", Key:="aaa",
Default:=1)
If k = 4 Then
xlReadOnly
Kill
False
End If
k = k + 1
SaveSetting "MyApp", "Startup", "aaa", k
End Sub
五：定时“自杀”
步骤：直接在 ThisWorkbook 中输入以下代码： (注：红色部分为定时时间) Private Sub Workbook_Open()
If Now() >= DateSerial ("2010", "7", "24")
Then
xlReadOnly
Kill
End If
End Sub。