VBA技巧：在不保护工作簿的情况下防止删除工作表

excelperfect

标签：VBA

下面介绍一个使用少量VBA代码实现的简单实用的小技巧。

通常情况下，我们执行“保护工作簿”命令后，此时删除工作表的命令变成灰色，用户就不能轻易地删除工作表了。然而，这样也不能进行插入、移动或复制工作表的操作了。

如果想要在不保护工作簿的情况下防止用户删除工作表，而且允许用户插入工作表并对其进行重命名，也允许用户移动或复制工作表，有没有什么好的方法实现？可以使用下面的VBA代码，很简单，却很实用。

在工作簿的ThisWorkbook模块中粘贴或输入下面的代码：

Option Explicit

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

    '保护工作簿,没有密码

    ThisWorkbook.Protect , True

    '自动运行指定过程

    Application.OnTime Now, 'ThisWorkbook.RemoveProtection'

End Sub

Sub RemoveProtection()

   '撤销保护工作簿

    ThisWorkbook.Unprotect

End Sub

此时，用户再要删除该工作簿中的工作表，就会弹出“工作簿有保护，不能更改。”的警告信息（如下图1所示），但用户仍可以在该工作簿中进行添加工作表、移动或复制工作表、对工作表重命名等操作。

图1