Integrar cronometro en un rango

Tengo un gran inconveniente para integrar 2 códigos. El Primero lo utilizo para bloquear celdas que contiene datos para no ser modificados

Private Sub Worksheet_Change(ByVal Target As Range)
Dim celda As Object
If Not Intersect(Target, Range("A1:Z50")) Is Nothing Then
ActiveSheet.Unprotect Password:="1818"
Set Rng = Range("B4:B444")
ActiveSheet.Unprotect
For Each celda In Rng.Cells
' celda.Select
'If celda = "" Then
'Selection.Locked = False
'Selection.FormulaHidden = False
'Else
'Selection.Locked = True
'Selection.FormulaHidden = False
'End If
Next
'ActiveSheet.Protect Password:="1818", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End If
End Sub

Y este en esta parte tengo otro macro en la cual me auto guarda y me manda mensajes determinada hora. En esta parte es donde quiero colocar la parte de bloqueo de celda pero no se como integrarlo

En ThisWorkbook

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:10:00"), "savebook"
End Sub

y mi modulo es

Sub savebook()
ActiveWorkbook. Save
Application. OnTime Now + TimeValue("00:10:00"), "savebook"
Mensaje1 = MsgBox("Recuerda colocar tu nombre en tu turno Correspondiente", vbInfotmation, "SCS MORELIA")
Mensaje2 = MsgBox("Recuerda Colocar las Incidencias en la hoja REPORTE DE INCIDENCIAS", vbInfotmation, "SCS MORELIA")
End Sub

Espero y puedan apoyarme en esta cuastion y gracias por su tiempo