每一行如何根据特定单元格是否有值进行分步锁定设置

小水water

需求：
当E列单元格有值后，先自动锁定该行的A-E列；
然后当H列单元格有值后，自动锁定该行的A-H列（或者补充锁定F-H列）。

自己小白，通过网上查询，写了下文的自动锁定VBA，但是只能锁定A:E列，无法锁定F-H列，请大咖帮个忙


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim N As Long
    N = Target.Row
    If Intersect(Target, Range("E:E")) Is Nothing Then Exit Sub
    If Target.Text <> "" Then
    ActiveSheet.Unprotect "123"
      Range("A" & N & ":E" & N).Locked = True
    ActiveSheet.Protect "123"
    End If
   
    Dim M As Long
    M = Target.Row
     If Intersect(Target, Range("H:H")) Is Nothing Then Exit Sub
     If Target.Text <> "" Then
     ActiveSheet.Unprotect "123"
     Range("A" & M & ":H" & M).Locked = True
     ActiveSheet.Protect "123"
     End If
End Sub