求助！84位系统不能正常运行代码

pethell

在学习vba过程中，发现有些代码在64位系统中不能正常运行，参考了几个修改的例子，还是没能解决问题，哪位大拿帮忙看看。

代码如下：就是红色的一行出了问题。
'防止用户误删除重要的工作表
Option Explicit
    Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
     Const SM_CXSCREEN = 0
     Const SM_CYSCREEN = 1

Private Sub Workbook_Activate()
    Call DelSht
End Sub
Private Sub Workbook_Deactivate()
    Call ResSht
End Sub
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheet4.Activate
Sheet4.Protect contents:=True
End Sub

zmj9151

加ptrsafe  可百度

lsc900707

84位系统？太先进了！

shiftxp

新手解答：
可以这样用：

1. #If VBA7 Then
   
2.     #If Win64 Then
   
3.         Private Declare <font color="#ff0000"><b>PtrSafe </b></font>Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
   
4.     #Else
   
5.         Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
   
6.     #End If
   
7. #Else
   
8.     Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
   
9. #End If

复制代码