مشكله في اكسل 2013

[dhooowoom]

اتمنى ان اجد الحل استخدم اكسل اصدار 2013 هذي الرساله تظهر كلما فتحت اي ملف اقوم بتحمليه من هذا المنتدى 

 

 

 

وشكرا لكم

[ابو تراب]

استبدله بالكود التالي:

#If VBA7 And Win64 Then
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags As LongPtr) As LongPtr
#Else
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
#End If

[dhooowoom]

شكر لك  اخي ابو تراب  لكن هل كل مره اضع هذا الكود لاي ملف اقوم بفتحه

[ابو تراب]

هلا

 

يمكنك وضعه في مديول جديدة

 

بالمناسبة يمكنك استخدام الكود التالي فهو يطابق الدالة التي وضعتها

 

#If Win64 Then
Public Declare PtrSafe Function sndPlaySound _
Lib "winmm.dll" Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long


#Else


Public Declare Function sndPlaySound32 _
Lib "winmm.dll" Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long


#End If

 

[dhooowoom]

شكرا لك ... لكن هل اجد طريقة للاضافه ... لاني ليس لدي خلفيه كامله بطريقة اضافه في المديول 

[dhooowoom]

ما هو الحل الجذري للمشكله هذي