If you want to unprotect worksheets using VBA.
Here is the code-
Sub upprotect_all_worksheets()
Dim wk As Worksheet
For Each wk In ThisWorkbook.Sheets
wk.Unprotect "password"
Next wk
End Sub
Sub unprotect_specific_worksheets()
'it will UNprotect all sheets which will be added to Array("Sheet1", "Sheet2") list
Dim abc()
Dim wk As Worksheet
Dim i As Integer
abc = Array("Sheet1", "Sheet2")
For i = LBound(abc) To UBound(abc)
For Each wk In ThisWorkbook.Sheets
If wk.Name = abc(i) Then
wk.Unprotect "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 want to add a new menu on mouse right click "Workbook Navigation showing you the list of all open workbooks and worksheets in ea...
-
Macro to Export Range in Json Format Option Explicit Sub export_in_json_format() Dim fs As Object Dim jsonfile Dim rangetoex...
No comments:
Post a Comment