调用VBA公共过程触发Runtime error 438报错问题咨询

错误原因 #

1. Sub过程调用语法错误 #

VBA中调用无返回值的Sub过程需遵循以下语法规则：

• 不使用Call关键字时，参数无需包裹括号
• 使用Call关键字时，参数需包裹在括号内
  你写的protectWorksheet (ws)没有加Call却给参数加了括号，VBA会强制对括号内的ws对象做表达式求值，隐式调用Worksheet的默认属性Name得到字符串值，把字符串传入要求Worksheet类型参数的过程，因此触发：
• Runtime Error 438：对象不支持该属性或方法
• Rubberduck的两个提示：参数对象类型不兼容、在需要值的位置使用了对象

2. 本地窗口触发Outlook的异常原因 #

VBA本地窗口加载对象属性时会遍历所有属性值，如果你的工程引用了非必要的Office相关类库（尤其是Outlook相关的MAPI类库），或者Excel对象模型被第三方插件篡改，会导致遍历过程中错误触发MAPI调用，唤起Outlook配置流程。

修复方法 #

修改protectAllWorksheets内的过程调用代码即可，两种正确写法二选一：

Public Sub protectAllWorksheets()
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        ' 写法1：不加Call，移除参数括号
        protectWorksheet ws
        ' 写法2：加Call，保留参数括号
        ' Call protectWorksheet(ws)
    Next ws
End Sub

Public Sub protectWorksheet(ws As Worksheet)
    ' 需确保全局变量strPassword已提前定义并赋值
    ws.Protect Password:=strPassword, UserInterFaceOnly:=True
End Sub

如果还有Outlook异常弹出的问题，可以打开VBA编辑器→「工具」→「引用」，取消勾选所有未标记为必要的第三方引用、Outlook相关引用即可。

内容的提问来源于stack exchange，提问作者Vincent