Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with VB Script
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with VB Script
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with VB Script
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with VB Script
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with VB Script
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Help ! How do I do this in VB Script | Setting up and Configuration of Excel | |||
VB Script | Excel Programming | |||
vba script help | Excel Programming | |||
Help with VB script please? | Excel Programming | |||
Excel 2000/XP script to Excel97 script | Excel Programming |