RafaVillani

@paulotucaBom dia. Peço desculpas, nos dois erros foi falta de atenção minha. Substitua o código do botão entrar por este: Dim linha As Integer Dim l As Integer, cont As Integer linha = Planilha6.Range("A1").CurrentRegion.Rows.Count cont = 0 If txt_Usuario = "" Or txt_Senha = "" Then MsgBox "A caixa usuário não pode ficar vazia", vbInformation Exit Sub End If If txt_Usuario = "paulo" And txt_Senha = "123" Then Unload loginfrm Application.Visible = True Exit Sub Else For l = 2 To linha If Planilha6.Cells(l, 1) = txt_Usuario.Text And _ Planilha6.Cells(l, 2) = txt_Senha.Text Then cont = 1 Unload loginfrm UserForm2.Show Exit Sub End If Next End If If cont = 0 Then MsgBox "Usuário e Senha estão incorretos ou não cadastrados", vbInformation txt_Usuario = "" txt_Senha = "" txt_Usuario.SetFocus Exit Sub End If Quanto a impressão, volte as linhas de comando que você moveu para o inicio novamente, e substitua os "Or" por "And", dessa forma: If Me.Opt_aberto.Value = False And Me.Opt_cancelado.Value = False And Me.Opt_vendido.Value = False Then MsgBox "Selecione a planilha a ser impressa!", vbInformation Exit Sub End If RafaVillani

@paulotucaBom dia, fiz as devidas correções no formulário de cadastro de usuários, dessa forma a planilha usuário pode permanecer oculta. Finalizei as planilhas de impressão, somente não pude testar. Essas são as fórmulas que buscam os dados para serem impressos. Deu pra dar uma boa relaxada, obrigado. RafaVillani Com Botão - Relação de produtos ABRIL.rar

@paulotucaEstou de volta! Vamos lá: Esse erro esta ocorrendo porque o código está tentando selecionar a planilha usuário, e ela está oculta, lembra-se? Substitua o código do botão Salvar por este: Dim linha As Integer Dim l As Integer linha = Planilha6.Range("A1").CurrentRegion.Rows.Count + 1 If txt_Usuario = "" Or txt_Senha = "" Then MsgBox "A caixa usuário/senha não pode ficar vazia", vbInformation Exit Sub End If For l = 2 To linha If Planilha6.Cells(l, 1) = "" Then Planilha6.Cells(l, 1) = txt_Usuario Planilha6.Cells(l, 2) = txt_Senha MsgBox "Usuário cadastrado com sucesso", vbInformation txt_Usuario = "" txt_Senha = "" txt_Usuario.SetFocus Exit Sub End If Next E quanto a impressão das outras planilhas, você conseguiu fazer todas com o exemplo da planilha Em aberto? RafaVillani

@paulotuca Bom dia, fiz algumas modificações na planilha, dessa forma o problema da planilha fechar ao efetuar o duplo clique não exite mais. A alteração consiste em o administrador ter acesso à planilha através do formulário login, ou seja, se o usuário for padrão é aberto somente o formulário, se for administrador é dado total acesso à planilha. administrador: paulo senha: 123 Quanto a questão da impressão somente tive tempo de fazer o da planilha de em abertos, estou de saída agora, e provavelmente, só retornarei na segunda, selecionei os dados que julguei serem mais importantes para serem impressos. Espero que lhe atenda. RafaVillani Com Botão - Relação de produtos - C-ABAS - Copia.rar

@paulotucaDeve ter algo errado aí. Você não perde esse acesso por causa das alterações que fiz, uma vez que elas foram feitas dentro do botão Entrar, e não altera em nada o evento duplo clique de formulário. Isso não acorre com a planilha que tenho aqui, após o duplo clique sempre é me pedido a senha, como estão os seus códigos do evento duplo clique?

@paulotucaBoa noite. Quanto a questão do filtro, não entendi muito ao certo isso, me parece que o filtro funciona de forma diferente com números e texto. Quanto a questão de fechar o excel e reabri-lo em seguida e o formulário de login não aparecer, analisando o código notei que no botão Fechar você utilizou o evento Unload Me. Então, o que eu acho que está acontecendo é, ao você entrar com usuário e senha, o excel fica em modo invisível e o formulário é aberto, quando você clica no botão Fechar, o código apenas fecha o formulário mas o excel continua aberto, apenas está oculto, outra coisa que notei é, como o usuário irá salvar o arquivo? Duas opções: 1- podemos adicionar um comando para salvar a planilha cada vez que ela é modificada. 2- podemos adicionar o comando para salvar a planilha no botão fechar. Acho a primeira opção mais segura. Bom, para corrigir o erro do formulário substitua a linha de comando Unload Me por Application.Quit (esta opção fecha todos os arquivos abertos do excel) ou se preferir ThisWorkbook.Close (fecha somente a planilha que contem o formulário), porém, aconselho, no momento, deixar como está, ou fazer a alteração e habilitar, por hora, o botão fechar do formulário. Analisando agora a questão da planilha usuários, o motivo dela ser sempre exibida e do código não funcionar com ela oculta é o mesmo. Dentro do botão Entrar você colocou esse código (Worksheets("usuario").Select), ou seja, toda vez que você clicar em entrar a planilha usuário será selecionada, e o código não funciona porque você está tentando selecionar uma planilha que esta oculta. Existe outra maneira de se verificar o usuário e senha sem a necessidade de selecionar a planilha usuário, dessa forma ela poderá ser ocultada. Substitua todo o código do botão entrar por esse: Dim linha As Integer Dim l As Integer linha = Planilha6.Range("A1").CurrentRegion.Rows.Count If txt_Usuario = "" Then MsgBox "A caixa usuário não pode ficar vazia", vbInformation Exit Sub End If If txt_Senha = "" Then MsgBox "A caixa senha não pode ficar vazia", vbInformation Exit Sub End If For l = 2 To linha If Planilha6.Cells(l, 1) = txt_Usuario.Text And _ Planilha6.Cells(l, 2) = txt_Senha.Text Then Unload loginfrm UserForm2.Show Exit Sub Else MsgBox "Usuário e Senha estão incorreto ou não cadastrado", vbInformation txt_Usuario = "" txt_Senha = "" txt_Usuario.SetFocus Exit Sub End If Next Com este código você pode ocultar a planilha usuário, mas não vi a razão de você querer ocultar a planilha, uma vez que somente você tem acesso, e para os usuários o excel está oculto, somente o formulário é visível. RafaVillani

@paulotucabom dia. Vamos lá: 1- Erro ao excluir: Este erro esta acontecendo porque a função limparcampos não existe mais, retire a linha de comando Call limparcampos da sub Excluir. 2- Filtro: O filtro funciona, usando seu numero de exemplo, digite 10094-, somente os números não filtra, você deve digitar o número do orçamento mais o sinal de menos. 3- Formulário reabrindo: Isto esta ocorrendo porque a linha de comando que chama o formulário senhafrm está dentro do evento Terminate do formulário loginfmr, então toda vez que o formulário loginfrm é fechado ele chama o formulário senhafmr. Para contornar esse problema retire o código senhafrm.Show do evento Terminate e coloque no evento DblClick do formulário loginfmr. RafaVillani

@paulotucaSegue a planilha de login, já com as devidas alterações, inclusive com a contribuição do Midori. RafaVillani Com Botão - Relação de produtos - C-ABAS - Copia.rar

@paulotuca veja a solução que o Midori deu. Inclua essas linhas de comando no btIncluir antes do Call Salvar. Obrigado @Midori, como pra mim não dá o erro fica mais complicado achar uma solução.

@paulotucaInfelizmente não sei mais o que fazer, está além da minha compreensão e/ou capacidade. Vou tentar a ajuda de alguns dos gurus do fórum. @AfonsoMira, @Midori, @Patropi, @Edson Luiz Branco Será que algum de vocês poderia nos dar uma luz, estou tentando ajudar o Paulo, contudo, todos os códigos que envio não funcionam para ele, e sempre retorna esse mesmo erro na hora de salvar. A versão do office que ele usa é mais atual que a minha. Esta última planilha que enviei funciona perfeitamente para mim no meu PC, mas para o Paulo sempre retorna esse erro ao tentar salvar. Alguma luz? RafaVillani

@paulotucasegue a planilha, espero que funcione dessa vez. RafaVillani Com Botão - Relação de produtos - Revisado.rar

@paulotucavamos tentar outra abordagem, procure nas planilhas anteriores se alguma está com o botão salvar funcionando e disponibilize aqui para download.

@paulotucana propriedade name da planilha você deu um espaço no Planilha 1, precisa ser junto, Planilha1. No meu post anterior eu disponibilizei a planilha toda alterada.

@paulotucaVamos tentar o seguinte, apague essas duas linhas do código: UserForm1.txtID = ID Plan1.Cells(l, 1) = UserForm1.txtID.Text E volte com essa: Plan1.Cells(l, 1) = ID Iremos alterar o nome das planilhas, substitua todo o código que contenha Plan1 por Planilha1, renomeando também a propriedade name da planilha para Planilha1. Dessa forma: @paulotuca já fiz as alterações em todo o documento. Faça o teste. Paulo_Forum_Corrigido_Copia.rar

@paulotucaSe não for muito trabalho, clique na barra à esquerda do código, a linha deverá ficar selecionada como na tela abaixo, execute o programa, haverá uma interrupção na execução do código, aperte Shift+F8, com isso será executada uma linha do código de cada vez, continue apertando Shift+F8 até ocorrer o erro, grave e poste o video.

@paulotucaAltere esta parte do código e tente novamente: Retire esta linha: Plan1.Cells(l, 1) = ID E coloque esta: UserForm1.txtID = ID Plan1.Cells(l, 1) = UserForm1.txtID.Text É trocar seis por meia duzia, mas é apenas um teste.

Não sei, acho difícil, estava funcionando antes. Você poderia gravar a tela durante a execução para eu ver o erro? Esse site é um gravador online, bem fácil de usar. Gravador

@paulotuca não entendo a razão de não funcionar no seu office, eu entenderia se o a minha versão fosse mais nova. Vou continuar tentando descobrir o motivo.

@paulotucaFeche todas as planilhas que você tiver aberto, deixe somente esta ultima que enviei aberta e teste novamente, outra coisa, poderia me enviar um print da tela do seu VBA? RafaVillani

Essa última que enviei também não funcionou? Qual o erro retornado? RafaVillani

Prezado @naio07 envio novamente as panilhas com as devidas alterações. RafaVillani Amostras (1).xlsx Laudos (1).xlsx

@paulotucaDepois de muito quebrar a cabeça com os códigos, resolvi fazer tudo do zero como você havia dito, você somente terá de ajeitar a panilha esteticamente, fora isso está tudo funcionando, testei tudo, todos os campos de filtros, todas as máscaras, salvando, editando, enviando para as outras planilhas, o duplo clique, tudo perfeito. Veja se lhe atende e me retorne. RafaVillani Paulo_Forum_Corrigido.rar

Prezado @Marcelo Lisboa Conde, se você ainda busca uma solução para estas questões, por favor, disponibilize a planilha para download. Abraços RafaVillani

Olá @naio07, veja se lhe atende. RafaVillani Amostras.xlsx Laudos.xlsx

@GENECIOFICIAL Seja bem vindo ao fórum. Veja se lhe atende. RafaVillani Limp-cont-ter-qui-sab.rar