Página 1 de 1

Macro para abrir caixa de diálogo com senha para imprimir

Enviado: 08 Dez 2016 às 08:41
por AndreAdanya
Salve pessoal, tudo certo?

Estou com uma dúvida aqui :mrgreen:

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

Macro para abrir caixa de diálogo com senha para imprimir

Enviado: 08 Dez 2016 às 08:48
por 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

Macro para abrir caixa de diálogo com senha para imprimir

Enviado: 08 Dez 2016 às 10:12
por AndreAdanya
Obrigado pela ajuda Gfranco.

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

Re: Macro para abrir caixa de diálogo com senha para imprimi

Enviado: 18 Dez 2016 às 08:25
por 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