*****非常神奇用VBA可以限定只用一次,则删除文件*****

york888

非常神奇的 VBA 限定只用一次, 当您打开该EXCEL文件后就会自动删除该文件!  
0W0zwjne.rar (13.06 KB, 下载次数: 1604)

2005-11-15 10:12 上传

点击文件名下载附件
*****非常神奇用VBA可以限定只用一次,则删除文件*****

[move]ＥＸＣＥＬ技巧集[/move]

[move]ＥＸＣＥＬ技巧集[/move]

[此贴子已经被作者于2006-6-21 19:17:16编辑过]

york888

ＥＸＣＥＬ限用次数加载宏　这样进行加载：工具》加载宏》浏览》选此文件》确定 即可以了 rBX6G0MI.rar (13.06 KB, 下载次数: 1043)

2005-8-23 15:26 上传

点击文件名下载附件

[此贴子已经被作者于2005-8-23 15:26:41编辑过]

shuiyuan

有创意，收藏。

谢谢

figfig

Private Sub Workbook_Open() Application.DisplayAlerts = False '只限用一次代码! aa = GetSetting(appname:="MyApp", section:="Startup", key:="aaa", Default:=1) MsgBox "还有" & 3 - aa & "次!!" If aa = 3 Then ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ThisWorkbook.Close False End If aa = aa + 1 SaveSetting "MyApp", "Startup", "aaa", aa End Sub

york888

以下是引用figfig在2005-5-20 19:27:00的发言：

Private Sub Workbook_Open() Application.DisplayAlerts = False '只限用一次代码! aa = GetSetting(appname:="MyApp", section:="Startup", key:="aaa", Default:=1) MsgBox "还有" & 3 - aa & "次!!" If aa = 3 Then ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ThisWorkbook.Close False End If aa = aa + 1 SaveSetting "MyApp", "Startup", "aaa", aa End Sub

figfig 多谢您! 我来试试代码!

york888

以下是引用figfig在2005-5-20 19:27:00的发言：

Private Sub Workbook_Open() Application.DisplayAlerts = False '只限用一次代码! aa = GetSetting(appname:="MyApp", section:="Startup", key:="aaa", Default:=1) MsgBox "还有" & 3 - aa & "次!!" If aa = 3 Then ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ThisWorkbook.Close False End If aa = aa + 1 SaveSetting "MyApp", "Startup", "aaa", aa End Sub

figfig:请帮忙在修正一下, 现在代码好象又不行了! 有 -21次那么多, 不知错在那里!

6ZMeLVig.rar (6.2 KB, 下载次数: 304)

2005-5-20 20:08 上传

点击文件名下载附件
*****非常神奇用VBA可以限定只用一次,则删除文件*****

figfig

Private Sub Workbook_Open() Application.DisplayAlerts = False '只限用一次代码! aa = GetSetting(appname:="MyApp", section:="Startup", key:="aaa", Default:=1) MsgBox "还有" & 3 - aa & "次!!" If aa = 3 then ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ThisWorkbook.Close False End If aa = aa + 1

if aa>3 then aa=1 SaveSetting "MyApp", "Startup", "aaa", aa End Sub

[此贴子已经被作者于2005-5-20 20:35:13编辑过]

york888

多谢 figfig 的多次帮助, 在次感谢!

FENGJUN

以下是引用york888在2005-5-20 19:05:00的发言：

这个才是正确的! 请下载这个文件!

代码的准确作用似乎应是“打开则自毁”，是一次也不能用！

york888

以下是引用FENGJUN在2005-5-21 10:34:00的发言： >

代码的准确作用似乎应是“打开则自毁”，是一次也不能用！

不会吧! 您用figfig 改个的代码试试,可以试用三次的!

Private Sub Workbook_Open() Application.DisplayAlerts = False '只限用一次代码! aa = GetSetting(appname:="MyApp", section:="Startup", key:="aaa", Default:=1) MsgBox "还有" & 3 - aa & "次!!" If aa = 3 then ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ThisWorkbook.Close False End If aa = aa + 1