[已解决]给工作簿添加自定义属性

zjdh

为工作簿添加自定义属性，可以用于诸多用途，例记录运行次数，通过宏限定期限，作为备份序列号.........
添加完了，应将该宏删除。

1. Sub 添加属性() ‘日期
   
2. With ActiveWorkbook.CustomDocumentProperties
   
3. .Add Name:="SaveDate", _
   
4. LinkToContent:=False, _
   
5. Type:=msoPropertyTypeDate, _
   
6. Value:=Date ‘当天日期,也可为指定日期#6/8/2010#
   
7. End With
   
8. End Sub
   

复制代码

1. 
   
2. Sub 添加属性() ‘数字
   
3. With ActiveWorkbook.CustomDocumentProperties
   
4. .Add Name:="Savetimes", _
   
5. LinkToContent:=False, _
   
6. Type:=msoPropertyTypeNumber, _
   
7. Value:=5
   
8. End With
   
9. End Sub
   

复制代码

1. Sub 添加属性() ‘文本
   
2. With ActiveWorkbook.CustomDocumentProperties
   
3. .Add Name:="Lib", _
   
4. LinkToContent:=False, _
   
5. Type:=msoPropertyTypeString, _
   
6. Value:=”标签”
   
7. End With
   
8. End Sub
   

复制代码

最佳答案

月排行榜 / 总排行榜

吕?布

2011-10-22 17:58

Demo2.rar (342.54 KB, 下载次数: 173)

2011-10-22 17:58 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

自定义属性的提取与修改；

1. X= ThisWorkbook.CustomDocumentProperties("Lib1").Value  ‘提取ThisWorkbook.CustomDocumentProperties("Lib1").Value=X   ‘修改
   

复制代码

zjdh

逐个提取自定义属性：

1. 
   
2. Sub 提取属性()
   
3. Set f = ActiveWorkbook
   
4. For Each T In f.CustomDocumentProperties
   
5. N = T.Name
   
6. D = T.Value
   
7. Next
   
8. End Sub
   

复制代码

吕?布

嗯，与手工在属性里加一样的效果

zjdh

请教手工如何在属性里添加自定义属性？
能截个图片吗？

吕?布

Demo2.rar (342.54 KB, 下载次数: 173)

2011-10-22 17:58 上传

点击文件名下载附件

zjdh

多谢啦！

datouda

非常感谢！

xxj479

下载的文档怎么提示有木马？