利用VBA读写excel文档属性
时间:2023-05-21 01:00:38
要实现限制文件的使用次数,想来应该在某个地方存储文档已用的次数,并且在文档每被使用一次这个使用次数就得发生相应的更改。如果这个思路正确的话,我们就可以利用文档属性的某个位置来实现这一想法,故有了以下两种形式:
一、利用自定义属性:因为我们可以自定义数字型的属性,这一点非常符合我们的需求
先用一行代码ThisWorkbook.CustomDocumentProperties.Add Name:="open_times",LinkToContent:=False,Type:=msoPropertyTypeNumber,Value:=10来定义一个名为open_times的数字型属性、初始值为10。当然也可以手动定义
然后在文档的打开事件中写入:
Private Sub Workbook_Open()
If ThisWorkbook.CustomDocumentProperties("open_times")1 Then MsgBox"可用次数已小于1"
Else ThisWorkbook.CustomDocumentProperties("open_times")=ThisWorkbook.CustomDocumentProperties("open_times")-1 End If End Sub
注:1、这里我们只讨论在必须启用宏的情况下。2、这里只写了打开文档的次数,要想保存、修改等等,请作相应改动。3、限制的代码请自行修改,此处只写了MsgBox"可用次数已小于1"这么一个提示信息
二、上一个方法自然、直观,但不隐蔽。再利用内置文档属性直观上不容易发现的:
先用一行代码ThisWorkbook.BuiltinDocumentProperties.Item("comments")=""将备注清空,然后文档每打开一次其备注增加一个空格,再判断其长度,当长度达到我们的限制要求时,作相应操作:
Private Sub Workbook_Open()
ThisWorkbook.BuiltinDocumentProperties.Item("comments")=ThisWorkbook.BuiltinDocumentProperties.Item("comments")&""
If Len(ThisWorkbook.BuiltinDocumentProperties.Item("comments"))10 Then MsgBox"已超过可用次数"
End If End Sub
注:同前,限制的代码请自行修改,此处只写了一个提示信息
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
wps ppt怎么设置字体倒影
win10系统的各个版本有什么区别?
![](https://img.aspxhome.com/file/2023/1/a276072_0s.png)
ppt怎么制作背景虚化的画中画封面图?
![](https://img.aspxhome.com/file/2023/10/a345840_0s.jpg)
修改Win10系统程序菜单栏的高度的方法
![](https://img.aspxhome.com/file/2023/3/a301818_0s.jpg)
Potato chat怎么设置中文登陆?Potato chat设置中文登陆操作步骤
![](https://img.aspxhome.com/file/2023/7/a332531_0s.jpg)
如何固定Win8开始屏幕磁贴布局并禁止增加或删除磁贴
![](https://img.aspxhome.com/file/2023/29/a254584_0s.jpg)
WPS表格设置需输入密码才能打开文件
![](https://img.aspxhome.com/file/2023/4/a164504_0s.png)
Win10下鼠标无法拖动文件的原因及解决方法
![](https://img.aspxhome.com/file/2023/29/a251880_0s.jpg)
i5cpu天梯图_2020年i5cpu天梯图最新高清大图
![](https://img.aspxhome.com/file/2023/4/a305997_0s.jpg)
笔记本电脑外接台式机显卡的安装教程
![](https://img.aspxhome.com/file/2023/4/a305421_0s.jpg)
Windows 7中配置IPv6需要注意的那点事
![](https://img.aspxhome.com/file/2023/27/a234471_0s.jpg)
如何在小范围内修改WPS表 如插入新的行或列
![](https://img.aspxhome.com/file/2023/2/a169502_0s.jpg)
Win10怎么使用优化索引加快搜索文件速度?
![](https://img.aspxhome.com/file/2023/2/a284187_0s.jpg)
园园app如何锁定房间 园园app锁定房间的教程
![](https://img.aspxhome.com/file/2023/8/a335862_0s.png)
Excel不是“最初设计为个人生产力工具”-
WORD文档在修改时为什么会把后面的字删除
![](https://img.aspxhome.com/file/2023/9/18519_0s.jpg)
Win10电脑屏幕亮度被锁定了怎么解决?
![](https://img.aspxhome.com/file/2023/26/a222491_0s.png)
Excel中如何冻结第一行、第一列的技巧
![](https://img.aspxhome.com/file/2023/9/43029_0s.jpg)
最干净的一键重装系统软件 系统之家装机大师推荐
![](https://img.aspxhome.com/file/2023/6/a322111_0s.png)
久伴APP怎么添加音乐?久伴APP添加音乐的方法
![](https://img.aspxhome.com/file/2023/8/a334345_0s.jpg)