Macro to delete itself (or other macro) without enabling Trust Access to VBA Object Model

[blasko]

Is this possible?

I need a macro to either delete itself after running, delete another macro after it has run (either way), or simply overwrite itself (or another macro). Basically just need to hide a macro after a user runs it. I have found multiple solutions for this and have tested them. They work, IF you enable "Trust Access to VBA Project Object Model" in the Word options.

Thoughts?

I have tried multiple similar versions of this but all require the option to be enabled:

Please Login or Register  to view this content.

Thoughts? Thanks!

[Bernie Deitrick]

You cannot delete or modify VBA code without trusting access. That's why that setting is there.

You can use some custom document property to disable the macro if it has been run already - check for a specific value, exit the macro if it does match, or run the macro and then set the property to the value that disables. If you want to delete all the VBA then a macro that saves the file as a docx instead of a docm might work....

[blasko]

Hi, Bernie. Thanks for the quick response!

I'm sorry, but I do not fully understand what you mentioned. I am quite new to the world of Office macros and VBA. It sounded like maybe a macro could be checked and then changed?

Basically, this is the code/concept that is in place. I simply want to hide/change the code in MacroA. Is there anyway to do that (I'm fine if I can't delete the macro as a whole)? Thanks!

Please Login or Register  to view this content.

[macropod]

To see how to use custom document properties:
http://word.mvps.org/faqs/MacrosVBA/MixedDocProps.htm
http://msdn.microsoft.com/en-us/libr...ffice.11).aspx
http://support.microsoft.com/kb/212618/en-us

[Bernie Deitrick]

Create a custom property named 'test' and set its type to text. Then change Macro A to this - after testing, you can remove the msgbox lines....

Sub MacroA()
MsgBox "Hello from Macro A"

If ThisDocument.CustomDocumentProperties("test").Value = "Done" Then
MsgBox "I already did stuff, so I will not do it again"
Else
MsgBox "I am going to do stuff now:"
ThisDocument.CustomDocumentProperties("test").Value = "Done"
'<do stuff>
End If
End Sub