none
O código abaixo está dando errado Ele libera o acesso de 12 abas sendo que tenho mais de 20 RRS feed

  • Pergunta

  • O código abaixo está dando errado Ele libera o acesso de 12 abas sendo que tenho mais de 20.

    espero que aguem possa me ajudar


    Private Sub CommandButton1_Click()
      Dim lTotal As Long
      Dim lContador As Long

      lsDesabilitar

        Sheets("Banco de Senha").Range("$A$1:$C$50000").AutoFilter Field:=1, Criteria1:="=" & txtUsuario.Text
        Sheets("Banco de Senha").Range("$A$1:$C$50000").AutoFilter Field:=2, Criteria1:="=" & txtSenha.Text

      lTotal = WorksheetFunction.Subtotal(3, Sheets("Banco de Senha").Range("A:A"))

      If lTotal > 1 Then
      ActiveWorkbook.Unprotect Password:="123"

        For lContador = 2 To lTotal
    Sheets(Sheets("Banco de Senha").Range("C" & lContador).Value).Visible = True
      Next lContador

      Unload frmLogin
        Else
        MsgBox "Usuário ou senha incorretos!"
      End If

      ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False
      End Sub

           
    sábado, 14 de outubro de 2017 21:45

Todas as Respostas