Tela de Login- Múltiplos usuários( Excel)

Dicas & Macetes (migrar)

Post Recente por Fabiano.Pinheiro 3 meses atrás

1 Posts

2 Usuários

0 Likes

714 Visualizações

RSS

Fabiano.Pinheiro

(@fabiano-pinheiro)

Posts: 2

New Member

Topic starter

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

Tela-de-Login.xlsm

Postado : 15/02/2024 2:50 pm

Osvaldomp

(@osvaldomp)

Posts: 852

Prominent Member

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

Postado : 15/02/2024 4:12 pm