Application.Quit trước khi mở file Excel

[Duong gia]

Bạn nào biết ứng dụng Application.Quit trước khi mở file Excel không share cho mình với. Ý của mình là khi mở 1 file Excel giả sử tên "ABC" nó tự động thực thi lệnh đóng tất cà các ứng dụng Excel lại trước open. Thanks

 

[vungoc]

Như thế này, không biết phải giống ý của bạn không:

Trong cửa sổ VBE nhấp đôi chuột phải vào ThisWorkbook và đặt đoạn code này:


Private Sub Workbook_Open()
On Error Resume Next
Application.Visible = False ' Đóng giao diện của excel lại
... Show một form nào đó
End Sub


Bạn có thể tham khảo cách làm này trong file Quản lý phụ tùng (mình đã up trên diễn đàn này).

 

[Nguyễn Duy Tuân]

Bạn tham khảo thêm cách dưới đây nhé!

Private Sub Workbook_Open()
Dim wb As Workbook

    For Each wb In Application.Workbooks
        If wb.Name <> ThisWorkbook.Name Then
            wb.Close False [COLOR="Green"]' True nếu muốn save[/COLOR]
        End If
    Next

End Sub

 

[Duong gia]

Thanks ban TuanVNUNI, nhưng ý mình là trước khi open file thì phải thoát các ứng dụng của Excel tức là thoát Project-VBAProject của các file Excel đã mở trước đó. Thanks

 

[SoiBien]

Thanks ban TuanVNUNI, nhưng ý mình là trước khi open file thì phải thoát các ứng dụng của Excel tức là thoát Project-VBAProject của các file Excel đã mở trước đó.
Thanks

Không hiểu ý bác!! khi workbook closed thì Vbaproject của workbook đó cũng đã được đóng lại.

Bác nói rõ hơn tí nữa nha.

 

[Nguyễn Duy Tuân]

Addin RunOpen

Thanks ban TuanVNUNI, nhưng ý mình là trước khi open file thì phải thoát các ứng dụng của Excel tức là thoát Project-VBAProject của các file Excel đã mở trước đó.
Thanks

Nếu làm vậy thì bạn phải tạo một Addin riêng có nút RunOpen. Trong Addin có 3 thủ tục như dưới đây:

'----------------------------------------
Sub RunOpen()
On Error GoTo RaiseErr
Dim fileToOpen
    
    CloseAll
    
    fileToOpen = Application. _
    GetOpenFilename("Excel files (*.xls),*.xls,All files (*.*),*.*")
    
    If fileToOpen <> False Then
        Application.Workbooks.Open fileToOpen
    End If
    
    Exit Sub
    
RaiseErr:
    MsgBox Err.Description, vbCritical, "Error: " & Err.Number
End Sub
'----------------------------------------
Private Sub CloseAll()
Dim wb As Workbook
Dim bSave As Boolean
    bSave = (MsgBox("Do you want to save all workbooks?", vbExclamation + vbYesNo, "Close all") = vbYes)
    For Each wb In Application.Workbooks
        wb.Close bSave
    Next

End Sub
'----------------------------------------
Sub Auto_Close()
    Application.CommandBars("My Addin").Delete
End Sub
'----------------------------------------

Tôi gửi file đính kèm bạn sửa thêm cho vừa ý mình.

 

[Duong gia]

Cám ơn các Bác, đúng là các Bác vẫn chưa hiểu ý của mình, xin nói rõ như sau: 1/ Ta đang mở 1 file Excel tên A và vào bên trong Project-VBAProject để soạn VBA Excel. 2/ Ta mở tiếp 1 file Excel tên B , yêu cầu : Trước khi B open thì phải đóng cửa sổ soạn thảo VBA Excel lại, còn tập tin A có đóng lại hay không cũng được. Mục đích để bảo mật VBA code của tập tin B.