Disabling buttons on worksheets using vba

[redbull8vodka]

Hi there,

Can anyone help me I wish to disable some buttons on a worksheet so to guide the user around the page step by step can anyone help me with the referencing of the button

i.e Worksheet("Main Menu").cmdButton.enabled = False

Cheers

 

[anvil19]

Hey redbull8vodka

The correct code would be :

Sheets("Main Menu").CommandButton<NumberHere>.Enabled = False

where NumberHere represents the actual CommandButton number.

You can also loop through the controls and disable all those command buttons that are not named "Whatever" using the CmdButton control type i.e

For Each ctl in Controls
If ctl.Type = CmdButton Then
If ctl.Name <> CommandButton1 Then
ctl.Enabled = False
End If
End If
Next ctl

Try That

anvil19

 

[pratmacro]

Hey redbull8vodka

The correct code would be :

Sheets("Main Menu").CommandButton<numberhere>.Enabled = False

where NumberHere represents the actual CommandButton number.

You can also loop through the controls and disable all those command buttons that are not named "Whatever" using the CmdButton control type i.e

For Each ctl in Controls
If ctl.Type = CmdButton Then
If ctl.Name <> CommandButton1 Then
ctl.Enabled = False
End If
End If
Next ctl

Try That

anvil19

hi, can anyone tell me how we suppose to disable the button which we take it from "Form control" i am able to do with activex button but if i take it from Form control i am not able to disable button.

Sub Button1_Click()
Dim b1 As Button
Set b1 = ActiveSheet.Buttons("Button 1")
b1.Font.ColorIndex = 15
b1.Enabled = False

MsgBox "hello"
End Sub


i have written above code and i have try to disable button with changing color but still msgbox "hello" showing every time but "hello" should be show only one time. can anyone help me on this?












</numberhere>