I want a marco to run before the workbook save:
The macro must check in every sheet the cells I1 to I50
and if there is a value inside the checked cell , it must lock
the row .

Example if it finds a word at cell I38 i want the macro to lock Row(38).
Please help me

Here is the code:-

Sub LockEmpty()
For Each s In ThisWorkbook.Sheets
For Each c In s.Range("I1:I50")
If Not IsEmpty(c) Then
c.EntireRow.Locked = True
End If
Next c
Next s
End Sub


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!