Arquivo
Fazer login em um site usando VBA
Hoje segue mais um post sobre vba e internet, avançando sobre o post anterior no qual abria o browser padrão.
Para funcionar é necessário adicionar em referencias a biblioteca “Microsoft Internet Controls“.
Abaixo segue como fazer um login em um site usando VBA, já antecipo que para fazer este login é necessário saber o ID do usuário, ID da senha e do ID botão. Atenção não o Name!
Para conseguir pegar os ID’s você pode clicar com botão direito do mouse usando o Chrome e clicar em Inspecionar Elemento ou usando o IE com botão direito e clicar em exibir código fonte.
Imagem abaixo usando inspeção no chrome, e pegando os Id’s para colocar no código
Segue código site com vba
Sub FazerLoginSite()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
With IE
.Visible = True
'abaixo coloquei o login do meu blog como exemplo...
.Navigate ("http://excelevba.com.br/download/login_teste.php")
While .Busy Or .ReadyState <> 4: DoEvents: Wend
.Document.getElementById("Ver qual ID do Login no html ").Focus
.Document.getElementById("Ver qual ID do Login no html ").Value = "COLOQUE SEU USUÁRIO AQUI"
.Document.getElementById("Ver qual ID do Password no html").Focus
.Document.getElementById("Ver qual ID do Password no html").Value = "COLOQUE SUA SENHA AQUI"
.Document.All("Verificar qual ID do Botão ").Click
While .Busy Or .ReadyState <> 4: DoEvents: Wend
Debug.Print .LocationURL
End With
End Sub
Para facilitar o aprendizado criei uma página simples para teste (“http://excelevba.com.br/download/login_teste.php”) cujo os dados de acesso voce encontra logo abaixo:
Usuario: excelevba
Senha: internet_excelevba
Pegar Usuário da Rede com excel
Na internet existe diversas formas de verificar o Usuário da rede no computador, então demonstro dois exemplos de uso
Segue abaixo código para Usuário da Rede / computador:
‘1ª Forma:
sub usuario()
Computador = Environ("Computername")
dominio = Environ("USERDOMAIN")
user = Environ("USERNAME")
msgbox "Computador: " & Computador
msgbox "Dominio: " & dominio
msgbox "Usuario: " & user
end sub
________________________________________________________________
‘2ª Forma:
sub UsuarioWindows()
Set ObjNetwork = CreateObject("WScript.Network")
GetUserN = ObjNetwork.UserName
msgbox "O usuário do windows é: " & GetUserN
end sub
_______________________________________________________________
* Segue demonstração abaixo:
Bloquear Codigo VBA
Para bloquear Codigo VBA em sua planilha é bem simples. E por ser simples devemos ter cuidado de não esquecer o acesso restrito inserido.
Primeiro passo acessar o menu
Acessar o editor de código, ir em Ferramentas e clicar em Propriedades de VBAProject conforme imagem abaixo:
Senha para bloquear codigo vba
Em seguida, na próxima janela que abrir clicar na guia Proteção, marcar Bloquear projeto para exibição e digitar uma senha
Pronto seu código já está com mais segurança.
E assim toda vez que você ou qualquer pessoa tentar acessar o seu código deverá inserir a senha
Expiração de Data para excel
End Sub
———————————————————————-
OPÇÃO 2 – É fazer a verificação ao abrir a planilha
Private Sub Workbook_Open()
‘copiar o codigo aqui
‘Dim exdate……
End Sub
Como Usar Inputbox no Excel Vba
Aqui neste artigo vou responder como usar inputbox e pra que serve?
Certas situações exige que a gente pergunte algo ao cliente e precisamos saber a resposta para continuar. Por exemplo e se você precisa perguntar a idade do seu cliente? E a resposta depende para filtrar a informação que irá prosseguir…
Então uma das respostas para essa hipotética situação seria o inputbox.
Codigo como usar Inputbox
Sub formasInput()
Dim varTexto As String, varNum As double
' Nessa forma temos INPUTBOX como função :
varTexto = InputBox("Insira um texto", "Aceita qualquer caracter")
' Aqui temos INPUTBOX como metodo :
varNum = Application.InputBox("Insira um número", "Aceita somente números", 1)
MsgBox "Você inseriu :" & Chr(13) & _
varTexto & Chr(13) & varNum, , "Resultado dos InputBox"
End Sub
Inserir senha no arquivo excel com vba
No excel 2003 , para inserir senha que bloqueie a abertura da planilha, é necessário colocar o código abaixo (ActiveWorkbook.password) no vba da planilha.
Obs.: Colocar o código dentro de >> EstaPasta_de_trabalho <<
Inserir senha de abertura no excel
Como no meu trabalho havia pessoas que não sabia colocar senha de abertura no excel manualmente resolvi criar este artigo para facilitar a todos.
Se por acaso você neste artigo e gostaria de saber como fazer para colocar em vba, então veja o artigo Inserir senha no arquivo excel com vba
Coloco aqui um pequeno tutorial para excel 2007 e as versões posteriores
Senha de abertura no excel 2007
Realmente acho estranho o modo como os desenvolvedores do Excel 2007 disponibilizaram a opção de proteger a abertura do arquivo.
1 > Para inserir a proteção de abertura é necessário apertar o botão 
2 > Clicar em Salvar Como
3 > Irá abrir uma janela…Escolha o diretório,e em baixo existe um botão Ferramentas (do lado do botão salvar)clique nele
4 > Escolha a opção -> Opções Gerais
5 > Agora você poderá colocar a senha e confirmá-la
6 > Irá pedir mais uma vez a senha
7 > Agora clique e salvar e fim
Senha de abertura no excel 2010
Demonstração através do vídeo
Conhecendo VBA 
