使⽤vba代码禁⽌弹出提⽰窗⼝
2020-9-14 11:17
⼯作表被保护了，可否⽤vba代码取消更改保护区域时弹出的提⽰窗⼝，如下图。
就是实现双击被保护区域没啥反应，不要跳出提⽰窗⼝，谢谢！
赏
884阅读
11回复倒序
mrzhu Lv.22楼
2020-9-14 11:26
Application.DisplayAlerts = False ？
prevail楼主3楼
2020-9-14 11:45
引⽤: mrzhu 发表于 2020-9-14 11:26
Application.DisplayAlerts = False ？
谢谢！以上代码已测试了，不⾏的。
aecn Lv.34楼
2020-9-14 11:50
ThisWorkbook
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Locked And Sh.ProtectContents Then Cancel = True
End Sub
caffish Lv.35楼
2020-9-14 11:51
⾥有相关的例⼦，可以搜⼀下自动弹窗代码
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If ActiveCell.Locked And Sh.ProtectContents Then Cancel = True End Sub
prevail楼主6楼
2020-9-14 12:24
引⽤: caffish 发表于 2020-9-14 11:51
⾥有相关的例⼦，可以搜⼀下
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVa ...
先谢谢了！不过如此不能写在模块⾥了，这样的事件程序可调⽤吗？
初学阶段，可能问的问题⽐较可笑，见谅
prevail楼主7楼
2020-9-14 12:33
引⽤: aecn 发表于 2020-9-14 11:50
ThisWorkbook
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, ...
谢谢帮助，没有吧代码写在事件中，这种事件类程序可调⽤吗？
prevail楼主8楼
2020-9-14 12:43
⽤BeforeDoubleClick事件好像还是不⾏啊