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
Subscribe to:
Post Comments (Atom)
Import data from SQL
Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...
-
If you have added the shape in the sheet and now you want to change it color , text , font size ,etc using VBA. Snapshot below Code- Su...
-
If you want to add a new pop up button on mouse right click menu and as soon as you click on it . It shows you multiple buttons with macro a...
No comments:
Post a Comment