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

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

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

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

根本解不了
浪费了一个币

whyyshy · 发表于 2020-7-9 20:32:05

vba的密码吗

tanjurun · 发表于 2020-10-14 15:24:06

这么神奇，看看效果如何，

LIULISHENG · 发表于 2020-12-13 18:51:16

这个好玩试一下

song宋_74729 · 发表于 2022-6-20 16:30:47

ynhh试试看这

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

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

秋雨 · 发表于 2023-2-10 09:50:39

到底行不行，还收费1块大洋

阳阳阳 · 发表于 2023-6-20 15:29:50

可以用谢谢！！

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

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

本帖子中包含更多资源

本帖子中包含更多资源