Låse celle når den er udfyldt

Måske kan noget i denne stil bruges.
Inden filen bliver gemt låser makroen alle celler i det valgte område, hvis de ikke er tomme.
Den nederste makro resetter de låste filer

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim c As Range
Worksheets("Sheet1").Unprotect Password:="123456"
Range("D10:AL20, D25:AL35, D40:AL50").Select
For Each c In Selection
If c <> "" Then c.Locked = True
Next
Worksheets("Sheet1").Protect Password:="123456"
Range("D10").Select
End Sub

Sub ResetLock()
Worksheets("Sheet1").Unprotect Password:="123456"
Range("D10:AL20, D25:AL35, D40:AL50").Locked = False
Range("D10:AL20, D25:AL35, D40:AL50").ClearContents
Worksheets("Sheet1").Protect Password:="123456"
End Sub