Boa tarde!!

Lembre se de usar nossa base de dados Pesquisa e a Biblioteca
search.php?keywords=login+

Att

Bom, na verdade sou um leigo em VBA e não consegui resolver ainda o meu problema analisando os tópicos anteriores. Segue em anexo minha planilha caso alguém possa me ajudar. Eu preciso que tenha dois usuarios. o ADMIN, que pode editar tudo e o TODOS, onde é permitida somente a vizualisação das planilhas. Segue uma parte do arquivo em anexo.

Procure ler a Regras do Forum antes de postar, não é permitido anexar arquivos sem compactar antes.
Compactei o se arquivo, mas da proxima vez o mesmo será deletado.

Grato pela compreensão

Obrigado desde já

Guiga, leia as regras do Forum antes de postar, os arquivos teem de estar compactados, estou compactando o mesmo, da proxima vez ele será excluido :

Por hora de uma olhada neste exemplo e procure analisar e adaptar ao seu modelo:

Tela de Login com Permissões:

[]

Guiga, leia as regras do Forum antes de postar, os arquivos teem de estar compactados, estou compactando o mesmo, da proxima vez ele será excluido :

Por hora de uma olhada neste exemplo e procure analisar e adaptar ao seu modelo:

Tela de Login com Permissões:

[]

Desculpe, acabei esquecendo de compactar!! Muito obrigado pelo retorno, irei analisar a planilha que você enviou!!
Um abraço

Mauro, obrigado pela ajuda, está quase pronta a planilha, só gostaria de saber como fazer para alguns usuários poderem acessar todas as abas mas somente leitura!! Qual seria o comando para isso no VBA???

Alguém pode me ajudar, ainda não consegui fazer!!

Boa tarde!!

Veja um exemplo..tente adaptar

Sub Somente_leitura()
Const PW   As String = "SuaSenha"
    Dim wSht   As Worksheet


    Application.ScreenUpdating = False

    For Each wSht In Worksheets
        Select Case wSht.Name
                'Incluir de acordo com a necessidade
            Case "Plan1", "Plan2"
            Case Else
                With wSht
                    wSht.Protect _
                            Password:=PW, _
                            DrawingObjects:=True, _
                            Contents:=True, _
                            Scenarios:=True, _
                            UserInterfaceOnly:=True
                End With
        End Select
    Next wSht

    Application.ScreenUpdating = True
    End Sub

Bom, segue em anexo parte da Planilha!! Quando for usar as senhas de Admin. (Usuário=GUILHERME / Senha=GUILHERME) pode ficar como está. Mas quando for o Usuário comum (Usuário=PLANILHANDO / Senha=123) gostaria que fosse só leitura. Lembrando que vou adicionar vários usuários comuns e todos eles serão só leitura. Alguém pode me ajudar???

Alexandre, coloquei a planilha em anexo, você consegue ver pra mim!?? Não consegui fazer!!

guiga, veja se seria isto :

Ao se Logar com o usuario "PLANILHANDO", todas as abas estarão Protegidas, e ao Logar com os Users Administradores, as Abas serão desprotegidas.
Adicionei a rotina para Bloquear todas as Abas no Evento BeforeClose, assim quando fechar o arquivo teremos a certeza que as abas serão protegidas, a senha para as abas está definida na Rotina.

Na rotina que faz a verificação dos usuarios, só fiz comparação se o label "Logar com Adm" estiver Clicado, não associei nomes, é uma forma mais simples, faça varios testes e veja se é isto mesmo.

Login Administrador e Usuario Comum

Aproveite e de uma olhada no Tópico abaixo, tambem tem um anexo bem interessante sobre o assunto.
Acessar planilhas com senhas em form
viewtopic.php?f=10&t=1843&hilit=acessar

[]s

guiga, veja se seria isto :

Ao se Logar com o usuario "PLANILHANDO", todas as abas estarão Protegidas, e ao Logar com os Users Administradores, as Abas serão desprotegidas.
Adicionei a rotina para Bloquear todas as Abas no Evento BeforeClose, assim quando fechar o arquivo teremos a certeza que as abas serão protegidas, a senha para as abas está definida na Rotina.

Na rotina que faz a verificação dos usuarios, só fiz comparação se o label "Logar com Adm" estiver Clicado, não associei nomes, é uma forma mais simples, faça varios testes e veja se é isto mesmo.

Login Administrador e Usuario Comum

Aproveite e de uma olhada no Tópico abaixo, tambem tem um anexo bem interessante sobre o assunto.
Acessar planilhas com senhas em form
viewtopic.php?f=10&t=1843&hilit=acessar

[]s

Bom dia!! Ficou muito bom, só está dando um erro de compilação : "Sub" ou "Function" não definida. Você sabe como arrumar??

guiga :

só está dando um erro de compilação : "Sub" ou "Function" não definida. Você sabe como arrumar??

Sua descrição é muito vaga, pois comigo não acontece nenhum tipo de erro, como não fiz vários testes, pode ser que dependendo da ação que está realizando ocorra algum problema, o ideal é você detalhar melhor em que parte está dando este erro, dai veremos se saberei arrumar.

[]s

Desculpe, faltou explicar melhor!! Na verdade a planilha funciona corretamente!! O problema só acontece quando entro com a senha planilhando, ai cai direto no VBA mostrando este erro. Se fecho o erro, consigo usar a planilha normalmente. Obrigado desde já

Desculpe, faltou explicar melhor!! Na verdade a planilha funciona corretamente!! O problema só acontece quando entro com a senha planilhando, ai cai direto no VBA mostrando este erro. Se fecho o erro, consigo usar a planilha normalmente. Obrigado desde já

Guiga, quando falamos em detalhar o erro, o ideal seria postar um Print da Tela de erro ou da linha que fica em amarelo apos clicarmos em "Depurar".

Tive um tempinho agora de manhã e refiz mais alguns testes e identifiquei o problema, é que na rotina "Private Sub CommandButton2_Click()" a instrução que chama arotina "Call UserProtect" está alocada na posição incorreta, então na parte "'Usuario Comum", remova a que está abaixo da instrução :
ActiveWindow.DisplayWorkbookTabs = True
Sheets("TELA BOAS VINDAS").Select

Call UserProtect - Remova esta Linha para :

Else

MsgBox "Seja Bem Vindo " & TextBox1

Call UserProtect

u = 3

While (Plan26.Cells(u, 1) <> "")
u = u + 1
Wend

ou seja antes de lançarmos os valores na aba "CONTROLE DE ACESSOS".

[]s