不知密码，自动撤销工作表保护问题！

okeyman

单位系统里下载的csv文件，用wps表格打开，只能看不能修改，密码不知。本人用以下代码可以撤销保护。可是一个问题，每张表都要弹出输入密码的对话框，都要手工点击 “取消”按键，想问，如何能在代码中实现自动选择 取消，或者不弹出对话框，自动撤销保护工作表。


代码如下：

Sub test()
For Each sht In Sheets
    sht.Protect AllowFiltering:=True
    sht.Unprotect
Next sht
End Sub

taller

csv文件就是文本文件，不存在密码

任何编辑器都可以打开查看、修改