Este fórum está sendo desativado

[eversonmedrado]

Olá Gurus,

Olha eu novamente aqui, rs

Estou enviando em anexo um trabalho pra exemplificar.

Nele existem 4 Planilhas:
- CADASTRO;
- PADRÕES;
- DADOS;
- CERTIFICADO.

Na planilha DADOS tem um botão "Gerar Certificado", eu gostaria que ao clicar nesse botão, a planilha CERTIFICADO fosse salva em PDF na pasta "C:\\Usuários" com o nome da célula B1 da planilha CERTIFICADO.

NOTA: Gostaria de agradecer especialmente ao Jimmy que me ajudou mais de uma vez em outras dúvidas, e também ao criador do fórum.
Por causa desse fórum meu projeto está quase finalizado.

[Jimmy]

Olá Everson,

Segue a planilha com a macro para exportar.
Na primeira linha, coloca "S" para que o Excel abra o PDF após a importação, ou "N" para não abrir.

Lembro dessa planilha de outro tópico, e já tinha algo de macro feita para ela, mas não veio nada junto. Você arrumou alguma forma de fazer sem macro?

Jimmy San Juan

[Jimmy]

Bom dia Everson,

No post que te mandei ontem acabei enviando a planilha que salva o PDF no diretório que usei para testes, que é o C:\Temp.

Por favor altere para C:\Users.

[eversonmedrado]

Bom dia Jimmy

Então, fiz a alteração que vc pediu para C:\Users, porém na hora que clico em gerar certificado, dá o erro de execução '1004'.

O código fica todo amarelo com a seta em "Quality:=xlQualityStandard"

Vou deixar o código aqui em baixo caso queira ver:

Sub SalvaPDF()

AbrirAposSalvarPDF = "N"

ActiveSheet.ExportAsFixedFormat _
Filename:="C:\Users\" & Sheets("CERTIFICADO").Range("B1").Value & ".pdf", _
Type:=xlTypePDF, _
OpenAfterPublish:=AbrirAposSalvarPDF = "S", _
IgnorePrintAreas:=False, _
IncludeDocProperties:=True, _
Quality:=xlQualityStandard

End Sub

[eversonmedrado]

Outra dúvida Jimmy.

Estou tentando criar uma área de login e senha para o acesso à planilha.
Eu uso o exemplo desse link: http://www.macoratti.net/12/12/vba_lgn1.htm

Mas quando digito o usuário e a senha, aparece usuário não cadastrado.

Gostaria que ao abrir o arquivo fosse apresentado a Plan3 com a janela de login. Efetuando o login com sucesso; então a planilha Início é apresentada..

Se puder me ajudar com isso também, agradeceria muito.

[eversonmedrado]

Esqueci de anexar a planilha

[Jimmy]

Então, fiz a alteração que vc pediu para C:\Users, porém na hora que clico em gerar certificado, dá o erro de execução '1004'.

Acrescente o nome do usuário após o Users. Ex: C:\Users\Fulano

[Jimmy]

Estou tentando criar uma área de login e senha para o acesso à planilha.
Eu uso o exemplo desse link: http://www.macoratti.net/12/12/vba_lgn1.htm

Mas quando digito o usuário e a senha, aparece usuário não cadastrado.

Gostaria que ao abrir o arquivo fosse apresentado a Plan3 com a janela de login. Efetuando o login com sucesso; então a planilha Início é apresentada..

Baixei a planilha e não consegui descobrir como testar, fazer Login, para reproduzir o erro que você relatou acima. Passe mais detalhes.

[eversonmedrado]

Bom dia Jimmy

Estou anexando a planilha com erro.
Mas ela não reconhece o usuário.

Usuário: everson
senha: 01031988

[Jimmy]

Everson,

Você está usando simplificações como:
Plan2.Cells(lin, col).Value
que devem ser alteradas para
sheets(“Plan2”).Cells(lin, col).Value
Se fizer essa troca vai funcionar.

Usei só um exemplo, mas há várias dessas na macro de click do botão ENTER do formulário.

[Jimmy]

Everson,

Percebi algo em sua macro que creio seria melhor mudar.
A SUB de click no botão CANCELAR fecha o Excel. Se houverem outras planilhas abertas, mesmo que não tenham nada a ver com calibração, serão fechadas também, perdendo as alterações que foram feitas nelas.

Creio que seria melhor trocar a linha
Application.Quit
por
ActiveWindow.Close
pois assim só fecha a planilha de calibração.

Também não vejo necessidade de salvar a planilha na linha
ActiveWorkbook.Save
porque se o operador entrou, e teclou CANCELAR na tela de login, nada foi mudado na planilha.

[eversonmedrado]

Boa tarde Jimmy, obrigado...ajudou muito