有问题啦:旧版本(某些2.1版)能实现自杀(经封装后自动关闭,不能自杀),但新版本就提示出错。 最新版本只在同一地方建立临时文件,只要把临时文件复制到另一个地方,改名就破解封装了(请不要做得这么简单,旧版本还好点)。 还有的就是上几楼提到的保存问题,不能在作业期间保存,只能关闭保存。 我在excel里插入了一段代码。没封装前能实现自杀。 Private Sub Workbook_Open() '限制andysky才能开此工作簿。,其它人打开则自杀 Application.EnableCancelKey = xlDisabled '此句表示禁用CTRE+Break中断代码执行 If CreateObject("wscript.network").UserName <> "andysky" Then '检查用户名 Application.DisplayAlerts = False ' 不出现提示 ActiveWorkbook.ChangeFileAccess xlReadOnly '文件唯读 Kill ActiveWorkbook.FullName '自杀 ThisWorkbook.Close False '关闭 Else MsgBox "你已授权开启", vbDefaultButton1, "恭禧" '提示 End If '结束IF语句 End Sub
[此贴子已经被作者于2007-1-18 10:42:26编辑过] |