Hello.

I have a Macro (VB script) that will help me protect all worksheets within a
workbook. It prompts for the password to protect all sheets when the Macro
is run.

Can someone help me revise the code below where only 2 worksheets are
protected out of a 3-worksheet workbook? Thank you!

Sub Protect()
Dim myPWD As String
Dim wks As Worksheet
myPWD = Application.InputBox("Enter Password: ")
For Each wks In ActiveWorkbook.Worksheets
wks.Protect Password:=myPWD
Next wks
End Sub

replace "the one you want to exclude" with whatever the name of the
sheet is that you want to exclude.

Sub Protect()
Dim myPWD As String
Dim wks As Worksheet
myPWD = Application.InputBox("Enter Password: ")
For Each wks In ActiveWorkbook.Worksheets
If wks.Name < "the one you want to exclude" Then _
wks.Protect Password:=myPWD
Next wks
End Sub

On May 14, 2:00*pm, Storm wrote:
Hello.

I have a Macro (VB script) that will help me protect all worksheets within a
workbook. *It prompts for the password to protect all sheets when the Macro
is run.

Can someone help me revise the code below where only 2 worksheets are
protected out of a 3-worksheet workbook? *Thank you!

Sub Protect()
* Dim myPWD As String
* Dim wks As Worksheet
* myPWD = Application.InputBox("Enter Password: ")
* For Each wks In ActiveWorkbook.Worksheets
* * wks.Protect Password:=myPWD
* Next wks
End Sub

Thank you!

"JW" wrote:

replace "the one you want to exclude" with whatever the name of the
sheet is that you want to exclude.

Sub Protect()
Dim myPWD As String
Dim wks As Worksheet
myPWD = Application.InputBox("Enter Password: ")
For Each wks In ActiveWorkbook.Worksheets
If wks.Name < "the one you want to exclude" Then _
wks.Protect Password:=myPWD
Next wks
End Sub

On May 14, 2:00 pm, Storm wrote:
Hello.

I have a Macro (VB script) that will help me protect all worksheets within a
workbook. It prompts for the password to protect all sheets when the Macro
is run.

Can someone help me revise the code below where only 2 worksheets are
protected out of a 3-worksheet workbook? Thank you!

Sub Protect()
Dim myPWD As String
Dim wks As Worksheet
myPWD = Application.InputBox("Enter Password: ")
For Each wks In ActiveWorkbook.Worksheets
wks.Protect Password:=myPWD
Next wks
End Sub

Sub Protect()
Dim myPWD As String
Dim wks As Worksheet
myPWD = Application.InputBox("Enter Password: ")
i = 0
For Each wks In ActiveWorkbook.Worksheets
wks.Protect Password:=myPWD
i = i + 1
If i = 2 Then Exit Sub
Next wks
End Sub

--
Gary''s Student - gsnu200786

Thank you!

"Gary''s Student" wrote:

Sub Protect()
Dim myPWD As String
Dim wks As Worksheet
myPWD = Application.InputBox("Enter Password: ")
i = 0
For Each wks In ActiveWorkbook.Worksheets
wks.Protect Password:=myPWD
i = i + 1
If i = 2 Then Exit Sub
Next wks
End Sub

--
Gary''s Student - gsnu200786