VBA代码设置工作表保护密码，撤销保护时却不需要输入密码，请问如何解决？

enrun

请教老师，在工作簿内运行代码，锁定非空单元格，并且设置了保护密码。
撤销工作表保护时，却不需要输入密码，直接就能撤销保护。
请问在撤销保护时一定要输入密码，要怎么解决呢？

代码在sheet1工作表内。

enrun

代码如下：
Sub 锁定非空单元格()
On Error Resume Next
pwd = InputBox("请输入你的密码：")     '输入123456

For Each sh In Worksheets
sh.Select
sh.Cells.Locked = False
sh.UsedRange.Select
Selection.Cells.Locked = True
Selection.SpecialCells(xlCellTypeBlanks).Locked = False
sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
sh.Protect (pwd)
Next

MsgBox "锁定完成。" & "用时" & Format(Timer - Startime, "0.0000秒！")
End Sub

shiruiqiang

代码是选的单元格保护，有点多此一举

enrun

shiruiqiang 发表于 2023-6-2 20:31
代码是选的单元格保护，有点多此一举

sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
请问，是这句代码限制了只锁定单元格，而不锁定工作表吗？
sh.Protect (pwd)
这一句不是锁定工作表吗？

enrun

shiruiqiang 发表于 2023-6-2 20:31
代码是选的单元格保护，有点多此一举

谢谢，问题已解决。