I don't want it to work

bluefeather8989 · Feb 26, 2011

I need to make a macro not to work if A1=1
the macro is attached to a shape and it someone double clicks it will run twice (that’s very BAD).

mole999 · Feb 26, 2011

ok, the next trick, what defines finished ?

Yea MY bad i forgot to say that the macro has to be able to run again after it is finished. Trying to make this idiot proof . I don't want to be able to double click while it is in process. sry for not saying so

bluefeather8989 · Feb 26, 2011

mole999 said:
ok, the next trick, what defines finished ?

there is a timer in this macro so when the macro is finished running

Application.Wait (Now + TimeValue("0:00:05"))

mole999 · Feb 26, 2011

but that should pause the application for 5 seconds

try this and look at the cells, just place it in a vacant sheet

Code:

Sub test()
Range("a1").Value = Now()
Application.Wait (Now + TimeValue("0:00:05"))
Range("a2").Value = Now()
End Sub

bluefeather8989 · Feb 26, 2011

mole999 said:
but that should pause the application for 5 seconds

try this and look at the cells, just place it in a vacant sheet

Code:

Sub test() Range("a1").Value = Now() Application.Wait (Now + TimeValue("0:00:05")) Range("a2").Value = Now() End Sub

yea thats the idea 5 second pause. i am sry but i fail to see how this will help me with this problem. could you explain it to me?
oh ok now i under stand but this is what is supose to happen

bluefeather8989 · Feb 26, 2011

ok this may help you to understand what is going on
in a blank sheet insert a shape any shape will do.then add this to that shape then click the shape. then double click the shape (like you would on your comp). you see how it runs twice after double (or more) clicks?

Code:

Sub test()
Application.Wait (Now + TimeValue("0:00:02"))
Range("a1").Value = Now()
Application.Wait (Now + TimeValue("0:00:02"))
Range("a2").Value = Now()
Application.Wait (Now + TimeValue("0:00:02"))
    Range("A1:A2").Select
    Selection.ClearContents
End Sub

RoryA · Feb 26, 2011

Why not hide the macro shape at the start of the code and then show it again at the end?

bluefeather8989 · Feb 26, 2011

rorya said:
Why not hide the macro shape at the start of the code and then show it again at the end?

ok HOW do you do that?

RoryA · Feb 26, 2011

Code:

activesheet.shapes(application.caller).visible = false

for example

bluefeather8989 · Mar 13, 2011

rorya said:
Code:

activesheet.shapes(application.caller).visible = false

for example

NOPE.. this doesn't work all this does is hide the shape. you can still press it to call the macro. Is there a macro that will not allow macros to run?

jasonb75 · Mar 13, 2011

bluefeather8989 said:
NOPE.. this doesn't work all this does is hide the shape. you can still press it to call the macro. Is there a macro that will not allow macros to run?

It works if you do it with screenupdating active, i.e

Code:

ActiveSheet.Shapes(Application.Caller).Visible = False
Application.ScreenUpdating = False
 
your code here
 
ActiveSheet.Shapes(Application.Caller).Visible = True
Application.ScreenUpdating = True

The shape will still be visible but you won't be able to click it until .Visible is set true again.

I don't want it to work

bluefeather8989

Active Member

mole999

Well-known Member

Excel Facts

bluefeather8989

Active Member

mole999

Well-known Member

bluefeather8989

Active Member

bluefeather8989

Active Member

RoryA

MrExcel MVP, Moderator

bluefeather8989

Active Member

RoryA

MrExcel MVP, Moderator

bluefeather8989

Active Member

jasonb75

Well-known Member

Similar threads

Forum statistics

Share this page

I don't want it to work

Active Member

Well-known Member

Excel Facts

Active Member

Well-known Member

Active Member

Active Member

MrExcel MVP, Moderator

Active Member

MrExcel MVP, Moderator

Active Member

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock