How I disable a command button until cell has value?

[Brian]

I have a workbook with many worksheets(25), on one
worksheet is a command button that when clicked locks all
cells in all worksheets, once all the data required is
entered. What I need is to disable this button until a
cell on the first worksheet has a specific value, can
anyone please help with the necessary code or macro?

The appropriate cell is E41 on sheet1, it has to have the
value "For Contract" to allow the button to be used.

Thank you in advance for any assistance.

Brian

 

[Don Guillett]

You did not post your code but maybe this 1st line will do it.
if sheet1!a1<>12345 then exit sub

 

[Haldun Alay]

Hi,

you need to put some code to sheet1's worksheet_change event.

Private Sub Worksheet_Change(ByVal Target As Range)
if range("E41").value="For Contract" then
'assumed that commandbutton located on sheet2 and name is commandbutton1
sheet2.commandbutton1.enabled=true
end if
End Sub

 

[Tom Ogilvy]

Private Sub CommandButton1_Click()
if lcase(worksheets(1).Range("E41").Value <> "for contract" then
msgbox "Worksheets are incomplete, can't lock at this time"
exit sub
End if
' your exisitng code

End Sub

It would be difficult to program code that would enable the commandbutton at
the appropriate time - probably easier just to have it do nothing (but warn
the user) until the condition is met.

 

[Brian]

Thank you for your assistance, I have managed to get the
button working fine now.

Brian