禁止删除工作表的另外两种思路

yjjjxf

    看了教程，基本都是将删除工作表的功能指向一个新的自编子过程来实现的，我在2013中怎么也无法正常实现这个功能，示例中的这些代码总是没法正常保护工作表不被删除。
    教程示例见附件。
    我实现这个功能用了下面两种方法：
1：
Private Sub Worksheet_BeforeDelete()
    MsgBox "禁止删除本工作表，本excel文件将立即将退出！"
    Application.DisplayAlerts = False
    ActiveWorkbook.Close True
End Sub

就是在删除工作表的动作进行以前，强制保存并退出文件。缺点：会导致后面的删除工作表操作出错，不过只要点下确定就行了。
2：
Private Sub Worksheet_BeforeDelete()
    Sheets("工龄").Copy after:=Sheets("工龄")
    Sheets("工龄").Name = "dlsaflajl6535随便写个乱码字符串"
    ActiveSheet.Name = "工龄"
    MsgBox "禁止删除这个工作表！（codename已经变更）"
End Sub

缺点：这个工作表Sheets("工龄")的codename会变。

yjjjxf

这个事件如果 加个参数 cancel as boolean,用来阻止删除工作表
就不用废这么大力气想办法了

jsgj2023

你这是分享么？

yjjjxf

jsgj2023 发表于 2016-11-16 13:57
你这是分享么？

抛砖引玉，我其实是想知道，附件中提供的方法为什么无效

我最帅

yjjjxf 发表于 2016-11-16 15:04
抛砖引玉，我其实是想知道，附件中提供的方法为什么无效

我也想问问这个问题，
Public Ctl As CommandBarControl
Sub DelSht()
    Set Ctl = Application.CommandBars.FindControl(ID:=847)
    Ctl.OnAction = "MyDelSht"
End Sub
Sub ResSht()
    Set Ctl = Application.CommandBars.FindControl(ID:=847)
    Ctl.OnAction = ""
End Sub
Sub MyDelSht()
    If VBA.UCase$(ActiveSheet.CodeName) = "SHEET2" Then
        MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
    Else
        ActiveSheet.Delete
    End If
End Sub


这个貌似不好用了。
我是office365

he_zai

我最帅 发表于 2019-6-3 16:35
我也想问问这个问题，
Public Ctl As CommandBarControl
Sub DelSht()

如何修改为，禁止删除所有工作表格呢。

往事随风1975

在第一个方法中，Application.DisplayAlerts = False的作用是关闭警告吗？这一句的作用是什么呢？

hhxq001

我是这样实现的，在thisworkbook中加入以下代码：


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'对指定的工作表设定保护，这样起到禁止改名\插入工作表\或删除的功能--限制右键删除功能。
'如果要更改或删除、插入工作表就将下面的代码注释掉

If ActiveSheet.Name = "勿删1" Or ActiveSheet.Name = "勿删2"  Then
   ActiveWorkbook.Protect Structure:=True, Windows:=False '如果激活表是指定的表名就进行保护
Else
   ActiveWorkbook.Unprotect '如果不是激活表就取消保护
End If
End Sub