使密码不可见以保护工作表

Question

我有一个简单的代码，我想知道是否存在一种更好的隐藏密码的方法，除了“锁定项目以防止查看”之外。我在xlSheetVeryHidden中设置了工作表，但如果有人愿意，仍然可以看到密码。

代码如下：

Private Sub Workbook_Open()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("OpenLog")

If Not ws.Visible = xlSheetVeryHidden Then ws.Visible = xlSheetVeryHidden
ws.Protect Password:=1214, UserInterFaceOnly:=True

End Sub

感谢您的帮助

尼克。