usuários logados na planilha

[Gabriel.Rizzatto]

Bom tenho uma planilha com alguns problemas que estou solucionando aos poucos,  que é um controle de acesso, no caso um login e senha, com diversos usuários, porém ela não compartilhada, pois quando eu compartilho ela, algumas macros não funcionam, então decidi deixar assim mesmo, irei deixar logado como admin e as outras pessoas irá ver somente como leitura porém como login para entrar na planilha funciona. 

 

Porém queria ter o controle quais usuários estão logados na planilha. exemplo ter uma aba onde aparece usuários logados na planilha 

 

Todas as senha: 123
 
Login:  admin
Senha:  admin

 

outro usúario

 

Login: F4403134

Senha: M18831

 

DATA-STATIONN.zip

[CasaDoHardware]

Não abri a planilha ajuste ao seu formulario login

 

Crie uma nova planilha na pasta

 

Chame de Login

 

Sub GravarUsuario ()

 

Dim Usuario as string

Dim Linha as long

Dim W as worksheet

 

 

Set W = Sheets("Login")

         Linha = W.range("A" & rows.count).End(Xlup).offset(1,0).row

 

Usuario = txtusuario.value

 

 

W.cells(linha,1).value = date

w.cells(linha,2).value = usuario

w.cells(linha,3).value = time

 

 

end sub

 

 

 

 

 

 

End Sub

[Gabriel.Rizzatto]

Deu erro 424

adicionado 5 minutos depois

Queria algo assim, se o usuario estiver logado irá aparecer na planilha login: Usuario Status, o status irá falar 2 variáveis 1 LOGADO, 2 OFFLINE 

adicionado 18 minutos depois

Olhe esse código

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim wsHist As Worksheet, Rng As Range
    Dim Usuario As String
               
        Set wsHist = Sheets("Login")
    If Sh Is wsHist Then Exit Sub
    Set Rng = wsHist.Range("A" & Rows.Count).End(xlUp).Offset(1)
    With Rng
        .Value = Now
        .Offset(, 1) = Sh.Name
        .Offset(, 2) = Target.Address
        .Offset(, 3) = txtUsuario.Value
    End With
    

 

[Gabriel.Rizzatto]

É Possível ter um controle de usuários logados da planilha, onde a uma função que posso fechar a planilha da maquina dele?

[Gabriel.Rizzatto]

Olhem criar algo parecido 

https://imasters.com.br/artigo/4223/banco-de-dados/encerrando-sessoes-de-usuario/?trace=1519021197&source=single

adicionado 0 minutos depois

Eu tenho um formulário de login no meu excel

[CasaDoHardware]

Poderia ter colocado essa duvida no topico anterior, nao ha necessidade de abrir outro topíco com o mesmo assunto.

 

Com relação a sua duvida, falando em EXCEL em rede, como diz um amigo, é o mesmo que promessa de politico em campanha eleitoral.

 

Quase nunca da certo.

adicionado 2 minutos depois

3 minutos atrás, CasaDoHardware disse:

Poderia ter colocado essa duvida no topico anterior, nao ha necessidade de abrir outro topíco com o mesmo assunto.

 

Com relação a sua duvida, falando em EXCEL em rede, como diz um amigo, é o mesmo que promessa de politico em campanha eleitoral.

 

Quase nunca da certo. 99,9% das vezes

 

[Gabriel.Rizzatto]

Então sabe todos aqueles erro, consegui resolver!

adicionado 0 minutos depois

Está funcionando corretamente tanto na rede e também no desktop 

[Gabriel.Rizzatto]

Queria saber algo assim, quando eu logar ele irá inciar na planilha senha em uma nova coluna chamada status, onde fala se eu vou estar online e offline, só que ao lado da coluna status irá ter um botão para cada usuário chamado depurar igual o link abaixo, quando eu incio a macro depurar ele fecha a planilha de outro usuário. 

 

https://imasters.com.br/artigo/4223/banco-de-dados/encerrando-sessoes-de-usuario/?trace=1519021197&source=single

[Gabriel.Rizzatto]

up