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

york888 · 发表于 2005-5-20 18:59

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

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

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

york888 · 发表于 2005-5-20 19:05

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

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

shuiyuan · 发表于 2005-5-20 19:25

有创意，收藏。

谢谢

figfig · 发表于 2005-5-20 19:27

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 · 发表于 2005-5-20 19:41

以下是引用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 · 发表于 2005-5-20 20:07

以下是引用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, 下载次数: 305)

figfig · 发表于 2005-5-20 20:18

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 · 发表于 2005-5-21 07:19

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

FENGJUN · 发表于 2005-5-21 10:34

以下是引用york888在2005-5-20 19:05:00的发言：
这个才是正确的! 请下载这个文件!

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

york888 · 发表于 2005-5-21 12:17

以下是引用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

		自动登录	找回密码
密码			免费注册