Worksheet Protection with password

I have a spreadsheet that I have completed that everyone in the office shares.
I can record a macro to protect and unprotect a specfic sheet, but i cannot get the macro to record protecting and unprotecting the sheet with a password.
Is there code that can be written for that?
Thank you,
Todd

How about something like...

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Jeff,
The following code...

Sub WSprotect()
Dim MyPassword As String
Dim ws As Worksheet
MyPassword = _
Application.InputBox(prompt:="Enter password to protect worksheets/workbook", _
Title:="Password Input")
For Each ws In Worksheets
ws.Protect MyPassword, userinterfaceonly:=True
Next ws
ActiveWorkbook.Protect MyPassword
End Sub

Generates error 1004 "The password you supplied is incorrect".
How can it be incorrect when I am just entering it? Am I missing some programming?
Please and Thank You,
Todd

You need to use Code Tags, not Quote Tags & edit the original post, don't confuse Thread readers by posting again