用单独的密码保护工作簿中的工作表

Question

我正在寻找一个单一的工作簿，其中包含一组单独的受密码保护的工作表。 我已经找到了执行单个工作表的出色代码，但是我正在努力（使用基本任务）添加其他工作表和其他密码。以下代码将密码保护工作表1：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim MySheets As String, Response As String
GavinsSheet = "Sheet1"
If ActiveSheet.Name = GavinsSheet Then
ActiveSheet.Visible = False
    Response = InputBox("Enter password to view sheet")
        If Response = "MyPass" Then
            Sheets(GavinsSheet).Visible = True
            Application.EnableEvents = False
            Sheets(GavinsSheet).Select
            Application.EnableEvents = True
        End If
End If
Sheets(GavinsSheet).Visible = True
End Sub

如何将其更改为合并5张纸，每张纸具有不同的密码？

非常感谢！

Alec