auto locking cells

[stimpy28]

Hello!

The macro I have been using to auto lock cells after they have had anything written into them works great! However...
Merged cells.... It can't handle merged cells.

Any idea's on how to improve the code to make it also lock cells?

This is the code I have been using

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
ActiveSheet.Unprotect ' Password:="secret"
For Each cel In Target
If cel.Value <> "" Then
cel.Locked = True
End If
Next cel
ActiveSheet.Protect ' Password:="secret"
End Sub


Thanks in advance!

 

[steve the fish]

Try:

cel.MergeArea.Locked = True

 

[stimpy28]

Well, that worked! Curse you for making it look so easy, haha. I knew it had something to do with the merged.area command...
Many thanks! You just made my life a bit easer!