怎样屏蔽这个弹窗提示

yf_home

  如题，如何屏蔽这个弹窗提示，能自动点击：确定   或    取消   按钮也可以。

           示例文件：    密碼彈框.zip (18.25 KB, 下载次数: 9)

2017-12-17 10:54 上传

点击文件名下载附件

lsc900707

1. Public Sub ClearProtect()
   
2.     Application.DisplayAlerts = False
   
3.     On Error Resume Next
   
4.     If ActiveWorkbook.ActiveSheet.ProtectContents = True Then
   
5.         With ActiveWorkbook.ActiveSheet
   
6.             .Activate
   
7.             .Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
   
8.             .Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
   
9.             .Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
   
10.             .Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
    
11.             .Unprotect
    
12.         End With
    
13.     End If
    
14.     Application.DisplayAlerts = True
    
15.     MsgBox "當前活動工作表保護密碼已經被清除。", 64 + 0, "提示"
    
16. End Sub

复制代码

一把小刀闯天下

'用暴力方法关闭也可以 彈框1.rar (19.42 KB, 下载次数: 53)

2017-12-17 12:15 上传

点击文件名下载附件

yf_home

lsc900707 发表于 2017-12-17 12:02

Application.DisplayAlerts = False

这句代码，在一楼的附件中本身就有加的，但是依旧解决不了弹窗这个问题。


版主，能有好的解决办法吗？谢谢！

yf_home

一把小刀闯天下 发表于 2017-12-17 12:16
'用暴力方法关闭也可以

是个好办法！

测试了下，依然可以看到对话框显现的过程，能否改善下，看不到这个对话框闪现的过程，谢谢！

一把小刀闯天下

yf_home 发表于 2017-12-17 12:20
是个好办法！

测试了下，依然可以看到对话框显现的过程，能否改善下，看不到这个对话框闪现的过程，谢 ...

现在设置的0.2s，因为使用窗体获取句柄，所以必须要等窗体出现时才可以获取，你把这个时间改一下看看，可以是0.1或更小。改好后保存退出再打开。

ivccav

lsc900707 发表于 2017-12-17 12:02

上次一个哥们问工程密码破解的，我传了一个文件被你们删了。现在你们版主也来玩破解了，不好吧

lsc900707

ivccav 发表于 2017-12-17 16:34
上次一个哥们问工程密码破解的，我传了一个文件被你们删了。现在你们版主也来玩破解了，不好吧

这是玩破解吗？你下载附件看了？

liaoliangbang

ivccav 发表于 2017-12-17 16:34
上次一个哥们问工程密码破解的，我传了一个文件被你们删了。现在你们版主也来玩破解了，不好吧

哥们，这工作表破解十多年前就已经出来了，是公开的啦，只有EXCEL新人可能不知道。

mythqiu

lsc900707 发表于 2017-12-17 12:02

学习了。。。。