64 bit Excel de çalışmayan kodlar

[SedatOlgun]

Excel 32 bit de çalışan dosya 64 bitte çalışmıyor.

Private Sub UserForm_Activate()
    Dim lngHwnd As Long
    Dim lngCurrentStyle As Long, lngNewStyle As Long

    If Val(Application.Version) < 9 Then
        lngHwnd = FindWindow("ThunderXFrame", Me.Caption)  'XL97
    Else
        lngHwnd = FindWindow("ThunderDFrame", Me.Caption)  'XL2000, XP, 2003?
    End If

    'Set the Windows style so that the userform has a minimise and maximise button
    lngCurrentStyle = GetWindowLong(lngHwnd, GWL_STYLE)
    lngNewStyle = lngCurrentStyle Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
    lngNewStyle = lngNewStyle And Not WS_VISIBLE And Not WS_POPUP
    SetWindowLong lngHwnd, GWL_STYLE, lngNewStyle


    'Set the extended style to provide a taskbar icon
    lngCurrentStyle = GetWindowLong(lngHwnd, GWL_EXSTYLE)
    lngNewStyle = lngCurrentStyle Or WS_EX_APPWINDOW
    SetWindowLong lngHwnd, GWL_EXSTYLE, lngNewStyle
    ShowWindow lngHwnd, SW_SHOW
        
End Sub

 

[turist]

Sayın @SedatOlgun ,
Forumumuza hoşgeldiniz.
Kodların çalışmadığı dosyanızda, belirttiğiniz kodlardan önceki satırlarda yazılmış (ihtimalen kırmızı renge dönmüştür) fonksiyonlar, kodlar bulunacaktır.

Eğer öyleyse, bu kodlarda yer alan ..... Private Declare Sub veya Private Declare Function gibi ifadeler vardır.
Bu şekilde yazan yerlerde
Private Declare PtrSafe Sub ,Private Declare PtrSafe Function
şeklinde "PtrSafe" ilave edip , kodunuzu deneyebilirsiniz.

 

[SedatOlgun]

Sayın turist ,

Çok teşekkürler..

 

[turist]

Sağolun.