modülde kullandığınız aşağıdaki 2 yordam 64 bitlik bilgisayarlarda hataya sebep oluyor 64 bitliklerde
PtrSafe kodunu eklemek gerekiyor
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
yukardaki 2 kodu silip aşağıdaki gibi düzenlerseniz bence daha iyi olur böylece hem 64 hem de 32 bitlik bilgisayarlarda çalışır
#If VBA7 And Win64 Then '64 bit için
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
#Else '32 bit için
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
#End If