社区 › 数据库/EXCEL/objectDBX/RealDWG 编程技术 › 去除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保护密码小程序分享