Lỗi khi chạy VBA trên máy khác

[tuanvuong05v01]

Nhờ ae giúp mình sửa giúp lỗi này với. Máy ở nhà thì chạy được file này nhưng khi đưa sang máy công ty thì không chạy được macrro. có a nào biết sửa giúp e file này với

 

[batman1]

Thay

Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function MessageBoxW Lib "user32" (ByVal HWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

bằng

#If VBA7 Then
    Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
    Private Declare PtrSafe Function MessageBoxW Lib "user32" (ByVal HWnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
#Else
    Private Declare Function GetActiveWindow Lib "user32" () As Long
    Private Declare Function MessageBoxW Lib "user32" (ByVal HWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
#End If

Thực ra không cần khai báo hàm GetActiveWindow. Nhưng lúc đó trong MsgboxUni phải sửa

MsgboxUni = MessageBoxW(GetActiveWindow, BStrMsg, BStrTitle, Buttons)

thành

MsgboxUni = MessageBoxW(0, BStrMsg, BStrTitle, Buttons)