pradyuthal
Board Regular
- Joined
- Jul 13, 2005
- Messages
- 212
how do lock/protect particular cell(s) containing formulae so that none can delete it by mistake .
Please help me.
Please help me.
Sub Lock_Formula()
Dim myRange As Range
ActiveSheet.Unprotect Password:="Test"
For Each myRange In ActiveSheet.UsedRange
If myRange.HasFormula Then
myRange.Locked = True
Else
myRange.Locked = False
End If
Next myRange
ActiveSheet.Protect Password:="Test"
End Sub
Sub Unlock_Formula()
Dim myRange As Range
ActiveSheet.Unprotect Password:="Test"
For Each myRange In ActiveSheet.UsedRange
If myRange.HasFormula Then
myRange.Locked = False
End If
Next myRange
ActiveSheet.Protect Password:="Test"
End Sub