dong20030432 发表于 2018-1-17 10:35

去除EXCEL保护密码小程序分享

自己制作的一个小程序，可去除EXCEL工作簿和工作表保护密码，分享给大家！
1、点击“去除工作簿密码”按钮，可以去除工作簿内部局部保护密码（不能去除文件打开密码）；2、点击“去除工作表密码”按钮，可以去除工作表保护密码。
注意，软件不进行文件自动保存操作，请将去除密码的文件进行手动保存！




广易精通 发表于 2022-6-23 09:32

ynhh 发表于 2020-5-29 14:20
根本解不了
浪费了一个币

Option Explicit
Sub xxx()
    Dim x&
    On Error Resume Next
    For x = 1 To Sheets.Count
      With Sheets(x)
            .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
            , AllowFiltering:=True, AllowUsingPivotTables:=True
            .Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
            False, AllowFiltering:=True, AllowUsingPivotTables:=True
            .Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
            False, AllowFiltering:=True, AllowUsingPivotTables:=True
            .Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
            True, AllowFiltering:=True, AllowUsingPivotTables:=True
            .Unprotect
      End With
    Next x
End Sub

ynhh 发表于 2020-5-29 14:20

根本解不了
浪费了一个币


p-3-ianlcc 发表于 2020-5-28 16:32

謝謝分享！請問一下，可以更改字型（繁體）嗎？

13657880910 发表于 2019-1-30 23:14

谢谢楼主分享！

87737352 发表于 2019-2-2 08:15

谢楼主分享！

weixin159 发表于 2019-3-20 17:14

厉害可以的

aaaoooenenen 发表于 2019-3-29 16:28

厉害可以的
谢楼主分享！

alexmai 发表于 2019-4-22 10:39

厉害了，能用，谢谢

mokson 发表于 2019-5-10 08:22

高人哪，敬佩！

cbf007 发表于 2019-5-16 22:23

支持那个版本

luhy2008 发表于 2019-7-8 09:27

有这么神奇吗?谢谢!

快乐贝贝 发表于 2020-5-23 22:26

学习一下 谢谢分享
页: [1] 2
查看完整版本: 去除EXCEL保护密码小程序分享