VB打开excel，有密码验证，命令无法继续执行

excel有vba代码，在打开时会出现一个登录框，要输账号和密码，我现在想打开这个excel并自动输入账号密码，但是现在代码会卡在打开excel这一行，不会执行Call这行，自己输入账号和密码后又会继续执行之后的代码，这是由于什么原因，有没有比较简单的解决方法？

程序代码：

Private Sub Command3_Click()
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlbook = xlapp.Workbooks.Open("C:\检验软件\" & Text7.Text & "\1.xls") '打开设备
xlapp.Visible = True '设置EXCEL对象可见
Set xlsheet = xlbook.Worksheets("检验记录") '设置活动工作表
Call sign
xlsheet.Cells(7, 2) = 2008
Sleep 1000
Set xlsheet = xlbook.Worksheets("检验主要设备仪器") '设置活动工作表
xlsheet.Cells(7, 2) = 1111
Sleep 1000
xlapp.Quit '结束EXCEL对象'xlapp.Workbooks.Close
Set xlapp = Nothing '释放xlApp对象

End Sub