使用密碼保護一個工作表不顯示

Question

Excel中是否有一種內置方法來僅使用密碼保護工作簿中的一個電子表格？

當用戶在控件上打勾或選擇一個控件時，會在工作表可見之前提示輸入密碼。

如果它不是Excel內置的，可以用VBA實施嗎？

Answer 1

您可以嘗試以下方法：

• 使工作表VeryHidden和“ Protected ，以使其無法從標准xl菜單中受到保護（或無法檢測到）
• 在Workbook_BeforeClose和Workbook_Open事件上重新添加此保護
• 在此示例中，我使用了名為YourSheet的工作表
• 您還應該在此項目中保護VBA，以增加安全性。

插入一個Active X復選框並使用代碼檢查是否：

1. 復選框為True
2. 用戶知道UnHide表的密碼。 （在此示例中使用了Fred ）

復選框代碼

Private Sub CheckBox1_Click()
    Dim StrPass As String
    If CheckBox1.Value Then
        StrPass = Application.InputBox("Please enter the password", "Admin check")
        If StrPass = "fred" Then
            With ThisWorkbook.Sheets("YourSheet")
                .Unprotect "fred"
                .Visible = xlSheetVisible
                MsgBox "Sheet unhidden!", vbInformation
            End With
        Else
            MsgBox "wrong password", vbCritical
        End If
    End If
End Sub

ThisWorkbook模塊

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With ThisWorkbook.Sheets("YourSheet")
        .Protect "fred"
        .Visible = xlVeryHidden
    End With
End Sub

Private Sub Workbook_Open()
    With ThisWorkbook.Sheets("YourSheet")
        .Protect "fred"
        .Visible = xlVeryHidden
    End With
End Sub