Pages

Saturday, September 24, 2011

Protect Worksheets Using VBA

If you want to protect the worksheets using VBA.

Here is the code-

Sub protect_all_worksheets()
Dim wk As Worksheet
For Each wk In ThisWorkbook.Sheets
'choose ur own password
wk.Protect "password"
Next wk
End Sub

Sub protect_specific_worksheets()
'it will protect all sheets which will be added to Array("Sheet1", "Sheet3") list
Dim abc()
Dim wk As Worksheet
Dim i As Integer
abc = Array("Sheet1", "Sheet3")
For i = LBound(abc) To UBound(abc)
For Each wk In ThisWorkbook.Sheets
If wk.Name = abc(i) Then
'choose ur own password
wk.Protect "password"
Exit For
End If
Next wk
Next i
End Sub

No comments:

Post a Comment