Store input from userform in a password protected sheet

[sam]

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

 

[john]

With Worksheets("Sheet2")

.Unprotect Password:=MyPassword

' do your stuff

.Protect Password:=MyPassword

End With

 

[sam]

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]

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