工作表如何取消VBA对公式保护和隐藏

cqwdrr

工作表设置公式保护隐藏：Sub 仅对公式保护和隐藏()
dim ws AS worksheet
Set ws=worksheets("sheet1")
With ws
.Cells.locked=False
With.Cells.SpecialCells(xlCellTypeFormulas)
.Locked=True
.FormulaHidden=True
End With
.Protect Password:="12345"
End With
End Sub
  请教如何实现只隐藏公式（其他可编辑）？如何撤销VBA已保护和隐藏的工作表？

cqwdrr

自己顶一下

ykcbf1100

这样试一下。

cqwdrr

ykcbf1100 发表于 2024-11-10 20:04
这样试一下。

收到，总算解开保护，谢谢