Este fórum está sendo desativado

[AndreAdanya]

Salve pessoal, tudo certo?

Estou com uma dúvida aqui

Estou com uma ferramenta para emissão de pedidos.
Criei um botão com macro para a impressão, mas queria que só fosse liberado mediante a digitação de uma senha.

Pensei em:
1. Ao clickar no botão abre uma caixa de diálogo exigindo uma senha padrão;
2. Ao digitar a senha, se for a correta imprime e aparece um recado (ex: Impressão realizada com sucesso), caso a senha não esteja correta ("Senha errada, procure um administrador!")
3. Salve uma cópia automaticamente na raiz (C:\)

É possível?

Desde já agradeço.

Abs

[gfranco]

Bom dia.
Minha sugestão:
1º Crie um userform que será exibido para a entrada da senha com seus respectivos campos para digitação
2º Crie uma sub que chamará esse form na sua execução
3º dentro desse form coloque a regra de validação conforme vc descreveu acima e que, caso a senha esteja correta, chamará a macro de impressão ( que deverá ser configurada como PRIVATE SUB.

At
Gfranco

[AndreAdanya]

Obrigado pela ajuda Gfranco.

Em relação à salvar automaticamente na raiz, é possível?

[alexandrevba]

Bom dia!!

Tente

Código: Selecionar todos

Sub Teste()
Const csPath As String = "C:\"
MyName = ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:=csPath & "AleVBA" & " - " & MyName
End Sub

Att