Macro to lock sheet

[Russk68]

Hi All
I am recording a macro to lock a sheet with a password but when I run the macro, it locks the sheet but does not use a password to protect it.
Is it possible to use a macro to lock a sheet with a password?

Thank you
Happy New Year!

 

[Michael M]

Use this
Change "Pwd" to suit

Sub MM1()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Protect Password = "Pwd"
Next ws
End Sub