VBA 禁止删除以及更改工作表名称

chunyu.wu

于 2024-08-26 10:14:42 发布

阅读量107

点赞数 2

分类专栏： VBA 文章标签： VBA

本文链接：https://blog.csdn.net/wuchunyu002/article/details/141557109

版权

VBA 专栏收录该内容

61 篇文章 3 订阅

订阅专栏

在不保护工作簿的情况下，禁止删除工作表以及更给工作表名称。

Option Explicit

Public strBeforeSheetName As String

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    strBeforeSheetName = Sh.Name
    
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    '-------------------
    '変回更改前名称
    '-------------------
    If strBeforeSheetName <> vbNullString And strBeforeSheetName <> Sh.Name Then
        Sh.Name = strBeforeSheetName
    End If
    
    '-------------------
    '禁止削除工作表
    '-------------------
    '保护工作簿,没有密码
    ThisWorkbook.Protect , True
    '保护工作簿,没有密码
    Application.OnTime Now, "ThisWorkbook.RemoveProtection"
    
End Sub
Sub RemoveProtection()
    '撤销保护工作簿
    ThisWorkbook.Unprotect
End Sub