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

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

自己制作的一个小程序，可去除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

学习一下谢谢分享

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

本帖子中包含更多资源