Roronoa Zero

Boa Tarde Srs. Tudo bem ? Estou criando um painel de senhas para um restaurante que minha esposa trabalha. Estou me matando tem 1 mês e este é meu 5º arquivo novo de teste, os demais fracassei O objetivo dele é o seguinte: Quando a pessoa abre, o userform se inicia reproduzindo os videos A barra de texto ultima senha possui 2 botões e 1 textbox é um "ponto minusculo do lado esquerdo, este faz reproduzir os videos de forma aleatória A pergunta é: Tem como iniciar o Userform e ele automaticamente inicia os videos de forma aleatória sem eu precisar dar um play ou precisar de um botão de play? O Textbox serve para colocar o número a ser chamado, a numeração vai de 001 até 999 e do lado direito tem outro "ponto minusculo" , não codifiquei porque não consegui avançar para o próximo passo O Objetivo seria: Digitar a "senha no textbox; Clicar no botão Ele procurar na Plan1 a foto ( que já está nas células) Após localizar ele executa a coluna H Ex: Senha 001 = Célula H5 Copiar o que está na Celula D3 e colar na Celula E3 Copiar o que está na Celula E3 e colar na Celula F3 Copiar o que está no Textbox 1 e colar na Celula D3 A coluna H é um caminho de uma pasta minha no Drive, é um GIF, quando é colado no Excel ele fica estático por isto coloquei ali a mágica seria: Ele é executado por 05 seg em tela cheia (em cima do vídeo sem pausar ele, ou se pausar ninguém deve perceber né ?! rs ) Após este passo ele preenche as células Celula D3: Última Senha Celula E3: Penultima Senha Celula F3: Antipenultima Senha Exemplo: estamos chamando a senha 150. ( A senha lá a numeração é aleatória, seria o 4º atendimento do dia) As 3 primeiras senhas chamadas foram Célula D3: 099 Célula E3: 007 Célula F3: 022 Quando Chamar a senha 150, após a execução do GIF, as Células ficariam: Célula D3: 150 Célula E3: 099 Célula F3: 007 Ai que vem o "Milagre que eu estou esperando. Quero(Queria) que os Image 1 Image2 e Image 3 trouxessem as imagens da coluna E Na minha cabeça ficaria assim Célula D3: 150 Célula E3: 099 Célula F3: 007 Se a Célula D3 está com a numeração 150, é igual a Coluna D154 que tem a imagem (E154) Preenche Image1 Se a Célula E3 está com a numeração 099, é igual a Coluna D103 que tem a imagem (E103) Preenche Image2 Se a Célula F3 está com a numeração 007, é igual a Coluna D11 que tem a imagem (F11) Preenche Image3 Resumindo seria: Célula D3: 150 = Image1 Célula E3: 099 = Image2 Célula F3: 007 = Image3 Os números neste caso podem ser congelados pois o objetivo é o vídeo chamar a atenção. Obs: https://www.hardware.com.br/comunidade/celula-imagem/1461153/#post7836907 Já li este tópico e não consegui reproduzir isto nem com reza! Obrigado desde já para quem leu Ultimas Senhas.zip

Prezados. Já consegui acertar o VBA. Em vez de usar os 5. Coloquei os 3 com um userform de senha ai ele só passa se a senha estiver correta. Obrigado pela ajuda. Só falta agora saber como coloco varias pessoas no grupo de senhas

Boa Tarde Gostaria de pedir um reforço da galera do Excel Tenho uma planilha que tem 5 botões Useforms que eu uso e quero que o botão 4 trave todos os demais ,porque só eu posso usar os 3Tipo. Eu uso os botões 1, 2 e 3. Quando eu clicar no 4 ele desabilita todos os 3 primeiros e o 5 é para habilitar novamente (ainda não pensei em como fazer, pra colocar senha, estas coisas) Me falaram esse codigo, mas não quero que ele sempre ative quando eu abrir, e sim quando eu pedir Segue os o que já vi, são estes 4 códigos abaixo e já procurei no forum mas nada que eu procurei servia Obrigado pela ajuda \o/ Código 1 CÓDIGO: Sub DisableActiveXControl() 'Desabilita botão de Controle ActiveX Sheet1.CommandButton1.Enabled = False End Sub Ou Sub DisableFormsControl() 'Desabilita botão de Controle Sheet1.Shapes("Button 1").ControlFormat.Enabled = False End Sub Codigo 2 Forms!NomeDoForm.NomeBotão.Enabled = False Codigo 3 CommandButton1.Enabled = False Codigo 4 Private Sub Workbook_Open() Application.AutomationSecurity = msoAutomationSecurityLow End Sub Onde: msoAutomationSecurityLow Macros rodam sem verificar o certificado de autenticidade, equivale a segurança Baixa. msoAutomationSecurityByUI O usuário indica se as macros devem ser habilitadas, equivale a segurança Média. msoAutomationSecurityForceDisable Desabilita as macros sem certificado de autenticidade, equivale a segurança Alta.

Alguém sabe aonde ele fez a magica com a chave? Não consegui localizar na internet nem no meu notebook aonde ele fez isso Alguém pode me ajudar? PLEASEEEE

@César Platz Porque por sua conta em ricso? Isso pode danificar o Not? E o que é isso q ele faz? Parece que ele pressiona algo com a chave

Desmontei ele no domingo as 13 e montei ele as 17 tirei peça por peça, literalmente não resolveu nada, continua no mesmo

Boa Tarde Srs. Gostaria de uma ajuda de vocês eu li o tópico Senha do Bios - Resetar CMOS http://forum.clubedohardware.com.br/forums/topic/666329-senha-do-bios-resetar-cmos/ Eu tenho o mesmo Notebook que o deste topico e estou com o mesmo problema e a solução que o usuario citou foi a seguinte " Bem, por incrível que pareça, consegui resolver o problema... Não perguntem exatamente como, por que não saberei explicar... mas foi mais ou menos assim: Já perdendo as esperanças, peguei o switch (que é mostrado aqui nesse site, na foto, circulado de amarelo http://www.laptop-repair.info/acer_bios_password.html), e mudei todas as 4 posições (tipo, apelando mesmo, última tentativa), e liguei o note. Ele não dava boot, não pedia senha, e ficava lendo o drive de diskete toda hora... pensei comigo mesmo "que coisa maluca". Então peguei o interruptor 4 do switch e voltei com ele para a posição original, e deixei só os 3 primeiros levantados, e liguei o note. Vi que ele ligou normalmente, e fiquei pressionando F2 pra ver se entrava no Setup. Na verdade apareceu umas telas pretas, com uma penca de texto branco, dizendo que o note estava tentando resetar, e depois me deram duas opções, resetar novamente, ou iniciar o sistema assim mesmo... escolhi iniciar o sistema... daí apareceu uma tela de loading do windows, com a opção de pressionar F8 pra fazer sei lá o que. Como estava demorando demais, apertei F8 e entrou no Setup. Desabilitei a senha e salvei as alterações. Pronto. Bizarro, não? " Eu não consegui acessar o link que ele deixou, acho que ele está quebrado. Ai queria saber o seguinte, o que é este tal "SWITCH" que ele falou? vocês conseguem mandar um link com uma foto ou algo parecido? Não consegui localizar no google e já desmontei o not 2 x Estou com senha na BIOS e no Windows, o Not não da boot por cd,dvd,pendrive, disquete por nada. Creio que foi desabilitado.Ai fico neste loop infinito, a tela liga dou F2, ele pede senha da bios, dou ESC e ele loga o Win e pede senha. Não acessa nem por modo de segurança nem com o tal do F8 ou F1 E o cara que me vendeu essa bomba, sumiu do mapa Poderiam me ajudar por favor? E desculpe o topico grande

@minoso .... acho que fiz **** aqui....fui juntar tudo e ele me da a mensagem... " Não é possível executar a macro "Mapa Base Teste"!Setor_Compras'. Talvez ela não esteja disponivel nesta pasta de trabalho ou todas as macros estejam desabilitadas. O que q eu fiz??

a parte de deletar a figura eu consegui .... Uhhhhhhhhhhhhhuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuhhhhh Usei a formula Sub RemoverImg() On Error Resume Next Dim img As Shape For Each img In ActiveSheet.Shapes If Not Application.Intersect(img.TopLeftCell, ActiveSheet.Range("B43:N1042")) Is Nothing Then img.Delete End If Next End Sub Agora falta só a parte da faxina....

Essa parte de "Concentrar" tudo... .seria colocar todas juntas? tipo...tirar o que é macro e fazer todas direto no vba em um unico modulo?

@minoso .... Entendi mas não entendi.... a parte do que você quer acho q entendi...mas como fazer não consigo "ver"....tipo...é um botão que exclui e um botão que acrescenta...como eu coloco a mesma função junta? porque tipo...ele pode deletar ou não...a função deletar seria opcional...caso ele tenha autorizado e se arrependeu...mas isto não é pra ser frequente (pelo menos eu espero) E não to conseguindo fazer com outra formula sem ser o ElseIf... por isto que tem taaaaaaantas macros assim...realmente a parte da manutenção vai ser phoda...mas ai não sei como centralizar isto Obrigado pela ajuda ate agora....sou meio cabeça dura mesmo pra entender Você tem Skype? porque fica mais fácil de se comunicar por la

@minoso .... o macro de copiar e colar é um.... o de excluir seria outro.... Tipo....se o cara autorizou (colou a imagem) ai depois quer desfazer esta autorização (ai queria deletar a imagem) agora eu me perdi com o q você falou ali....kkkkkkkkkkkkkkk Vai com calma porque demoro um pouco pra entnder.... .

@minoso ... a ideia é copiar e colar mesmo....esta parte eu consegui resolver.... mas to querendo deixar uma opção pro usuario poder "Desfazer" a assinatura.... ai ele teria que apagar a imagem (que é a assinatura) a parte copiar e colar é diferente da de deletar Ficou confuso a explicação?

@minoso É porque to tendo um problema....tenho uma foto....lembra q você falou pra renomear ela.... ai to no seguinte dilema...to querendo criar um macro que apague as figuras... ai fui atras daquele q tudo sabe (Google) ai ele me deu um codigo que apaga todas as figuras...mas eu não quero que apague todas....so a que esta na coluna F .... ai tem o codigo ActiveSheet.Shapes.Range(Array("123")).Select esse ai é perfect....maaas é só pra quando é pra uma figura especifica....ele procura acha ela na coluna e apaga....mas são varias....ai tenho q fazer.... ActiveSheet.Shapes.Range(Array("123")).Select ActiveSheet.Shapes.Range(Array("5462")).Select ActiveSheet.Shapes.Range(Array("145")).Select por exemplo.... só que se eu coloco a imagem 5462 ele diz que não localizou a 123.... to aqui se souber como q faço isto ou se na sua formula de cima eu conseguiria casar.... porque o objetivo final é deletar.... então dps de cada activesheet na linha de baixo ta o Selection.Delete. Abraços....e kkkkk valeu pela força ate agora

@minoso Esquenta não,ta corrido pra todo mundo....eu to usando o Else If nelas...to testando aqui pra ver se funciona....vai ser código pakas tem um que da erro...tem um que vai....essa planilha vai me deixar doido...kkkkkk @minoso ... Já q você apacerceu aqui, xo abusar dos seus conhecimentos ..to com um probleminha no Else If...ele ta dando um erro dizendo " Erro de compilação: Declaração Duplicada no Escopo Atual. O que é isso? To usando a formula abaixo....so q (na minha cabeça) é pra fazer o seguinte.... TextBox1 = matricula TextBox2 = Confirmação com o nome do usuario TextBox3 = Senha Se os 3 estiverem ok...ele puxa a "assinatura" (foto) e cola no local....fiz o o primeiro usuario e deu certo...mas coloquei mais um e ele apareceu isto...será que ele não deixa eu fazer isto varias vezes? ElseIf TextBox1.Text = "1234" And TextBox2.Text = "456" And TextBox3.Text <> "" Then Dim resultado As VbMsgBoxResult resultado = MsgBox("Você deseja autorizar o mapa?", vbYesNo, "Autorização do Processo") If resultado = vbYes Then Sheets("Mapa Base").Unprotect Password:="123456" Título = "Assinatura" CxDialog = MsgBox("Autorização Realizada Com Sucesso", vbOKOnly + vbInformation, Título) Range("F18").Select Sheets("Assinaturas").Select ActiveWindow.SmallScroll Down:=102 ActiveSheet.Shapes.Range(Array("1234")).Select Selection.Copy Sheets("Mapa Base").Select Range("F18").Select ActiveSheet.Paste Selection.ShapeRange.IncrementLeft 22.0588976378 Selection.ShapeRange.IncrementTop 23.8234645669 Unload Me Range("F20").Select Sheets("Mapa Base").Protect Password:="123456"

@minoso ... Se puder me enviar e me explicar eu agradeço...sou meio cabeça dura...mas se eu fizer em uma sub só ele fica avisando...Sub sem If ai eu coloco o IF....ai começa de novo Sub sem End If e End Sub

@minoso ... Acho que agora foi MAPA BASE - Direção - Future ALLL.zip

@minoso ... sorry....não sabia q dava pra zipar direto Segue o Zip como pediu... Abraços Oooops....não to conseguindo anexar...acho q to fazendo algo errado @minoso ....coloquei o Zip no link que te mandei aquela vez...não sei porque não esta aceitando o arquivo.

Boa Tarde @minoso Desculpa a demora...to com tanto serviço que acho q vou passar o carnaval aqui no trampo kkkkkkk Segue o link solicitado https://drive.google.com/file/d/0By4_xmfmX0mBQk1RbVZOZElsVnM/view?usp=sharing Ele esta meio "bagunçado" porque estou fazendo umas modificações, quando abrir quero que o povo do compras tenha acesso a modificar tudo e os demais só possam autorizar e um "registro de acesso", mas isso ai é outra parte. Eu tava querendo o seguinte que quando ele clicasse no botão de autorizar que fosse aberto a tela de login e autorizasse direto. Tipo...clicou no botão...comparou se esta no "setor certo" Compras = Compras / Diretoria = Diretoria / Areas = Areas se bater a matricula com a senha...ela traz a imagem da assinatura pro campo vazio abaixo "autorizando" o processo". Desculpa se ficar confuso...Obrigado pela ajuda novamente e qualquer coisa me chama aqui...se tiver skype e quiser me chamar por la pode ficar a vontade. Abraços e obrigado pelo tempo oferecido pra me ajudar

@minoso , poderia me esclarecer uma duvida?me perdi aqui... a parte da imagem eu peguei, quanto a código, ele é para ser acrescido no primeiro botão...pra explicar mehor, todo o codigo q você colocou eu enfio tudo la? porque o meu do textbox quando eu acrescentei ele deu erro, ai surguiu esta duvida. Abraços e obrigado novamente

@minoso ... vou começar a ler... com certeza vou me divertir muuuito Desde já muito obrigado pela explicação e pela paciencia de escrever isso tudo!!! você é 10!

Bom Dia Pessoal, Estou precisando da ajuda de vocês, estou criando um sistema de login no VBA, mas o problema é que eu só sei fazer para um usuario, tem como eu criar uma planilha a parte para fazer um "banco de dados"? Queria que ele fizesse o seguinte comparativo.... SE 123 For do Grupo Direção Acesso liberado para logar,Caso não msg box Você não tem autorização para logar neste campo e fecha a tela de login SE 123 Tiver a Senha 123 aparecer a msg box de Bem Vindo na barra ....(isto eu fiz, mas como eu coloco o nome do usuario de acordo com a Matricula dele?) EX MsgBox "NOME DO USUARIO (de acordo com a matricula)", vbExclamation, "SEJA BEM VINDO" ai vem o questionamento se deseja autorizar ou não...isto ta no Cod la de baixo Agora q vem o X da questão como eu faço para ele copiar a assinatura e colar no campo que ele fez o login? ( A assinatura tem q ser de acordo com a matricula) (O campo da assinatura vem em branco, colei ali só para mostrar como ficaria) E esta tela tem a seguinte função. Cada usuario terá uma foto com uma assinatura (Rubrica). Então toda vez que fizer o login e autorizar ele puxa esta imagem e cola no campo abaixo de onde foi realizado o login. Vou colocar no Drive os prints para ajudar a compreender Print1 - Mapa Aonde sera realizado os logins e a "colagem" das assinaturas Print2 - Os Usuarios ( queria saber se tem como faze um acesso por restrição, ex...o usuário de compras só pode logar no campo de compras, assim como o da direção somente na direção e a assist.o mesmo processo.............só pode existir um grupo para cada usuario, ele não pode ser de 2 ao mesmo tempo) Print3 - VBA e Useform de Login https://drive.google.com/folderview?id=0By4_xmfmX0mBeTJrMlkzREtTczA&usp=sharing Codigo que to usando Private Sub CommandButton1_Click()If TextBox1.Text = "5462" And TextBox2.Text = "123" ThenMsgBox "VICTOR CARDOSO", vbExclamation, "SEJA BEM VINDO"Sheets("Banco de Dados").SelectDim resultado As VbMsgBoxResultresultado = MsgBox("Você deseja autorizar o mapa?", vbYesNo, "Autorização do Processo")If resultado = vbYes ThenTítulo = "Assinatura"CxDialog = MsgBox("Autorização Realizada Com Sucesso", vbOKOnly + vbInformation, Título)Range("F18:H24").Select Sheets("Banco de Dados").Select ActiveWindow.SmallScroll Down:=102 ActiveSheet.Shapes.Range(Array("Imagem 2")).Select Selection.Copy Sheets("Mapa Base").Select Range("F18:H24").Select ActiveSheet.Paste Selection.ShapeRange.IncrementLeft 22.0588976378 Selection.ShapeRange.IncrementTop 23.8234645669 Unload MeElse Título = "Processo Não Autorizado"CxDialog = MsgBox("Ação Cancelada Pelo usuario", vbCritical, Título)End IfElseMsgBox "SENHA INCORRETA LIGUE 3714", vbInformation, "LOGIN"TextBox1.Text = ""TextBox2.Text = ""TextBox1.SetFocusEnd IfEnd Sub Desde já Obrigado. E tem como escrever o código aqui? Eu queria aprender como faz!!

Bom Dia Gente, estou querendo colocar um codigo para proteger a planilha, já olhei os topicos aqui, mas não sei como inserir o código dentro deste macro.... Quero que ele faça o seguinte... A planilha esta desbloqueada, quero que quando o usuário clicar no botão e ativar o macro,ele ativa o "Now", conforme escrito abaixo, logo após isso trave toda a planilha. Sub Gera_Cod_Seq_Feito_Dia() ' ' Gera_Cod_Seq_Feito_Dia Macro ' MsgBox "Após gerar o protocolo a planilha travará por completo,impossibilitando a sua edição.", vbInformation, "Lembrete" Dim resultado As VbMsgBoxResult resultado = MsgBox("Você deseja gerar o protocolo?", vbYesNo + vbQuestion, "Gerar Protocolo") If resultado = vbYes Then Título = "Protocolo" CxDialog = MsgBox("Protocolo Gerado Com Sucesso", vbOKOnly + vbInformation, Título) Range("C3").Select ActiveCell.FormulaR1C1 = "=NOW()" Range("C3").Select Selection.Copy Application.CutCopyMode = False ActiveSheet.Unprotect Range("C3").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C3").Select ActiveWindow.SmallScroll Down:=0 Else Título = "Protocolo Não Gerado" CxDialog = MsgBox("Ação Cancelada Pelo usuario", vbCritical, Título) End If End Sub Obrigado pela ajuda de todos!

@minoso ...desculpe a demora...chegamos sim obrigado pela ajuda... ficou perfect Abraços e Feliz ano novo

@minoso ,,, deu certo a parte do Ctrl Q... Obrigado... desculpe atrapahar você no seu trabalho... Poderia me explicar a diferença do Módulo e na Pasta...porque eu "nem sei " o que to fazendo... Então nem sei onde q to colocando....