64 bit excel kullanıcılarından test isteği

[klop01]

Aşağıda internetten bulduğum bir kod var.
Kod UserFormun X işaretini göstermemeye yarıyor.
Kod 32 bit excelde hatasız çalışıyor.
64 bit excelde çalışması için Declare ifadesinden sonra PtrSafe yazılması gerekiyormuş. Onu yazdım. Çalışıp çalışmadığını denemek istiyorum.
Bu kodun 64 bit excelde hata verip vermediğini test edip bildirir misiniz?

Private Declare PtrSafe Function GetWindowLongA Lib "User32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLongA Lib "User32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
  Dim hwnd As Long
  hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption)
  SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub

 

[Haluk]

Win7 Home Ed. üzerinde "User" haklarıyla açılan oturumda Excel 2010 - 64 Bit ile sorun olmadı....

.

 

[assenucler]

Windows 10 single language 64 bit ve Office 365 Ev 64 bit ile sorunla karşılaşmadım.

 

[klop01]

Sayın Haluk, assenucler
Test için teşekkür ederim. Sağ olunuz.