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