如何给某个文件夹里工作簿批量加密和减密

dongwengui1984

请教一下，1.如何给某个文件夹里的EXCEL文件批量添加打开密码，我在网上找到一个代码，但好像只能批量添加本文件夹下的文件的打开密码，这样我觉得不太方便，需要把这个代码不停的移动到需要添加的文件夹下，帮忙修改一下代码，让它可以自动选择文件夹选择文件添加，谢谢！2.如何根据添加的密码来去掉此打开密码，再次感谢！

dongwengui1984

朱荣兴 发表于 2019-11-4 16:21
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim mypath As String, xlsnam ...

非常感谢！
1.可以再做到选择文件夹里其中的一部份EXCEL文件加密吗？
2.假如里面有一些EXCEL文件本身有密码的可以跳过不加密吗？
3.给这些文件加密后，通过知道的密码再批量去掉密码

dongwengui1984

朱荣兴 发表于 2019-11-4 18:10
这个就比较麻烦了，非一时之功

哦，没事儿，谢谢啦

venus.tang

为什么我没看到二楼的回复呢，奇怪

MaTch-

venus.tang 发表于 2022-1-21 14:59
为什么我没看到二楼的回复呢，奇怪

相信你也没有看到四楼的回复

顺吧

MaTch- 发表于 2022-1-21 15:13
相信你也没有看到四楼的回复

我信 二楼四楼我都没看到

新手来习

dongwengui1984 发表于 2019-11-4 16:48
非常感谢！
1.可以再做到选择文件夹里其中的一部份EXCEL文件加密吗？
2.假如里面有一些EXCEL文件本身有 ...

能分享下吗，谢谢

hasyh2008

Sub 全表普通保护()
  On Error Resume Next
  Dim i%
  For i = 1 To Worksheets.count
    With Sheets(i)
      .Activate
      .Cells.Select
      Selection.Cells.Locked = False
      Selection.Cells.Locked = True
      .protect Password:="111", userinterfaceonly:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
    End With
  Next i
End Sub
Sub 单表普通保护()
  On Error Resume Next
    With ActiveSheet
      .Activate
      .Cells.Select
      Selection.Cells.Locked = False
      Selection.Cells.Locked = True
      .protect Password:="111", userinterfaceonly:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
    End With
End Sub