Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Corrigir codigo

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
palomakey
Colaborador
Colaborador
Mensagens: 18
Registrado em: Qui Jun 22, 2017 7:07 pm

Corrigir codigo

Mensagem por palomakey » Qui Jul 26, 2018 4:58 pm

Olá boa tarde, peguei este código na net mas não estou conseguindo implantar está dando erro, mas copiei como estava, poderiam ver o que está errado?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Pass = "12345"
Confirmar = InputBox("Digite uma senha para continuar.", "Recibo - Salvar")
Se Confirmar = passar Então
Else
MsgBox "Você está não permitido para . Salvar o arquivo", vbCritical, _
"Recibo"
Cancelar = Final Verdadeiro
Se
End Sub



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1295
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Corrigir codigo

Mensagem por Reinaldo » Sex Jul 27, 2018 6:03 pm

Deveria ter postado o endereço, ficaria mais simples.
Aparentemente seu browser traduziu a pagina, porem codigos vba teem os controles/comandos em ingles
Creio que a rotina deva ser:

Código: Selecionar todos

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Aqui defive a senha
Pass = "12345"
'Varivavel que captura a senha informada
Confirmar = InputBox("Digite uma senha para continuar.", "Recibo - Salvar")
'Verifica se a senha esta OK
If Confirmar = Pass then
Else
MsgBox "Você está não permitido para . Salvar o arquivo", vbCritical, _
"Recibo"
Cancelar = End Sub
end if
End Sub


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

palomakey
Colaborador
Colaborador
Mensagens: 18
Registrado em: Qui Jun 22, 2017 7:07 pm

Re: Corrigir codigo

Mensagem por palomakey » Sex Jul 27, 2018 7:50 pm

Olá Reinaldo, obrigado pelas dicas, deve ter acontecido isso mesmo que disse
Só mais uma pergunta não tem como colocar mascara na inptuBox para não aparecer a senha ao digitar?
E para fazer isso conformulario teria como me explicar ao invea de usar inputBox usar formulario.
Obrigado novamente



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder