按照权限不同打开不同表格

iaasscool

各位大神
  网上引用了一串VBA代码，按照权限表的要求打开不同的表格，除管理员显示权限表，其它都是否，但实际运行中都会显示权限表。
而且在打开C时，出现错误，请大神帮忙修改一下代码，非常感谢。

iaasscool

等待大神的到来

iaasscool

Private Sub CommandButton1_Click()

Dim j, i As Integer

maxr = Application.CountA(Sheets("权限表").Range("A:A"))

maxc = Application.CountA(Sheets("权限表").Range("1:1"))

If TextBox1.Value = "" Then MsgBox "用户名不能为空", vbInformation, "注意": Exit Sub

If TextBox2.Value = "" Then MsgBox "密码名不能为空", vbInformation, "注意": Exit Sub

For i = 2 To maxc

    u = Worksheets("权限表").Cells(1, i)

    k = Worksheets("权限表").Cells(2, i)

    If TextBox1.Text = u And TextBox2.Text = k Then

    Unload Me

    Application.Visible = True

    Application.EnableCancelKey = xlInterrupt

    For j = maxr To 3 Step -1

    ThisWorkbook.Activate

    If Sheets("权限表").Cells(j, i) = "是" Then

    Sheets(j - 2).Visible = xlSheetVisible

    Else

    Sheets(j - 2).Visible = xlSheetVeryHidden

    End If

    Next j

    If Sheets("权限表").Visible = xlSheetVisible Then

    pw = "excelinexcel"

    Sheets("权限表").Unprotect Password = pw

    Cells.Select

    Selection.EntireColumn.Hidden = False

    End If

    Exit Sub

    End If

Next i

MsgBox "用户名或密码错误！"

End Sub

iaasscool

Private Sub CommandButton1_Click()

Dim j, i As Integer

maxr = Application.CountA(Sheets("权限表").Range("A:A"))

maxc = Application.CountA(Sheets("权限表").Range("1:1"))

If TextBox1.Value = "" Then MsgBox "用户名不能为空", vbInformation, "注意": Exit Sub

If TextBox2.Value = "" Then MsgBox "密码名不能为空", vbInformation, "注意": Exit Sub

For i = 2 To maxc

    u = Worksheets("权限表").Cells(1, i)

    k = Worksheets("权限表").Cells(2, i)

    If TextBox1.Text = u And TextBox2.Text = k Then

    Unload Me

    Application.Visible = True

    Application.EnableCancelKey = xlInterrupt

    For j = maxr To 3 Step -1

    ThisWorkbook.Activate

    If Sheets("权限表").Cells(j, i) = "是" Then

    Sheets(j - 2).Visible = xlSheetVisible

    Else

    Sheets(j - 2).Visible = xlSheetVeryHidden

    End If

    Next j

    If Sheets("权限表").Visible = xlSheetVisible Then

    pw = "excelinexcel"

    Sheets("权限表").Unprotect Password = pw

    Cells.Select

    Selection.EntireColumn.Hidden = False

    End If

    Exit Sub

    End If

Next i

MsgBox "用户名或密码错误！"

End Sub