利用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
注：同前，限制的代码请自行修改，此处只写了一个提示信息
0
投稿猜你喜欢
我们在对电脑的使用过程中，经常都会遇到这样或那样的问题。比如说win10开始菜单没有反应，该怎么办呢？相信不少朋友在遇到这样问题时都不知道怎- 很多用户遇到了网速很快打开网页很慢的困扰，网速卡慢严重影响了上网的体验，甚至会让人觉得很烦躁，开个网页要等上好久，有时甚至卡住不动了，什么兴
- 电脑奇偶校验存储空间故障导致Win10 2004用户无法升级怎么办？有的用户发现自己的Win10 2004版本的电脑无法升级了，经过检查发现
- 在Excel的众多函数中，有三大条件函数分别是IF函数、COUNTIF函数、SUMIF函数。Database构成列表或数据库的单元格区域。F
- win7系统中的aero特效非常受用户欢迎，透明玻璃感让用户一眼贯穿。可有些win7用户在个性化中想设置aero主题的时候发现，所有的aer
- Win10服务全部禁用了怎么启动？有用户安装了系统之后，很多功能无法正常的使用，后来发现是因为电脑中各种服务程序都被自动关闭了。我们只需要重
- 据相关消息报道，win10RS4慢速预览版17133更新推送，本次推送修复了已知问题，包括启用Bitlocker的设备意外重启到Bitloc
- 很多时候我们会看到一些比较好的excel电子表格，有时候就想借用下他们的公式，但是我们在excel中如何提取显示公式呢，今天给大家说两种简单
- 捞月狗怎么添加好友？捞月狗是一款游戏社交APP，也是国内最大的游戏玩家搜索引擎，用户们可在APP互相分享游戏经验和战绩，下面小编就和大家分享
- Excel 2013安装在配置较低的电脑中时，可能会出现响应较为缓慢的情况。比如一台多年前购置的电脑，显卡为Geforce FX
- 夜神模拟器是一款小伙伴常用的安卓模拟器，不过很多小家伙子在使用的时候难免会出现卡顿或者不流畅的情况，那么遇到这种情况应该如何解决呢？下面就和
- 我们为各位不熟悉Word的读者准备了这个入门级动画教程，希望带领您了解Word、用好Word。 我们开始今天的课程。设置页码格式一、修改页码
- QQ群如何开启付费入群？小伙伴们添加QQ群的方式有多种，那你听说过付费入群吗？下面，小编就为大家介绍下QQ群开启付费入群方法。打开手机QQ，
- 我们在使用电脑的时候经常会遇到各种各样的问题，但是尽管如此，我们还是要努力去想办法解决掉这些问题。那今天小编就给大家讲讲电脑光驱不显示该怎么
- win7系统是一款大家都说好的优秀系统！最近一直有小伙伴们在问如果查看电脑配置信息？今天小编就为大家带来了图文详解win7如何查看电脑配置教
- Microsoft Office 2013，是应用于Microsoft Windows视窗系统的一套办公室套装软件，是继Microsoft
- 大家在使用IE浏览器浏览网页时，偶尔会出现网页显示不正常或者页面显示不全的问题，不知道是网络的问题还是什么。那针对这个问题，小编就给大家整理
- 在使用迅雷影音的过程中不免会遇到需要查看软件版本的情况，但许多刚刚开始使用该软件的朋友其实都不清楚该怎么进行查看！针对这一情况，小编今天为大
- win10系统的邮箱使用非常的方便，可以把常用的邮箱添加到系统邮箱里，并通过还有些收发邮件，但是系统邮箱却收不到163邮件是怎么回事呢？下面
- macOS 最新的版本是 10.15 ， 代号是 Catalina 。对于新用户来说只要记得这个版本号就好了， 10.15 ，10.15.x
