求解锁文件夹中的两个工作表

helloexcel2014

两个日记账都很好，但为了更符合自己使用，里面部分内容需要修改，麻烦大神解锁工资表保护

malchen

1. 
   
2. Sub UnProtct()
   
3.     MsgBox "破解提示：当要求输入密码时请点击取消！”"
   
4.     Application.DisplayAlerts = False
   
5.     On Error Resume Next
   
6.     Dim sht As Worksheet
   
7.     For Each sht In Worksheets
   
8.         With sht
   
9.             .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
   
10.             .Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True
    
11.             .Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True
    
12.             .Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
    
13.             .Unprotect
    
14.         End With
    
15.     Next
    
16.     Application.DisplayAlerts = True
    
17.     MsgBox "ok"
    
18. End Sub

复制代码

helloexcel2014

malchen 发表于 2022-3-14 12:02

不好意思哈，请问这个是在哪里输入呢，我不太会

helloexcel2014

malchen 发表于 2022-3-14 12:02

请问是在这个文件夹中新建txt，然后输入代码后改bat吗
，刚刚试了，但没反应

malchen

helloexcel2014 发表于 2022-3-14 14:09
请问是在这个文件夹中新建txt，然后输入代码后改bat吗
，刚刚试了，但没反应

在VBE编辑器中新建模块，把代码复制进去运行就行了

helloexcel2014

malchen 发表于 2022-3-14 14:13
在VBE编辑器中新建模块，把代码复制进去运行就行了

谢谢，可以了

helloexcel2014

malchen 发表于 2022-3-14 12:02

其中一个无法增加新工作表，应该是工作簿锁定了，能否教下如何破解

helloexcel2014

malchen 发表于 2022-3-14 12:02

其中一个无法增加新工作表，应该是工作簿被锁定了，请问工作簿的能不能解

SHCHFUWU

留个脚印  以后好找   谢谢分享