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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Corrigir codigo
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Corrigir codigo
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:
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
Re: Corrigir codigo
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
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