制作Ecel自杀文件.docx

制作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占㈢口 島-彩 VBtfr+Text (^ff~ .-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 FhIIIFfwf tl?E? LU ￥M 3皿 Privats Sub Y orlA o akjOpEn ff CJ.1 吐庙“b Sal S3b 二：限制次数打幵“自杀”（注：此方法制作的文件，每次打幵后要手动 保存，打幵次数才会增加！） 步骤1:新建一个Excel表格， 步骤2：点“工具” “宏” “ Vistual Basic编辑器”（如下图所 示）。 或用快捷键“ Alt+F11 ” 步骤3:在弹出的窗口中，双击： ThisWorkbook 步骤4：在弹出的窗口中输入以下代码，把光标指到 AddHiddenNames（）区 域，按F5运行代码，，建立OpenTimes变量。（建立OpenTimes变量方法 二:在Excel菜单中点“插入”一一“名称”一一“自定义”，输入OpenTimes, 把引用位置中输入=0，如下所示）。保存，退出即可。 墓当前工作溥中的名称⑩: 引用位豊 =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 t