boa tarde.

Gostaria adicionar um código onde ao digitar por exemplo: usuário: ADMIN e senha: 123 que pode-se visualizar todas abas. Pois com o código abaixo até o momento, eu conseguir configurar uma planilha restrita e as abas oculta para usuários normais.
pesquisei na biblioteca, porém alguns anexos se encontra "arquivo corrompido"

segue o código:

Private Sub cdmEntrar_Click()
 If txtLogin = "" Then
            MsgBox "Digite o nome do usuário !"
            Exit Sub
            txtLogin.SetFocus
        Else
          If txtSenha = "" Then
                MsgBox "Digite a senha do usuário !"
                Exit Sub
                txtSenha.SetFocus
          End If
        End If

        col = 1
        lin = 2
        While (Plan2.Cells(lin, col) <> txtLogin)
            lin = lin + 1
            If lin > 50 Then
                MsgBox "Usuário não esta cadastrado"
                Exit Sub
            End If
        Wend

        Dim senha As String
        col = 2
        senha = Plan2.Cells(lin, col).Value

        If txtSenha <> senha Then
            MsgBox "A senha não confere !!"
            Exit Sub
        Else
            MsgBox "Seja Bem Vindo " & txtLogin
            lin = 2
            col = 1
            While (Plan4.Cells(lin, col) <> "")
                lin = lin + 1
            Wend
            Plan4.Cells(lin, 1) = txtLogin.Value
            Plan4.Cells(lin, 2) = txtSenha.Value
            Plan4.Cells(lin, 3) = Date
            Plan4.Cells(lin, 4) = Time
            Plan1.Visible = xlSheetVisible
            Sheets("USUARIO").Activate
            ActiveWindow.DisplayWorkbookTabs = False
            Hide
        End If
End Sub