excel打开时的密码利用“宏”如何实现批量取消

Question

在一个文件夹里有很多表，打开时需要的密码是统一的，我如何能把这些密码保护批量的取消了呢，请高手支招，谢谢，我在网上搜了下都不好使，可能是不符合我所使用的要求吧。
正如图片，同一个文件夹下的每个excel文件双击打开时都得需要输入密码，这密码是工作需要设置的统一密码，现在用完了需要存档和调用了，就需要把这个密码全部取消后保存，方便直接调用查看。是这个意思。麻烦 在指导我下

Answer 1

如何借助宏实现批量解除文件夹下的excel打开密码和工作表保护密码? 我有几十个excel文件,有打开密码为“123”,里面有工作表保护密码6789,Sub xxxx() '将本代码复制到工作表的VBE窗口，然后点击运行即可！ Dim sh As Worksheet Dim istr As String istr = InputBox("请输入工作表保护密码：") For Each sh In Worksheets sh.Unprotect istr sh.Protect '重新保护工作表，但是密码设置为空 Next MSgbox "工作表保护密码被全部清空！"End Sub

Answer 2

Sub xxxx()    '将本代码复制到工作表的VBE窗口，然后点击运行即可！
    Dim sh As Worksheet
    Dim istr As String
    istr = InputBox("请输入工作表保护密码：")
    For Each sh In Worksheets
        sh.Unprotect istr
        sh.Protect    '重新保护工作表，但是密码设置为空
    Next
    MSgbox "工作表保护密码被全部清空！"
End Sub

追问

可能是 我提问没有说清楚，我工作表里面没有密码，只是在当打开文件夹里每一个excel文件的时候需要输入密码才能进去看到表格，我想把这个密码取消掉然后保存就可以，以后在打开excel文件时候直接就能进入，不再提示输入密码了。是这个意思。

追答

OK，我去幼儿园给我儿子送药水过去，他耳朵中耳炎，要滴药水，等下回来帮你写！！

追问

我天 孩子是大事，先忙，我这赶趟， 能否加你下丘丘， 私信给我下吧！你这是高手啊 ，得和你多学习学习。

本回答被提问者和网友采纳