Tomás Vásquez Fórum

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

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:

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