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,