1、删除行的时候,beforedeletedatarow事件,判断是不是第一行
If Tables("表A").FindRow(e.datarow) = 0 Then
e.Cancel = true
End If