chạy code khi file không mở (1 người xem)

[ducdinh1987]

chào anh chị,

Anh chị biết cách nào tự chạy 1 code khi file excel đó không mở không?

cảm ơn anh chị nhiều.

 

[HyperLink]

mình cho ví dụ của code để show Form của 1 file đang đóng
- trước tiên cần có 1 Function để kiểm tra file đang đóng hay mở
- mở file + chạy Macro của file đó

Function IsWorkBookOpen(sBook As Variant) As Boolean 'sBook As Variant do ben tren da~ khai bao' dang. nay`
'Written by www.ozgrid.com
'Test to see if a Workbook is open.
Dim wBook As Workbook

    On Error Resume Next

    Set wBook = Workbooks(sBook)
    
    If wBook Is Nothing Then 'Not open
        'MsgBox sBook & vbNewLine & " - Workbook is not open", vbCritical, "OzGrid.com"
        IsWorkBookOpen = False
        Set wBook = Nothing
        On Error GoTo 0
    Else 'It is open
        'MsgBox sBook & vbNewLine & " - Yes it is open", vbInformation, "OzGrid.com"
        IsWorkBookOpen = True
        Set wBook = Nothing
        On Error GoTo 0
    End If
End Function

Sub showForm_dscnv_copy()
    
    Dim sPath As String, tenFile As String
    '#1 (Server)
    sPath = "W:\_thongtinNS\_danhsachCNV\"
    '#2 (khac': neu cung` 1 thu* muc)
    'sPath = ThisWorkbook.Path
    
    tenFile = "danhsachCNV(copy).xlsm"
    
    If IsWorkBookOpen(tenFile) = False Then 'chua mo?
        Workbooks.Open Filename:=sPath & tenFile, UpdateLinks:=True 'Turn On Update Links
        Workbooks(tenFile).Windows(1).Visible = False 'an? workbook vua` Open
        Application.Run ("'danhsachCNV(copy).xlsm'!showForm_dscnv")
    Else
    'da~ mo?
        Application.Run ("'danhsachCNV(copy).xlsm'!showForm_dscnv")
    End If
    
End Sub

Sub showForm_dscnv được đặt tại file danhsachCNV(copy).xlsm

2 code trên mình dùng kết hợp với Add_in để tìm kiếm thông tin nhân sự của 1 file đang đóng.

 

[ducdinh1987]

có cách nào không mở mà vẫn chạy được không.

ví dụ: mình có 2 file:
file 1: tên "FileToDelete"
và
file 2 tên "tu mo"

làm sao chỉ mở file 2 mà chạy được code file 1. không mở file 1 lên.

cảm ơn anh em GPE nhiều.

 

[HyperLink]

có cách nào không mở mà vẫn chạy được không.

ví dụ: mình có 2 file:
file 1: tên "FileToDelete"
và
file 2 tên "tu mo"

làm sao chỉ mở file 2 mà chạy được code file 1. không mở file 1 lên.

cảm ơn anh em GPE nhiều.

từ trước đến giờ mọi người vẫn thường phải mở file nguồn lên rồi đóng lại (ngay cả ADO) chứ sao ko mở lên được

 

[ducdinh1987]

Mình không rành về code và ADO lắm nên mới hỏi? nhiều khi có lại hay.