Mỗi 1 file mở bằng click tên trong cửa sổ Explore thì phức tạp đó
vâng , bác chỉ ra trường hợp rất hay, nếu mở từng file trong cửa sổ Explore thì nó sẽ có nhiều tiến trình excel giống như ta vào taskmanage xem các tiến trình đang chạy
đối với trường hợp này em dùng API code như sau bác chỉnh sửa giúp em nếu sai nhé
'* GetWindowThreadProcessId là một Windows API nó cho phép lấy tiến trình đang chạy, ở đây ta cần lấy PID ( EXCEL.EXE)
' cái này hỏi AI em cũng chẳng rõ thư viện này
'khai báo cho excel 2010 trở lên
#If VBA7 Then
Private Declare PtrSafe Function GetWindowThreadProcessId Lib "user32" ( _
ByVal hwnd As LongPtr, _
ByRef lpdwProcessId As Long) As Long
'khai báo cho excel cũ cho nó chắc
#Else
Private Declare Function GetWindowThreadProcessId Lib "user32" ( _
ByVal hwnd As Long, _
ByRef lpdwProcessId As Long) As Long
#End If
Sub Thoat()
Dim PID As Long
Dim WMI As Object
Dim p As Object
'Có file Excel khác trong cùng Instance
If Application.Workbooks.Count > 1 Then
ThisWorkbook.Close SaveChanges:=False
Exit Sub
End If
'Lấy PID của Excel hiện tại
GetWindowThreadProcessId Application.hwnd, PID
'Kiểm tra các Excel Instance khác
Set WMI = GetObject("winmgmts:\\.\root\cimv2")
For Each p In WMI.ExecQuery( _
"SELECT ProcessId FROM Win32_Process WHERE Name='EXCEL.EXE'")
If p.ProcessId <> PID Then
ThisWorkbook.Close SaveChanges:=False
Exit Sub
End If
Next p
'Không còn Excel/File nào khác
Application.Quit
End Sub
