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?

@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

E tem como escrever o código aqui? Eu queria aprender como faz!! 

@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....