Hi, I have a program that i would like to auto-destruct after a specific period of time.
[VBA]
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 1, .CountOfLines
End With
With ThisWorkbook.VBProject.VBComponents("UserForm").CodeModule
.DeleteLines 1, .CountOfLines
End With
Application.Workbooks("MyMacro").Save
[/VBA]
After running it the code is deleted but the workbook does not autosave, thanks
try something like this:
[VBA] ActiveWorkbook.Save[/VBA]
Steve
"Nearly all men can stand adversity, but if you want to test a man's character, give him power."
-Abraham Lincoln
sorry, i forgot to say im working through an addin. by saying activeworkbook.save the current workbook will be saved instead of the addin
so you want to delete code from the addin???
Steve
"Nearly all men can stand adversity, but if you want to test a man's character, give him power."
-Abraham Lincoln
yes
Posting Permissions
Reply With Quote
