在64位中声明函数和常量以播放声音

Question

我在线找到了播放声音的代码，该声音要求对winmm.dll调用函数。

在我更新到64位Excel之前，它一直有效。

Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

我收到一个错误消息，说它与64位不兼容

我在声明函数中添加了PtrSafe，但出现编译错误：

  

“不允许将常量，定长字符串，数组，用户定义的类型和Declare语句作为对象模块的公共成员。”

我如何使它在64位环境下工作？

无论用户使用哪个版本，如何使它工作？