Boa tarde,
Preciso de uma ajuda em relação a preenchimento de textbox em outra workbook
no caso eu tenho uma planilha que utilizo o codigo para copiar 2 Estados e cola-los em outra Workbook
Sub fncEstadoSF()
Dim lngLastCol, lngSecLastCol As Long
Dim wksOri As Worksheet
Dim wkbDes As Workbook
Dim wksDes As Worksheet
Set wksOri = ThisWorkbook.Worksheets("Consulta")
Set wkbDes = Workbooks.Open("C:Userspaulo.robertoDesktopTestestest2SF01-Situacao_Fiscal_UF_UF.xlsm")
Set wksDes = wkbDes.Worksheets("Plan1")
With wksDes
lngLastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column - 2
End With
wksDes.Cells(4, lngLastCol) = wksOri.Range("C10")
With wksDes
lngSecLastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column - 2
End With
wksDes.Cells(6, lngSecLastCol) = wksOri.Range("C15")
End Sub
Tendo isso colado eu acionaria uma Macro dessa outra Workbook
Application.Run ("Nome da Workbook.xlsm'!Nome da Macro")
Porem meu problema é que mesmo acionando a macro ele pede uma senha, no caso ele abre um Userform com
Usuario:
Senha:
Database:
só que eu não tenho acesso ao Editor de VBA então não sei os nomes dos campos,
o proprio usuario e database ja vem preenchido, meu problema é com a senha,
tem alguma forma de eu preencher mesmo sem ter o nome da textbox a partir da minha "Workbook busca" ?
Postado : 10/09/2015 10:33 am