含Application.Volatile的Excel代码在文档内正常，打开编辑属性时失效

我来帮你搞定这个Excel VBA的问题！你这段代码平时能正常更新工作簿的自定义文档属性，但手动编辑属性时就报错，大概率是自定义属性未预先创建、变量未赋值、权限限制或者触发时机不对导致的，下面给你具体的排查和解决步骤：

可能的失败原因 #

• 自定义属性不存在：如果工作簿里没提前创建CLIENT、Project这些属性，代码直接会因为找不到属性而报错
• 变量未定义/无值：CLIENT、PROJECT这些变量要是没被正确赋值，赋值操作自然会失败
• 安全权限限制：手动编辑属性时，Excel的安全上下文可能限制了VBA对文档属性的写入权限
• 触发逻辑冲突：如果你的代码是作为 volatile 函数（因为用了Application.Volatile），手动编辑属性时可能不会触发函数刷新

具体解决方案 #

1. 先初始化所有需要的自定义属性 #

先运行一次下面的代码，确保工作簿里已经存在所有需要的自定义属性，避免后续代码找不到属性报错：

Sub InitCustomProperties()
    Dim prop As DocumentProperty
    
    ' 检查并创建CLIENT属性
    On Error Resume Next
    Set prop = ThisWorkbook.CustomDocumentProperties("CLIENT")
    On Error GoTo 0
    If prop Is Nothing Then
        ThisWorkbook.CustomDocumentProperties.Add _
            Name:="CLIENT", _
            LinkToContent:=False, _
            Type:=msoPropertyTypeString, _
            Value:=""
    End If
    
    ' 创建Project属性
    On Error Resume Next
    Set prop = ThisWorkbook.CustomDocumentProperties("Project")
    On Error GoTo 0
    If prop Is Nothing Then
        ThisWorkbook.CustomDocumentProperties.Add _
            Name:="Project", _
            LinkToContent:=False, _
            Type:=msoPropertyTypeString, _
            Value:=""
    End If
    
    ' 创建DATE属性（注意类型是日期型）
    On Error Resume Next
    Set prop = ThisWorkbook.CustomDocumentProperties("DATE")
    On Error GoTo 0
    If prop Is Nothing Then
        ThisWorkbook.CustomDocumentProperties.Add _
            Name:="DATE", _
            LinkToContent:=False, _
            Type:=msoPropertyTypeDate, _
            Value:=Date
    End If
    
    ' 创建Drawing/Job No属性
    On Error Resume Next
    Set prop = ThisWorkbook.CustomDocumentProperties("Drawing/Job No")
    On Error GoTo 0
    If prop Is Nothing Then
        ThisWorkbook.CustomDocumentProperties.Add _
            Name:="Drawing/Job No", _
            LinkToContent:=False, _
            Type:=msoPropertyTypeString, _
            Value:=""
    End If
    
    ' 创建Drawn By属性
    On Error Resume Next
    Set prop = ThisWorkbook.CustomDocumentProperties("Drawn By")
    On Error GoTo 0
    If prop Is Nothing Then
        ThisWorkbook.CustomDocumentProperties.Add _
            Name:="Drawn By", _
            LinkToContent:=False, _
            Type:=msoPropertyTypeString, _
            Value:=""
    End If
End Sub

运行完成后，你的工作簿里就有了所有需要的自定义属性了。

2. 给原代码添加错误捕获与变量赋值 #

修改你的原代码，加入错误处理（能明确知道哪里出问题），同时确保变量有正确的值：

Application.Volatile
On Error GoTo ErrorHandler

' 先给变量赋值（这里示例从Sheet1的单元格读取，你可以改成自己的逻辑）
Dim CLIENT As String, PROJECT As String
Dim JOB_NUMBER As String, NAMCON As String, DRAWN_BY As String

CLIENT = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
PROJECT = ThisWorkbook.Sheets("Sheet1").Range("A2").Value
JOB_NUMBER = ThisWorkbook.Sheets("Sheet1").Range("A3").Value
NAMCON = ThisWorkbook.Sheets("Sheet1").Range("A4").Value
DRAWN_BY = ThisWorkbook.Sheets("Sheet1").Range("A5").Value

' 更新属性
ThisWorkbook.CustomDocumentProperties("CLIENT").Value = CLIENT
ThisWorkbook.CustomDocumentProperties("Project").Value = PROJECT
ThisWorkbook.CustomDocumentProperties("DATE").Value = Date
ThisWorkbook.CustomDocumentProperties("Drawing/Job No").Value = JOB_NUMBER & " / " & NAMCON
ThisWorkbook.CustomDocumentProperties("Drawn By").Value = DRAWN_BY

Exit Sub
ErrorHandler:
    MsgBox "更新属性失败：" & Err.Description & vbCrLf & "错误代码：" & Err.Number, vbExclamation
    Resume Next

这样如果代码运行失败，会弹出提示告诉你具体的错误原因，比如变量为空、权限不足等。

3. 调整代码触发逻辑（替代Volatile函数） #

Application.Volatile是让函数随单元格变化刷新，但手动编辑文档属性时不一定会触发这个刷新。你可以把代码放到工作簿打开事件里，或者创建一个按钮手动触发，更可靠：

方案A：工作簿打开时自动更新

把下面的代码放到ThisWorkbook模块里：

Private Sub Workbook_Open()
    On Error GoTo ErrorHandler
    Dim CLIENT As String, PROJECT As String
    Dim JOB_NUMBER As String, NAMCON As String, DRAWN_BY As String
    
    ' 替换成你的变量赋值逻辑
    CLIENT = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    PROJECT = ThisWorkbook.Sheets("Sheet1").Range("A2").Value
    JOB_NUMBER = ThisWorkbook.Sheets("Sheet1").Range("A3").Value
    NAMCON = ThisWorkbook.Sheets("Sheet1").Range("A4").Value
    DRAWN_BY = ThisWorkbook.Sheets("Sheet1").Range("A5").Value
    
    ' 更新属性
    ThisWorkbook.CustomDocumentProperties("CLIENT").Value = CLIENT
    ThisWorkbook.CustomDocumentProperties("Project").Value = PROJECT
    ThisWorkbook.CustomDocumentProperties("DATE").Value = Date
    ThisWorkbook.CustomDocumentProperties("Drawing/Job No").Value = JOB_NUMBER & " / " & NAMCON
    ThisWorkbook.CustomDocumentProperties("Drawn By").Value = DRAWN_BY
    
    Exit Sub
ErrorHandler:
    MsgBox "更新属性失败：" & Err.Description & vbCrLf & "错误代码：" & Err.Number, vbExclamation
End Sub

这样每次打开工作簿都会自动更新属性。

方案B：创建按钮手动触发

1. 在Excel里插入一个按钮控件（开发工具 -> 插入 -> 按钮（表单控件））
2. 把按钮关联到下面的宏：

Sub UpdateDocProperties()
    On Error GoTo ErrorHandler
    Dim CLIENT As String, PROJECT As String
    Dim JOB_NUMBER As String, NAMCON As String, DRAWN_BY As String
    
    ' 替换成你的变量赋值逻辑
    CLIENT = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    PROJECT = ThisWorkbook.Sheets("Sheet1").Range("A2").Value
    JOB_NUMBER = ThisWorkbook.Sheets("Sheet1").Range("A3").Value
    NAMCON = ThisWorkbook.Sheets("Sheet1").Range("A4").Value
    DRAWN_BY = ThisWorkbook.Sheets("Sheet1").Range("A5").Value
    
    ' 更新属性
    ThisWorkbook.CustomDocumentProperties("CLIENT").Value = CLIENT
    ThisWorkbook.CustomDocumentProperties("Project").Value = PROJECT
    ThisWorkbook.CustomDocumentProperties("DATE").Value = Date
    ThisWorkbook.CustomDocumentProperties("Drawing/Job No").Value = JOB_NUMBER & " / " & NAMCON
    ThisWorkbook.CustomDocumentProperties("Drawn By").Value = DRAWN_BY
    
    MsgBox "文档属性更新完成！", vbInformation
    Exit Sub
ErrorHandler:
    MsgBox "更新属性失败：" & Err.Description & vbCrLf & "错误代码：" & Err.Number, vbExclamation
End Sub

以后需要更新属性时，点击按钮就行，完全不受手动编辑属性的影响。

4. 检查宏安全设置 #

确保你的Excel宏安全设置允许宏运行：

• 点击文件 -> 选项 -> 信任中心 -> 信任中心设置 -> 宏设置
• 选择“启用所有宏（不推荐；可能会运行有潜在危险的代码）”，或者把这个文档添加到信任位置

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