Olá, encontrei este arquivo na Web, que funciona em partes, mas não obedece ao cadastros de usuários da aba senha.
Se define quais abas o usuário " A" pode acessar, quais o usuário "B ", e assim sucessivamente. Neste arquivo está abrindo abas não pertencentes ao usuário escolhido ou nem abrindo todas.
Alguém saberia com ajustar a VBA deste, acredito ser algo não muito complicado.
Obrigado
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
Osvaldo
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