Disable shape as button

Question

Hi,

I would like to disable a shape as button to run macro after first click.

Is this possible?

Thanks

Answer 1

Hi Gord,

For me that answer is like when I ask something like this:

What the Americans do in Christmas? and you answer 

" Go to America and you see"

If I'm wrong, please tell me why.

Thanks

Answer 2

Welcome. . . .BTW variations of that that code can be found in the first three hits that are found in the sites my first response pointed you toward.

Gord

Answer 3

Hi Gord,

Thanks a lot

Answer 4

'Assuming you have used a CommandButton from the Activex Controls

'Assign this macro to that button and the code will run once then be disabled

'The code will be placed in the worksheet module

Private Sub CommandButton1_Click()

MsgBox "Macros will be now be disabled.  Re-open workbook to re-enable"

    Sheets(1).CommandButton1.Enabled = False

    CommandButton1.Caption = "Disabled"

End Sub

'Add the following Workbook_Open code to This workbook module

'This will reenable the button upon opening the workbook

Private Sub Workbook_Open()

         With Sheets(1)

               .CommandButton1.Enabled = True

               .CommandButton1.Caption = "Enabled"

        End With

End Sub

Gord

Answer 5

Many examples of code found in these search results.

https://www.google.com/search?client=firefox-b-d&q=excel+macro+run+once+only

Gord