防止用户查看Excel工作表

我正在编写一个macros，在主菜单中有一个button来访问“pipe理员”工作表，在这里可以进行重要的修改。 我只想要某些用户访问这个pipe理员工作表，我想知道是否有一种方法来密码保护查看工作表，而不仅仅是修改它。

Answer 1

你可以做这样的事情：

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'Update 20140925 Dim xSheetName As String xSheetName = "Sheet1" If Application.ActiveSheet.Name = xSheetName Then Application.EnableEvents = False Application.ActiveSheet.Visible = False xTitleId = "KutoolsforExcel" response = Application.InputBox("Password", xTitleId, "", Type:=2) If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select End If End If Application.Sheets(xSheetName).Visible = True Application.EnableEvents = True End Sub 

这实际上将创build一个密码保护的工作表，只有当提供的密码是正确的时才会显示。 这个答案来自http://www.extendoffice.com/documents/excel/2134-excel-password-protect-hidden-sheet.html#a1