Subkillthisworkbook()=True'对工作簿进行了更改,但关闭时不想出想保存的提示对话框,'设定访问权限为只读, ess(mode,p asstword,notify)语名中mode分为xlreadwrite读写,xlreadonly只读,'pastword为指定的保护密码,'从硬盘上删除该文件, '从内存在结束该操作EndWithEndSub'如果运行以下语句,点击找开时,该工作簿便从硬盘上删除掉了'PrivateSubWorkbook_Open()'一定要用这句才是默认的打开是优先运行'Callkillthisworkbook'EndSub'下面2个SUB是对打开3次该工作表***的编写, 编写时需要将EXCEL的插入下有一个名称下的定义设定,该程序是设为opentimes,为了不让用户看到,所以下面第2个是隐藏程序SubReadOpenTimes()DimotimesAsIntegerotimes=Evaluate(("opentimes").RefersTo)otimes=otimes+1Ifotimes>("opentimes").RefersTo="="&otimesEndIfEndSubSubHidenames()("opentimes").Visible=False'隐藏插入名称下的评定义设定EndSubPrivateSubWorkbook_Open()'这一句非常重要,不能变动CallReadOpenTimesEndSubPrivateSubWorkbook_Open()callautoEndSubsubauto() Now+TimeSerial(24,0,0),"auto""''!sm"EndSub
打开超过3次便自杀掉 来自淘豆网www.taodocs.com转载请标明出处.