如何不输密码不用宏轻松撤除工作表保护?-PChome电脑之家

智能回答

如何不输密码不用宏轻松撤除工作表保护?

展开

没找到满意答案？去问豆包AI智能助手

取消复制问题

a275262098

工作中我们经常会把重要Excel表设保护，防止别人乱改。但有时自己想改却忘了密码，咋办？网上有宏代码破解法，但太麻烦；还有密码破解软件，不过能用的不多。下面教大家一招简单搞定！
当我们编辑被保护的工作表时，通常会跳出提示框，说表格只读不能改。正常操作是点工具栏审阅—撤销保护，然后输入密码就行。但要是忘了密码，就按以下步骤：
先点文件—另存为，在格式里选CSV。保存时会有两个提示框，直接点是就好。
保存完CSV格式后，关掉原来的文件，重新打开刚保存的CSV文件。再点另存为，这次选第一个xlsx格式，填个文件名（和原来文件同名的话可以直接覆盖）。
最后打开新保存的工作簿，发现现在可以随便编辑啦！不用啥密码破解软件，也不用搞复杂宏代码，是不是超简单？
matrix89

是这样的，撤销的时候是需要密码
452472690

很简单的，解密小工具已发给，查收。s d h j _ c h e n
xb517974993

文件另存为试试，打开另存为文件

再看看别人怎么说的。
iojk156

解除工作表保护？
扣
一五九六三九七零
YOius12

你既然知道如何把它变灰,就应该知道如何再把它恢复.
变灰的语句中的false改成true就行了啊.
xiaoelaine

Excel 一般来自设置是把所有单元格在加了保护之后都不能改，你的意思是不是除了$A$1:360问答$A$20 不让用户改，其他都可以？
要是这样，用下面的宏就好了。

Sub Procedure()
Cells.Locked = False
Range("A1:A20").Locked = True
ActiveSheet.Protect Password:商="123456"
End Sub

修改后：

先执行：
Sub Procedure0()
Cells.Locked = False
ActiveSheet烟移本.Protect Password:="123456", UserInterfaceOnly:=True
End Sub

保护不同区域的宏：
Sub Protect1()
Range("A1:A20").Locked = True
End Sub

Sub Protect2()
Range("B督除刻回富特士多前1:B20").Locked = True
End Sub

解除保护不同区域不资占经的宏：
Sub UnPro进理委tect1()
a = InputBox("请输入密码.", "密码")
If a = "123" Then Range("A1:A20").L等卷检缩田植附督代伯曾ocked = False
End Sub

Sub UnProtect2()
a = InputBox("请输入密码.", "密码")
If a = "123" Then Range("B1:B20").Locked 手跑底刑坐杨内早= False
End Sub

Sub UnProtectAll()
a = InputBox("请输入密码.", "密码")
If a = "123" Then Cells.Locked = False
End Sub
y8889939

你好！

这句表示设置保护工作表，密码为123456

ActiveSheet.Protect Password:=123456

仅代表个人观点，不喜勿喷，谢谢。

如何不输密码不用宏轻松撤除工作表保护?

最新回答更多>

相关问答

举报

举报成功

如何不输密码不用宏轻松撤除工作表保护?

最新回答 更多>

相关问答

举报

举报成功

最新回答更多>