How to make macro run only once

[Hiport]

Hi, is it possible to put a message box in a VBA code so that the macro only runs once, else the worbook needs to reopened again for it to work. Is this the best way from preventing the macro to run again?

If i have multiple users, there is always a chance one might accidently press the command button twice.

 

[Hiport]

Did you try as mentioned in post #5?

Private Sub Workbook_Open()
Sheets("YourSheetName").CommandButton1.Enabled = True
End Sub

Private Sub CommandButton1_Click()
Sheets("YourSheetName").CommandButton1.Enabled = False
End Sub

i get the same error message as previous post. Let me get this straight, is the below correct?

Private Sub Workbook_Open()
Sheets("Sheet1").CommandButton1.Enabled = True
End Sub

Private Sub CommandButton1_Click()
    Range("A1").Value = "Hello"
   Sheets("Sheet1").CommandButton1.Enabled = False
End Sub

 

[KSTWS]

Button is on Sheet1?
Button name is "CommandButton1"?

If so code should work.

 

[Hiport]

Button is on Sheet1?
Button name is "CommandButton1"?

If so code should work.

That is correct but i still get that error message

 

[Peter_SSs]

Hiport

Are you certain that your sheet is called 'Sheet1' with no spaces (including before or after the name)?

Can you confirm that the button was added by Developer ribbon|Insert|ActiveX Controls command button?

In design mode, right click on the button and choose 'Properties' can you confirm the name (very top line) is CommandButton1?

 

[gurkan]

that works for me! thanks a million

Peter_SSs