开场白：你的Excel文件，真的“裸奔”了吗？
想象一下，你辛辛苦苦做了一份财务报表，文件名是《2026Q1最终版_真的最终版_老板说再改就辞职.xlsx》。
结果呢？三个月后，你打开它，一脸懵逼：
这是谁做的？
最后更新是什么时候？
这数据是给哪个部门看的？
为什么里面有个叫“临时测试别删”的Sheet？
如果你的Excel文件没有“身份证”，那它就是在数字世界里裸奔！
今天，咱不聊那些老掉牙的Range("A1").Value，来点高阶玩法——CustomProperty（自定义属性）。
它就像给Excel文件纹了个隐形纹身，只有懂行的人（比如你）才能看见，而且洗都洗不掉（除非你故意擦）。
一、CustomProperty是个啥？别被名字吓到！
在VBA的世界里，CustomProperty对象属于BuiltInDocumentProperties和CustomDocumentProperties家族。
简单说：
内置属性（BuiltIn）：Excel自带的，比如作者、标题、创建时间。你能改，但选项有限。
自定义属性（Custom）：你想加啥就加啥！部门、版本号、审核状态、甚至“老板今天心情指数”……统统可以！
💡 冷知识：这些属性存在文件元数据里，不占用单元格空间，也不会被Ctrl+A全选选中。它们是文件的“灵魂备注”。
二、实战演练：三行代码，让Excel学会“自报家门”
别怕，咱们不整那些吓人的For Each循环嵌套。先看个最简单的例子：
Sub 给文件加个身份证()
With ThisWorkbook.CustomDocumentProperties
.Add Name:="最后更新人", Value:=Environ("USERNAME")
.Add Name:="更新日期", Value:=Now
.Add Name:="文件版本", Value:="v2.3_严禁外传"
End With
MsgBox "纹身完成！右键文件→属性→详细信息，自己瞅瞅～"
End Sub
运行后，右键你的Excel文件 → 属性 → 详细信息标签页，你会看到：
✅ 最后更新人：ZhangSan
✅ 更新日期：2026/3/15 12:31
✅ 文件版本：v2.3_严禁外传
是不是瞬间感觉这文件有了“人格”？
三、高级玩法：用CustomProperty打造“防呆系统”
场景1：防止误用旧版本文件
很多公司悲剧的起源，就是有人用了上个季度的模板填了这个季度的数据。
我们可以用CustomProperty加个“版本锁”：
Sub 检查版本是否匹配()
Dim ver As String
On Error Resume Next
ver = ThisWorkbook.CustomDocumentProperties("文件版本").Value
On Error GoTo 0
If ver <> "v2.3_严禁外传" Then
MsgBox "警告！你正在使用过期模板！" & vbCrLf & _
"当前版本：" & ver & vbCrLf & _
"请立即联系IT部领取新版！", vbCritical, "版本错误"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
把这段代码放在Workbook_Open事件里，每次打开文件自动检查。
效果：用错版本？门都没有！文件直接自闭关闭。
场景2：自动化审计追踪
财务小姐姐最怕什么？怕老板问：“这数谁改的？”
用CustomProperty记录每次保存的操作人：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With ThisWorkbook.CustomDocumentProperties
On Error Resume Next
.Item("最后修改人").Delete
.Item("最后修改时间").Delete
On Error GoTo 0
.Add Name:="最后修改人", Value:=Environ("USERNAME")
.Add Name:="最后修改时间", Value:=Now
End With
End Sub
从此，每个文件都自带“监控摄像头”，谁动过手脚，一查一个准。
四、避坑指南：这些雷区千万别踩！
虽然CustomProperty很香，但也不是万能药。几个血泪教训送给你：
❌ 坑1：属性名重复会报错
.Add Name:="版本", Value:="1.0"
.Add Name:="版本", Value:="2.0" ' ← 这会炸！
解法：先删除再添加，或者用On Error Resume Next判断是否存在。
❌ 坑2：某些属性值类型受限
CustomProperty支持字符串、数字、日期、布尔值，但不支持数组或对象。
想存一个列表？乖乖转成JSON字符串吧（别问，问就是踩过坑）。
❌ 坑3：另存为CSV会丢失所有属性！
CSV是纯文本，元数据？不存在的！
忠告：重要文件别乱另存为CSV，除非你想让“隐形纹身”彻底消失。
五、脑洞大开：CustomProperty还能怎么玩？
权限控制：加个“允许编辑部门”属性，非本部门打开只读。
自动归档：根据“项目结束日期”属性，到期自动移入归档文件夹。
彩蛋功能：在属性里藏一句“恭喜发现隐藏成就！”，给细心同事一个小惊喜。
🚀 2026年新趋势：越来越多企业用CustomProperty做轻量级文档管理系统，不用买昂贵软件，Excel自己就能扛！
结语：让你的Excel“有魂”起来
CustomProperty不是炫技，而是专业主义的体现。
它让冰冷的数据文件有了温度，让混乱的协作有了秩序，让背锅侠无处遁形。
