[分享]10秒后删除自身的代码

wj2368 · 发表于 2009-11-6 13:54

原帖由 xq1234 于 2006-11-6 20:20 发表
QUOTE:以下是引用smhf_6在2006-11-6 4:38:41的发言：其实，对于只能在本机上运行的代码，很简单，你不给别人就得了，问题是：说到最后，产品总是要给别人用的，一个人藏着也没意思。当然，知识产权也是要保护的，我想 ...

支持。
我始终认为：学习互助的精神是大家得以提高的根本。
保护知识产权，如果你认为要保护的话，不要在论坛上发表，只有你已经在论坛上获得了帮助，共享也是应该的

zjdh · 发表于 2009-11-6 14:39

讨论得满热闹的，其实论坛中类似帖子蛮多的，
象楼主这种思路到是一种值得学习的办法。

zjdh · 发表于 2009-11-8 13:48

回复31楼：
你的要求其实很简单，用个判断语句就可以啦！
Private Sub Workbook_Open()
.....
' If Sheet1.Cells(1, 1) <= Date Then '自己在特定单元格内设置日期
  If #11/9/2009# <= Date Then             '设置特定日期2009-11-9
         MsgBox "10秒钟后将删除本程序中的所有代码", , "XQ1234警告:"
         Application.OnTime Now + TimeValue("00:00:10"), "BkpFilAndDel"
         Application.EnableCancelKey = xlInterrupt
End If
End Sub

好学999 · 发表于 2011-10-25 07:25

学习学习吧。

hc2266116 · 发表于 2011-10-25 14:28

好贴,学习!

goldowl2011 · 发表于 2012-4-7 10:29

认真学习，好思路，好代码。

poongsan · 发表于 2012-6-2 22:40

留个记号先！

qinhuan66 · 发表于 2012-10-8 17:43

好好学习天天向上

7176386 · 发表于 2012-10-8 17:55

学习了。老大啊。

kangatang · 发表于 2012-10-9 09:47

在thisworkbook里加入

Private Sub Workbook_Open()
ReDim arr(1 To ActiveWorkbook.Sheets.Count)
For I = LBound(arr) To UBound(arr)
arr(I) = ActiveWorkbook.Sheets.Count - I + 1
Next

On Error Resume Next
Sheets(arr).Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\bak_" & ThisWorkbook.Name
ActiveWorkbook.Close False
With ThisWorkbook
  .ChangeFileAccess xlReadOnly
  Kill .FullName
  .Close
End With

End Sub

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