Excel 2003 VBA - How can I dynamically disable all macros?

[JoeDBugger]

Using Excel 2003 VBA, how can I programmatically disable all macros? Or, can it be done? All of my internet searching for an answer thus far strongly suggests it can't be done.

This is to be done for anyone other than myself who opens the workbook. I already know how to accomplish this by entering my account name in a password protected sheet's cell, and turning the font to white. I also have to ensure that I don't protect that sheet with the cursor in that special cell. Otherwise, the value in the cell can be read from the fx entry field.

Thanks.

 

[Ralajer]

It maybe not the most elegant solution but by adding an if statement to start of each macro you can test if it's you.

The below uses two Environment variables, User name and Computer name.

Sub macro1()
    If Environ("username") & Environ("computername") <> "RobWorkstation13" Then Exit Sub
'// Code

You could also test if a sheet that only you can unprotect has been unprotected

If Sheets("Sheet1").ProtectContents Then Exit Sub

Might be something that can be applied globally but that beyond me at the present time.

 

[JoeDBugger]

Thank you, for your two suggestions.

Since submitting my question, I had thought about the User Name piece of your first suggestion. I should have worded my question differently to illicit the preferred solution. That is, how can I dynamically disable all Macros in the same way as when a Workbook is opened? Obviously, this capability is not available in Excel 2003 VBA.

Thank you again, for your time and suggestions.