Comunidade DATAB

Boa-tarde jmarcelosp

Segue planilha alterada, testa ai...!

Att,
Francisco

Boa-noite Bikke Na Aba Logg nas colunas H está formata para Data e eu tinha feito uma Formatação Personalizada nas coluna G e H que estava funcionando. Está é a Formatação Personalizada na Aba Logg -- [<=99999]00000;00\/00\/0000 Na Aba NumerosUsados também usei Formatação Personalizada nas colunas F...

Bikke,

Manda uma imagem com exemplo dos formatos que pretende ou faz um exemplo na planilha e anexa.

Segue arquivo com alteração...Testa aí...!!!

Boa-tarde O que eu consegui por enquanto é que na Aba NumerosUsados nas colunas com data, usei: Formatar Células -- Personalizado e coloquei -- 00\/00\/0000 Na Aba Logg nas colunas que gravam as alterações, coloquei: Geral;00\/00\/0000 No caso vai ficar assim: ex.: 20032022 e se tiver um zero à esqu...

Bom-dia

Talvez com Formatação Personalizada.

Boa-tarde Faça a seguinte alteração: Vá no Evento da Aba WsNumerosUsados(NumerosUsados) e altere na linha: de: .Cells(r, "E") = nUserMaquina para: .Cells(r, "E") = WsUsers.Range("J2").Value Acho que resolve o problema de registrar o Usuário na Aba Logg. Att, Francisco

Bom-dia Fiz as alterações e aparentemente está tudo OK...! Também fiz testes na Aba NumerosUsados com usuários diferentes e está registrando as alterações na Aba Logg. Já está bloqueando Usuários após digitar 5 vz a senha errada e não está mas aparecendo a Aba Menu quando clicar em SAIR conforme men...

Boa-tarde Bikke

Fiz as novas alterações. Segue anexo...!
Fica faltando a parte de "tentativas e bloqueio de usuário", que no momento estou meio empacado.

Att,
Francisco

Boa-tarde

Fiz novas alterações e acredito que esteja perto do que pretendia, ainda falta a parte de bloquear o usuário após 5 tentativas e a de alteração de senha.
Tenta fazer essas alterações, se não conseguir avisa.

Vai testando ai...!

Bom-dia

A parte de registrar no Log os usuários vou concluir ainda, por enquanto estou testando, logo após o terminar essa parte vou partir para Aba NumerosUsados.

Att,
Francisco

Boa-tarde Bikke Adaptei um código que eu tinha para a sua Planilha, aparentemente está funcionando, acessa as planilhas conforme permissão de cada usuário. Vai testando ai...!!! Ainda não implementei a parte de Log, talvez eu demore um pouco. Caso o "PHSabater" estiver com um "tempinh...

Bom dia Uma sugestão é criar outra "ABA" com um Cadastro de informações "Fixas" de cada Funcionário e quando for criar uma nova tarefa, ao selecionar na ComboBox "Nome" trazer essas informações e ao cadastrar todas as informações finalizar no botão "Salvar" qu...

Bom dia

Veja se é dessa forma...!?

Bom-dia

Segue alteração...

Bom-dia

Fiz algumas alterações e falta dar continuidade no código.
Parei na "caixa_conta.TextBox"

Att,
Francisco

Boa-tarde Tente assim: Private Sub TBVctoPrim_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TBVctoPrim.Text = "" Then Exit Sub End If If IsDate(TBVctoPrim.Text) Then TBVctoPrim.Text = CDate(TBVctoPrim) Else MsgBox ("Data Inválida !"), vbInformation, "Atenção!" Cancel =...

Bom-dia Segue um exemplo. A verificação é feita ao sair da TextBox. Private Sub autuacao_Exit(ByVal Cancel As MSForms.ReturnBoolean) If WorksheetFunction.CountIf(Range("A1:A100"), autuacao.Value) > 0 And autuacao <> "" Then MsgBox "Multa já cadastrada, mesmo número de autuaç...

Tente assim: Dim xRg As Range Private Sub ComboBox1_Change() Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False) End Sub Private Sub UserForm_Initialize() Set xRg = Worksheets("Usuarios").Range("A2:B10") Me.ComboBox1.List = xRg.Columns(1).V...

Obrigado pela resposta, mas dessa maneira eu já uso. Gostaria de não precisar usar uma ("logo.jpg") salva em uma pasta e sim usar a imagem que inseri no próprio UserForm que já é a minha "Logo Padrão". Também consigo fazer com que volte a imagem padrão após eu clicar no botão &qu...