VBA：控制工作表一二行填写数据后不允许修改

如何控制工作表的一二行单元格，填写数据之后则不允许修改?

步骤：1. 查找工作表第一行和第二行是否有值；

2. 检查当前选择的单元格是否在第一行或第二行；

3. 检查当前选择的单元格是否有值；

4. 判断当前选择的单元格返回的是数组还是单个值。

'所有的工作表，若是第一、二行有值，则不允许修改
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    
    '检查工作表的第一行和第二行是否有值
    If Sh.Rows(1).Find("*", LookIn:=xlValues, LookAt:=xlWhole) Is Nothing And Sh.Rows(2).Find("*", LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
        ' 如果第一行和第二行都没有值，不需要做任何处理
        Exit Sub
    End If