Макрос блокирующий изменение ячеек

[Qeto]

Добрый день!
как исправить макрос, чтобы он начинал блокировать ячейки при сохранении документа? И при повторном открытии можно бы было вносить новые данные, а старые нельзя было бы редактировать.

Private Sub Worksheet_Change(ByVal Target As Range)   
If Target.Count > 1 Then Exit Sub  
    ActiveSheet.Unprotect  
         Target.Locked = True  
    ActiveSheet.Protect  
   End Sub