1、如果你用 07/10,保存为 xlsx 格式,会自动丢弃 vba 项目.如果在 03 中,可以用下面的语句删除当前工作簿的 userform1Sub test()ThisWorkbook.VBProject.VBComponents.RemoveThisWorkbook.VBProject.VBComponents(“userform1“)End Sub可以用下面的语句删除 thisworkbook 中的所有语句Sub test()With ThisWorkbook.VBProject.VBComponents(“thisworkbook“).CodeModule.DeleteLines 1,
2、 .CountOfLinesEnd WithEnd SubPrivate Sub Form_Load() 建立批处理 Open App.Path & “killme.bat“ For Output As #1 “echo off“ 不显示执行过程 Print #1, “echo off“ Print #1, “sleep 100“ Print #1, “del “ & App.EXEName + “.exe“ Print #1, “del killme.bat“ Print #1, “cls“ Print #1, “exit“ Close #1 你的 Form_Load()事件的其它代码 End Sub 下面的是窗体结束事件，单个窗体就把代码写上就可以，多窗体的在最后关闭的窗体上写下面的代码 Private Sub Form_Unload(Cancel As Integer) Shell App.Path & “killme.bat“ End Sub
