一个禁止删除工作表的新思路

月关

目前网上能搜索到的禁止删除工作表的通用做法基本都是BeforeDelete事件里将删除的工作表原样复制一份出来，今天复习以前的VBA笔记偶然灵光一闪想到一个新办法，原理很简单：1）禁止删除的页面激活时禁用右健菜单；
2）离开禁止删除的页面时恢复右健菜单；
实验中发现有一种情况，可以在其他页面激活的情况下直接在想删除的页面上单击右键调出删除来，所以在激活页面时模拟一下单击Esc键，目测效果还算完美 。

更简单的方法应该是在禁止删除的页面上直接屏蔽工作表标签右健菜单的删除选项，奈何知识储备有限，还望擅长此道老师指点一下，谢谢。


附件供参考
禁止删除工作表.rar (14.93 KB, 下载次数: 18)

2021-9-14 11:52 上传

点击文件名下载附件

月关

以下是所有代码：

Private Sub Worksheet_Activate()
    Application.CommandBars("ply").Enabled = False
    Application.SendKeys "{ESC}", True
End Sub






Private Sub Worksheet_Deactivate()
    Application.CommandBars("ply").Enabled = True
End Sub

MOY838840554

试了单个控件的Enabled设置并没有生效
Sub test()
    'MsgBox CommandBars.FindControl(, 478).Caption
    Set com = CommandBars("ply").Controls.Item(2)
    With CommandBars("ply").Controls.Item(2)
        .Caption = "禁止删除"
        .Enabled = False
    End With
End Sub

DevilW

思路不错，人家想删表就是不想让你看到，删不了表但却可以删内容，一张空表给你看有什么用

Stone_00x

阔仪,值得肯定!~

aman1516

还得在文档打开之前得配套 “强制启用宏” ，否则一切白搭？

jxluoqing

隔壁禁用右键菜单呢，激活这个表的时候直接workbook product掉不就好了嘛？保护工作簿你看他怎么删，离开这个工作表，再解锁保护就是