Giúp sửa lỗi "User-defined type not defined"

[ngocbach_qs]

Chào cả nhà
Mình mới học VBA

Mình mới nhận được 1 file template có VBA
File này được viết trên office 2016
mình mở trên office 2007 thì bị lỗi "Compile error. Sub or Funtion"
có vẻ như đoạn code này bị lỗi:

Private Declare PtrSafe Function CryptBinaryToString Lib "Crypt32.dll" Alias "CryptBinaryToStringW" ( _
ByVal pbBinary As LongPtr, _
ByVal cbBinary As Long, _
ByVal dwFlags As Long, _
ByVal pszString As LongPtr, _
ByVal pcchString As LongPtr _
) As Long

mình xóa PtrSafe thì nó lại báo lỗi
User-defined type not defined

Ai có thể giúp mình được không

 

[thnghiachau]

Chào cả nhà
Mình mới học VBA

Mình mới nhận được 1 file template có VBA
File này được viết trên office 2016
mình mở trên office 2007 thì bị lỗi "Compile error. Sub or Funtion"
có vẻ như đoạn code này bị lỗi:

Private Declare PtrSafe Function CryptBinaryToString Lib "Crypt32.dll" Alias "CryptBinaryToStringW" ( _
ByVal pbBinary As LongPtr, _
ByVal cbBinary As Long, _
ByVal dwFlags As Long, _
ByVal pszString As LongPtr, _
ByVal pcchString As LongPtr _
) As Long

mình xóa PtrSafe thì nó lại báo lỗi
User-defined type not defined

Ai có thể giúp mình được không

lỗi là do Font Nhật ah! đem qua máy Nhật thì OK nhá!
ví dụ: Worksheets("ƒwƒ‹ƒv").Activate sao biết lăng quăng là gì ta????

 

[ngocbach_qs]

lỗi là do Font Nhật ah! đem qua máy Nhật thì OK nhá!
ví dụ: Worksheets("ƒwƒ‹ƒv").Activate sao biết lăng quăng là gì ta????

Hiện tại mình đang dùng máy Nhật
Phiên bản OS Windown 7 64 bit
Office 2007 32 bit
mình nghĩ là lỗi không tương thích vơi VBA của office 2016 64 bit
vì mở trên office 2016 64 chạy ok

 

[batman1]

Bỏ PtrSafe và sửa các LongPtr thành Long.
Rất có thể phải sửa các phần tiếp theo, vd. khai báo biến LongPtr. Tôi không chỉ rõ vì không tải tập tin về.

 

[ngocbach_qs]

Bỏ PtrSafe và sửa các LongPtr thành Long.
Rất có thể phải sửa các phần tiếp theo, vd. khai báo biến LongPtr. Tôi không chỉ rõ vì không tải tập tin về.

Thanks bác Batman1 mình xóa bỏ Ptrsafe và sửa Longptr thành Long thì đã chạy được rồi.