At the top of the code try putting in code like

ActiveSheet.Protect UserInterFaceOnly:=True

if you are using Excel 2002 or later, you need to include

ActiveSheet.Protect Password:="ABCD", UserInterFaceOnly:=True

otherwise, you have have your code unprotect the sheet, do its work,
reprotect the sheet.

--
Regards,
Tom Ogilvy

"Shilps" wrote in message
...
Hi,
I have a worksheet that is used to display the data by selecting various
options in the different controls. I want that no user is able to change
anything except select different options. I first unlocked various objects
and cells and password protected it( I do not want the code to be visible)
but the problem is that even by first unlocking different cells and objects
, the code is giving run-time error.
Is there any solution to it?
TIA
Shilps