Disable a Macro

[Canoer]

Is it possible to disable a macro with another macro?

I have a worksheet with "Button A" and a hyperlink that runs "Macro A". Once it is clicked and Macro A runs, I want that hyperlink or that macro disabled until "Button B" is clicked that runs "Macro B". Conversely, once Macro B is run, I want Macro B to be deactivated until Macro A is run again.

The reason is, most times only Macro A should be run, but if it is, it should not be run again, unless Macro B is run, and Macro B should not be run until Macro A has already been run.

Any help would be appreciated. Thanks.

 

[ranman256]

macro A should end with opening the hyperlink, after putting a value in a cell. say A
macro A cannot run again with A in that cell.
macro B cannot run unless A is in that cell and will alter/remove the value, so macro A can run again.

 

[Joe4]

I don't think you can "disable one macro" while allowing others to run in a single workbook. All macros are enabled, or neither none are.

However, there may be other ways to accomplish what you want. You could have one macro update some cell somewhere in your workbook, and then have the other macro check that value before running the code below it.

For example, let's say that you one macro updates the cell Z1 to say "Do Not Run".
Then, you could have code at the beginning of the other macro that looks something like this:

If Range("Z1") = "Do Not Run" Then Exit Sub

so you exit the code at that point without running anything below that line.

I think doing something like that should accomplish what you are ultimately trying to do.

 

[saboh12617]

Hello,

One way to do it would be to create a named variable, for example "CanRunMA", and define it on False when MacroA is run.

At the beginning of the macro you update its value.



It could look like :

Sub MacroA()

If Not [CanRunMA].Value2 Then Exit Sub

' … your code A

[CanRunMA].Value2 = False ' macroA did run, it can not be called again

End Sub



Sub MacroB()

If [CanRunMA].Value2 Then Exit Sub

' … your code B

[CanRunMA].Value2 = True ' macroB did run, it can not be called again

End Sub