Locking cells with macro

[var]

Hi excel gurus, My requirement is to lock cells to avoid tampering as files is being accessed by many users.

I have found below code which does the work, But If worksheet contains merged cells this script doesn't seems to be working. Could some please help fixing this issue


-------------
Sub Main()


With ActiveSheet
.Unprotect Password:="oVc0obr02WpXeZGy"
.Cells.Locked = False
For Each Cell In ActiveSheet.UsedRange
If Cell.Value = "" Then
Cell.Locked = False
Else
Cell.Locked = True
End If
Next Cell
.Protect Password:="oVc0obr02WpXeZGy"
End With


End Sub
------------------

Regards--Var

[TMS]

Please use Code Tags around your code excerpt to comply with the forum rules.

Regards, TMS