如果表被删除，如何有效地强制closures文件？

我有这张62页的文件，理想情况下我想阻止这些文件被删除，无论使用这个文件。 不幸的是，保护工作簿或其结构不是一个选项，所以我想出了一个解决scheme，就像这样：在一个单元格上，我计算了数量（本例中为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 

那么..它的工作原理，但唯一的问题是删除工作表后，我将不得不select一个单元格来更新代码，并强制closures…这意味着如果有人将文件保存在删除工作表和select单元格之间，这仍然是可能的。 我怎样才能改善代码？ （考虑到这是一个相当老的电脑。）