[求助]我想打开带有密码的文件，该怎么写

zzf0400

我想打开带有密码的文件，D:\mi1.5\mi1.5\mc-1.xls密码为888，该怎么写，

以下为原来的事件代码

Private Sub Command9_Click()
On Error GoTo Err_Command9_Click

    Dim stAppName As String

    stAppName = "Excel.exe D:\mi1.5\mi1.5\mc-1.xls"
    Call Shell(stAppName, 1)

Exit_Command9_Click:
    Exit Sub

Err_Command9_Click:
    MsgBox Err.Description
    Resume Exit_Command9_Click
   
End Sub