vba中如何调用现在的日期 如何用vba设置excel工作表的试用时间？
如何用vba设置excel工作表的试用时间？
大家好，我是Excel大表姐666，了解我缓慢彼此分享大量excel技巧。一起成长，相互华丽转身。下面我用一部分VBA代码实时演示如何可以设置excel工作表工作表的使用时间。
简单，刚建一个Excel工作表，顺次排列直接点击文件—EXCEL选项—先打开设置里宏对话框，随即左面再点信任中心，信任中心设置，进入下一个对话框，点击宏设置里，随后禁用所有宏，接着确定。
提升一个工作表，并输入输入公式NOW（）。并系统设置单元格格式。该工作表仅为了存储文件再打开工作簿时的时间。
然后在时间工作窗口中，先执行追加操作，将工作表隐藏地起来。
然后再按ALT F11，菜单VBA程序设计窗口。左键单击上侧的Sheet1(Sheet1),同样右键负责执行栏里点代码。贴入以下代码。我将文件的使用中止时间设到了2019年12月31日，使用者可以自己调整此处。Submain()
DimMydatesuchDate
DimNowsuchDateMydate#12/31/2019#设置文件到期时间为2019年12月31日
Now Worksheets(2).Cells(1,1).Value
IfMydategtNowThen
MsgBox本文件将在ampMydateamp过期后！为不影响不大使用，请您按时来充年费。
Else
MsgBox本文件已已到期，尚未关掉！
Application.Quit
savechanges:False
EndIf
EndSub
鼠标右键点击下面的ThisWorkbook并右键另外不能执行查找代码。贴入以上代码。PrivateSubworkbook_open()
Call
EndSub
加密文件工程文件，点击工具—VBA工程属性—保护，对VBA接受加密，那样的话别人打开VBA，要先输入密码
将工作表存放为禁用宏的工作表
不使用期内，不使用过期后如下图提示。
大家好，我是Excel大表姐666，关注我缓慢彼此分享许多excel技巧。一起成长，相互华丽转身。
这个试用时间建议加密保存，位置自己根据情况设置，有时候先打开或关闭工作簿前接受存取，放在工作表激活码激活和已取消激活事件代码里参与判断推理
vba日期函数每周一日期怎么显示？
A2格式设置中为日期格式的（星期三）(格式--单元格--数字--日期--星期三)，然后把写公式：A1也也可以用weekday（）函数计算星期几。但特别注意周日如果没有周一为1。
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
