Макрос для блокировки заполненных ячеек

[LastFenix]

Люди добрые, помогите с макросом. Есть таблица на 5 столбцов, в неё люди каждый день забивают необходимые данные. Смысл в том чтоб при открытии файла все строки, дата занесения которых старше 2ух месяцев удалялись. Все оставшиеся заполненные ячейки блокировались для какого либо изменения в зависимости от пользователя, под которым они вошли (аля, если пользователь "пользователь1", то заблокировать для изменения, если нет, то оставить разблокированными).
Удаление сделал при помощи вот такого кода:

Sub Block()
Set Sheet = ActiveSheet
Cells.Locked = False
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = LastRow To 2 Step -1
If DateDiff("d", Sheet.Cells(i, 1), Date) > 60 Then
Rows(i).Delete
End If
Next i
End Sub

Помогите пожалуйста с остальным. Пример таблицы приложил.

[LastFenix]

Понял как можно заблокировать ячейки.

Sub Block()
Set Sheet = ActiveSheet
Cells.Locked = False
Sheet.Unprotect
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = LastRow To 2 Step -1
If DateDiff("d", Sheet.Cells(i, 1), Date) > 60 Then
Rows(i).Delete
End If
Next i
LastRow2 = Cells(Rows.Count, 1).End(xlUp).Row
Range(Sheet.Cells(2, 1), Sheet.Cells(LastRow2, 4)).Locked = True
Sheet.Protect
End Sub

Теперь остаётся только выполнить проверку пользователя, под которым открывается документ.