Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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: 26
Registrado em: Qui Jun 22, 2017 7:07 pm

Corrigir codigo

Mensagem por palomakey »

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: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Corrigir codigo

Mensagem por Reinaldo »

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


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

Re: Corrigir codigo

Mensagem por palomakey »

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