Veja se lhe ajuda.

_____________________________________________________________________________________________________

1. na planilha Senha limpe o intervalo A24:C24

_____________________________________________________________________________________________________

No código Private Sub CommandButton1_Click:

2. acrescente a declaração das variáveis conforme abaixo

   Dim r As Range, c As Range

3. e substutua este trecho

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

pelo trecho abaixo

Set r = Sheets("Senha").Range("C2:C" & Sheets("Senha").Cells(Rows.Count, 3).End(3).Row).SpecialCells(12)
For Each c In r
Sheets(c.Value).Visible = True
Next c

_____________________________________________________________________________________________________

obs. é aconselhável incluir comandos para limpar o Filtro da planilha Senha no início e no final da execução do código Private Sub CommandButton1_Click

olá, 

este 1º comando , ficou em vermelho.

   Dim r As Range, c As Range

Obrigado

ário " A" pode acessar, quais o usuário "B ", e assim sucessivamente. Neste arquivo está abrindo abas não pert