Lock & UnLock Cells visual basic

lock_unlock_cells.vb

Sub unlockCells()
'
' unlockcell Macro
'
' Método abreviado de teclado: Opción+Cmd+e
'
 Dim chRng As Range
 Worksheets("Sheet2").Unprotect ("password")
 Set chRng = Worksheets("Sheet2").Range("E1:E100")
 
 For Each chCell In chRng.Cells
   chCell.Locked = False
 Next chCell

 Worksheets("Sheet2").Protect ("password")

End Sub

Sub lockCells()
'
' unlockcell Macro
'
' Método abreviado de teclado: Opción+Cmd+e
'
 Dim chRng As Range
 Worksheets("Sheet2").Unprotect ("password")
 Set chRng = Worksheets("Sheet2").Range("E1:E100")
 
 For Each chCell In chRng.Cells
   chCell.Locked = True
 Next chCell

 Worksheets("Sheet2").Protect ("password")

End Sub