Excel Código para preencher usuario e senha atraves de vba de botao no excel

[Samuel Silva Santos]

 

  

Bom Dia, Srs!

Tudo bem com vocês ?

Estou desenvolvendo uma planilha que além de controles de estoque no excel, ela acessa sap e um aplicativo  de extensão Lnk ( um WMS ).

Estou com o código abaixo que acessa o aplicativo de extensão Lnk, eu consigo abri-lo porém não consigo entrar com a senha e login.

Alguém poderia me ajudar qual o código que eu consigo entrar com essas informações?

 

Segue meu código até a abertura do aplicativo:

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub OpenWMS()


Set objShell = CreateObject("Shell.Application")

Dim Path As String
Dim arquivo As String
Dim User_ID As Variant
Dim Password As Variant
Visible = True

Path = "C:\Users\samuel.ss\Desktop\SEDA_Prd WMS.lnk"  'Path ="C:\Windows\SysWOW64\MiUpdater322.exe"
arquivo = "C:\Windows\SysWOW64\MiUpdater322.exe"     ' " C:\Users\samuel.ss\Desktop\SEDA_Prod WMS.lnk "

objShell.ShellExecute "C:\Users\samuel.ss\Desktop\SEDA_Prd WMS.Lnk", para, "", "open", 1
 Application.Wait Now + TimeValue("0:00:01")


User_ID.Value = "samuel"      (  Estas sâo as informações que pretendo entrar )
Password.Value = "Arvore123"

Set objShell = Nothing
Cancel = True

End Sub

 

 

Agradeço,