VBA Protect Sheet

[Pinaceous]

Good Day All,

I'm working with a sub that will protect the sheet with a password:

Sub ProtectSheets()

Dim ws As Worksheet
Dim pwd As String

pwd = "password" 'Put your password here
For Each ws In Worksheets
    ws.Protect Password:=pwd
Next ws

End Sub

My question is, how do I write this specifically for a sheet and not the entire workbook?

For example, how would I apply this only to Worksheets(2)?

Please let me know.

Thank you!
Pinaceous

 

[eiloken]

Good Day All,

I'm working with a sub that will protect the sheet with a password:

Sub ProtectSheets()

Dim ws As Worksheet
Dim pwd As String

pwd = "password" 'Put your password here
For Each ws In Worksheets
    ws.Protect Password:=pwd
Next ws

End Sub

My question is, how do I write this specifically for a sheet and not the entire workbook?

For example, how would I apply this only to Worksheets(2)?

Please let me know.

Thank you!
Pinaceous

if you want to protect separate sheet, just assign protect to that sheet not for each sheet in workbook:

Sub ProtectSheets()

Dim ws As Worksheet
Dim pwd As String

pwd = "password" 'Put your password here
set ws=sheets("your worksheet")
ws.Protect Password:=pwd
End Sub