Private Sub Form_Load()
Dim strPassword As String
Dim FileName As String
On Error GoTo 1
        strPassword = "456"
        FileName = App.Path + "" + "2.xlsm"
        
        On Error GoTo 1
        Excel.Workbooks.Open FileName, Password:="" & strPassword
        Excel.Application.Visible = False
        
        Start = Timer
        Finsh = Start + 10
        Do Until Finsh <= Timer
        DoEvents
        Loop
                Unload Form1
1:
    Unload Form1
End Sub

ملف.rar