Sam,
try this

Dim Mypassword As String

Mypassword = "ABCD1234"

With ThisWorkbook

.Unprotect Password:=Mypassword

With Worksheets("Sheet2")

.Unprotect Password:=Mypassword

' do your stuff

.Protect Password:=Mypassword

End With

.Protect Password:=Mypassword

End With

--
jb


"sam" wrote:

Thanks for the help, It does work now. But, I didnt kow we can still delete a
sheet even if it is protected. Is there a way where users cannot delete a
sheet?

Thanks in Advance

"john" wrote:

With Worksheets("Sheet2")

.Unprotect Password:=MyPassword

' do your stuff

.Protect Password:=MyPassword

End With
--
jb


"sam" wrote:

Hi All, I have designed a userform which accepts inputs and the inputs are
stored on Sheet2 of the same work book. Is there any way I can password
protect Sheet2 and still receive userinputs from userform in Sheet2?

Thanks in Advance