主题：不允许直接删除单元格的数据

DataColChanging事件，写代码

If e.DataCol.name = "第五列" AndAlso e.NewValue = Nothing Then
    If Forms("窗口1").opened = False Then '这里可以加入一个全局变量做标记
        e.cancel = True
    End If
End If