Gabriel.Rizzatto

Já olhei esse tópico mas não me ajudou mt

Boa tarde, eu trabalho com cms avaya supervisor, Gostaria de exporta todo o relatório automático para o excel , mas não sei como fazer isso em vba Eu preciso exportar o relatório do menu historio , categoria agente e Participação diário, mas quero trazer de vários agentes ao mesmo tempo.

up

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

Então sabe todos aqueles erro, consegui resolver! adicionado 0 minutos depois Está funcionando corretamente tanto na rede e também no desktop

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

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

Não tirei todo o código, adicionado 0 minutos depois Private Sub Workbook_Deactivate() Application.Visible = True lsDesligarTelaCheia End Sub Private Sub Workbook_Open() Dim W As Workbook Set W = Workbooks("DATA-STATION.xlsm") W.Application.Visible = False MayCauseAnError Application.DisplayAlerts = False Application.AskToUpdateLinks = False Application.Visible = False lsDesabilitar frmLogin.Show 'Atualização Application.CalculateFull GravarUsuario End Sub Private Sub Workbook_Activate() Application.CalculateFull Limroll_on GravarUsuario End Sub Public Sub Workbook_BeforeClose(Cancel As Boolean) If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close savechanges:=False End If Application.DisplayAlerts = False Application.Save End Sub

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

Eu coloquei Dim W as workbook Set W = Workbooks("NOME DO SEU ARQUIVO") W.Application.Visible = False Certo eu coloquei! Mas mesmo no meu computar ele da o erro de subescrito! Se colocar sem for na rede ele dá o erro ! Parece que não é porque está na rede, é algum código que está errado !

Eu mantenho o Deactivate?

beleza, aguardo...

Queria definir um tempo de logado exemplo, se os usuários padrões estiverem inativos a planilha fecha, agora se o admin estiver logado, não existe tempo! Todas as senha: 123 Login: admin Senha: admin outro usúario Login: F4403134 Senha: M18831 DATA-STATIONN.zip

Vejam os códigos Acontece o seguinte, essa planilha fica em uma rede, se eu estiver com algum outro arquivo de excel da rede ou do desktop aberto, e inciar esse sistema de controle de acesso ela dá o erro Erro tempo de Execução '9': Subscrito Fora do Intervalo Agora seu abrir primeiro o sistema e depois abrir uma nova planilha e não dá erro nenhum! Alguém poderia me ajudar a encontrar esse erro? Todas as senha: 123 Login: admin Senha: admin usúario padão Login: F4403134 Senha: M18831 DATA-STATIONN.zip

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