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

w_tt

如果将文件先存为只读，再打开时会出错，就不能顺利删除原文了。

xq1234

“将文件先存为只读”？

是修改文件属性为只读吧？这个在VB代码中可以解开，不过本人没考虑到这一点。

w_tt168

对，是先将文件改为只读，再打开。

nych

好东西，谢谢分享[em02]

smhf_6

QUOTE:

以下是引用xq1234在2006-11-6 20:20:51的发言：

smhf_6的想法不错，我想可以根据EXCEL菜单的ID来做一个自定义事件，打开VBE应该是通过一个命令ID来完成的。根据这个命令ID做一个自定义事件来删除代码或自杀。可惜本人水平不够。望高手指点。

这要涉及的类模块，我这里有一位高手做的工作表删除的自定义事件

谢谢：

1、您提供的这个工作表我也能看到代码。2、我已收藏了您的许多作品，您说水平不够望高手指点，那我是大大的不够望高高手指点了。

在此请教各位高手、高高手：凡有人想通过各种途径进入代码编辑区域时，内部代码立即自行删除的代码

poorjhq

有创意

ycqdq

学习应用吧,

ljjldd

盼望"高手"的新作出台

lst

下面的代码我想放到指定的工作表里头，即点击代码所在工作表才生效，并不是打开工作薄就生效，代码该如何修改才是？

Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Sub Workbook_Open()
    Dim lngRet As Long
    Dim strBuffer As String, strTempPath As String
   
    strBuffer = String$(260, 0)
    lngRet = GetTempPath(Len(strBuffer), strBuffer)
    LNPATH = lngRet
    If lngRet = 0 Then Exit Sub
    strTempPath = Left$(strBuffer, lngRet)
    ThisPath = Mid(ThisWorkbook.FullName, 1, LNPATH)
   
    If ThisPath = strTempPath Then
        MsgBox "禁止从压缩文件中运行本程序!" & vbLf & vbLf & " 请将本文件解压缩后再运行!"
        ThisWorkbook.Close False
    End If
   
    MsgBox "10秒钟后将删除本程序中的所有代码", , "XQ1234警告:"
    Application.OnTime Now + TimeValue("00:00:10"), "BkpFilAndDel"
End Sub

xq1234

在MSGBOX之前的代码的作用是：不让用户在压缩文件中运行，你可以删除。

   

请不要删除“BkpFilAndDel”过程，这个过程的作用就是：删除代码。在你想要删除代码的时候，你调用“BkpFilAndDel”过程就行了。