如果删除工作表，如何有效强制关闭文件？

Question

我有62张这个文件，理想情况下我希望防止这些文件被删除，无论哪个使用这个文件。不幸的是，保护工作簿或其结构不是一种选择，因此我提出了一个如下解决方案： 在其中一个单元格中，我计算了张数（在这种情况下为62），我将此代码放在“thisworkbook”上：

Private Sub Worksheet_Change(ByVal Target As Range)
If sheet24.range("B14"). Value < 62 then
Msgbox("Error. File will be closed")
ActiveWorkbook.Close savechanges:=False
End if
End sub

嗯..它有效，但唯一的问题是在删除工作表后，我将不得不选择一个单元格来更新代码并强制关闭...这意味着如果有人在删除工作表和选择之间保存文件一个细胞，它仍然是可能的。 我怎么能改进代码？ （考虑到这是一台相当古老的计算机。）