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

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

"Brian" wrote in message
...
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

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

--

To e-mail me, please remove AT and DOT from my e-mail address.



"Brian" , iletide sunu yazdi
...
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

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.

--
Regards,
Tom Ogilvy


"Brian" wrote in message
...
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

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

Brian
-----Original Message-----
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
.