查看: 17696|回复: 71|
在线时间0 小时经验24 威望0 性别男最后登录注册时间阅读权限20UID21329积分24帖子精华0分享0
EH初级, 积分 24, 距离下一级还需 326 积分
积分排行3000+帖子精华0微积分0
如何用VBA设置EXCEL使用的有效期？
请各位大侠献策！！！
猜你喜欢看
在线时间146 小时经验6408 威望18 性别男最后登录注册时间阅读权限50UID21518积分6408帖子精华1分享0
积分排行136帖子精华1微积分0
请版主帮忙吧,
我也想知道
在线时间0 小时经验24 威望0 性别男最后登录注册时间阅读权限20UID21329积分24帖子精华0分享0
EH初级, 积分 24, 距离下一级还需 326 积分
积分排行3000+帖子精华0微积分0
Help me ,please!
在线时间0 小时经验218 威望3 性别男最后登录注册时间阅读权限20UID21976积分318帖子精华0分享0
EH初级, 积分 318, 距离下一级还需 32 积分
积分排行3796帖子精华0微积分0
做了一個範例
Term 變數可指定使用期限的天數
'範例用 0 天
第次一開啟本檔時,顯示使用期限
MsgBox "本檔案只能使用到" & TermDate & "日" & Chr(13) & "超過期限將自動銷毀"
請關閉檔案
第二次開啟到期日是今天,所以檔案會自我刪除
Sub CheckFileDate()
Dim Counter As Long, LastOpen As String, Msg As String
Chk = GetSetting("Chinese dragon", "Budget", "Date", "")
If Chk = "" Then
'1 day(指定使用的天數)
'範例用 0 天
TermDate = DateSerial(Year(Now), Month(Now), Day(Now)) + Term
MsgBox "本檔案只能使用到" & TermDate & "日" & Chr(13) & "超過期限將自動銷毀"
SaveSetting "Chinese dragon", "Budget", "Date", TermDate
If CDate(Chk) <= Now Then
DeleteSetting "Chinese dragon", "Budget", "Date"
Sub KillMe()
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
(8.01 KB, 下载次数: 679)
11:00 上传
下载次数: 679
如何用VBA设置EXCEL使用的有效期？[求助]
狂龍亂舞雲霧間 除卻金烏不見天
滿腹珠璣無人問 星羅棋佈在胸前
在线时间10 小时经验418 威望0 性别男最后登录注册时间阅读权限30UID7409积分418帖子精华0分享0
EH中级, 积分 418, 距离下一级还需 682 积分
积分排行2724帖子精华0微积分0
下载了您的范例,用过一次就不灵了,
将上述代码复制使用也不行.
请指教是何原因?
做不做是态度问题
做不做得好是能力问题
在线时间0 小时经验218 威望3 性别男最后登录注册时间阅读权限20UID21976积分318帖子精华0分享0
EH初级, 积分 318, 距离下一级还需 32 积分
积分排行3796帖子精华0微积分0
這個程是我故意將使用期限設成 0 天
檔案的密碼是:
請將 Term = 0
改成 您要的使用期限後存檔
這樣下次開啟時就不會馬上刪除
要等使用期限到了,檔案會自動刪除
KillMe 程序就時執行自我刪除的程式
狂龍亂舞雲霧間 除卻金烏不見天
滿腹珠璣無人問 星羅棋佈在胸前
在线时间10 小时经验418 威望0 性别男最后登录注册时间阅读权限30UID7409积分418帖子精华0分享0
EH中级, 积分 418, 距离下一级还需 682 积分
积分排行2724帖子精华0微积分0
以下是引用中國龍在 21:48:00的发言：
這個程是我故意將使用期限設成 0 天
檔案的密碼是:
請將 Term = 0
改成 您要的使用期限後存檔
這樣下次開啟時就不會馬上刪除
要等使用期限到了,檔案會自動刪除
KillMe 程序就時執行自我刪除的程式
您以上所说的我已经早就试过了.
我在不启用宏时进入编辑器修改了TERM=2
存档后重新打开,出现提示信息,
但我再次关闭后打开该文件,提示信息却不会出现了,
另外我又修改TERM=1,存档后重新打开,提示信息也没有出现.
请教以上是什么原因?
[此贴子已经被作者于 10:02:43编辑过]
做不做是态度问题
做不做得好是能力问题
在线时间10 小时经验418 威望0 性别男最后登录注册时间阅读权限30UID7409积分418帖子精华0分享0
EH中级, 积分 418, 距离下一级还需 682 积分
积分排行2724帖子精华0微积分0
以下是引用chengwei-8-17 10:02:00的发言：
[quote]以下是引用中國龍在 21:48:00的发言：
這個程是我故意將使用期限設成 0 天
檔案的密碼是:
請將 Term = 0
改成 您要的使用期限後存檔
這樣下次開啟時就不會馬上刪除
要等使用期限到了,檔案會自動刪除
KillMe 程序就時執行自我刪除的程式
您以上所说的我已经早就试过了.
我在不启用宏时进入编辑器修改了TERM=2
存档后重新打开,出现提示信息,
但我再次关闭后打开该文件,提示信息却不会出现了,
另外我又修改TERM=1,存档后重新打开,提示信息也没有出现.
请教以上是什么原因?
[此贴子已经被作者于 10:02:43编辑过]
做不做是态度问题
做不做得好是能力问题
在线时间0 小时经验24 威望0 性别男最后登录注册时间阅读权限20UID21329积分24帖子精华0分享0
EH初级, 积分 24, 距离下一级还需 326 积分
积分排行3000+帖子精华0微积分0
Thank you very much!!!
Let me try!
在线时间146 小时经验6408 威望18 性别男最后登录注册时间阅读权限50UID21518积分6408帖子精华1分享0
积分排行136帖子精华1微积分0
let me try
积分≥4700即可申请
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&&您现在的位置：&&>>&&>>&&>>&素材正文
如何有效率的利用时间？
点击上面的蓝色字 即可免费订阅！
微信名 （微信号：请填写您的微信号）
人的一生两个最大的财富是：你的才华和你的时间。才华越来越多，但是时间越来越少，我们的一生可以说是用时间来换取才华。如果一天天过去了，我们的时间少了，而才华没有增加，那就是虚度了时光。
如何有效率地利用时间呢？我有下面几个建议：
　　NO1.做你真正感兴趣、与自己人生目标一致的事情。我发现我的“生产力”和我的“兴趣”有着直接的关系，而且这种关系还不是单纯的线性关系。如果面对我没有兴趣的事情，我可能会花掉40％的时间，但只能产生20％的效果；如果遇到我感兴趣的事情，我可能会花100％的时间而得到200％的效果。要在工作上奋发图强，身体健康固然重要，但是真正能改变你的状态的关键是心理而不是生理上的问题。真正地投入到你的工作中，你需要的是一种态度、一种渴望、一种意志。
　　NO2.知道你的时间是如何花掉的。挑一个星期，每天记录下每30分钟做的事情，然后做一个分类（例如：读书、准备GRE、和朋友聊天、社团活动等）和统计，看看自己什么方面花了太多的时间。凡事想要进步，必须先理解现状。每天结束后，把一整天做的事记下来，每15分钟为一个单位（例如：1：00―1：15等车，1：15―1：45搭车，1：45―2：45与朋友喝茶……）。在一周结束后，分析一下，这周你的时间如何可以更有效率地安排？有没有活动占太大的比例？有没有方法可以增加效率？
　　NO3.使用时间碎片和“死时间”。如果你做了上面的时间统计，你一定发现每天有很多时间流失掉了，例如等车、排队、走路、搭车等，可以用来背单字、打电话、温习功课等。现在随时随地都能上网，所以没有任何借口再发呆一次。我前一阵和同事一起出差，他们都很惊讶为什么我和他们整天在一起，但是我的电子邮件都可以及时回答？后来，他们发现，当他们在飞机上和汽车上聊天、读杂志和发呆的时候，我就把电子邮件全回了。重点是，无论自己忙还是不忙，你要把那些可以利用时间碎片做的事先准备好，到你有空闲的时候有计划地拿出来做。
　　NO4.要事为先 - 每天一大早挑出最重要的三件事，当天一定要能够做完。在工作和生活中每天都有干不完的事，唯一能够做的就是分清轻重缓急。要理解急事不等于重要的事情。每天除了办又急又重要的事情外，一定要注意不要成为急事的奴隶。有些急但是不重要的事情，你要学会放掉，要能对人说 no！ 而且每天这三件事里最好有一件重要但是不急的，这样才能确保你没有成为急事的奴隶。
　　NO5.要有纪律。有的年轻人会说自己“没有时间学习”，其实，换个说法就是“学习没有被排上优先级次曾经有一个教学生做时间管理的老师，他上课时带来两个大玻璃缸和一堆大小不一的石头。他做了一个实验，在其中一个玻璃缸中先把小石、砂倒进去，最后大石头就放不下了。而另一个玻璃缸中先放大石头，其它小石和砂却可以慢慢渗入。他以此为比喻说：“时间管理就是要找到自己的优先级，若颠倒顺一堆琐事占满了时间，重要的事情就没有空位了。”
　　NO6.运用80％―20％原则。人如果利用最高效的时间，只要20％的投入就能产生80％的效率。相对来说，如果使用最低效的时间，80％的时间投入只能产生20%效率。一天头脑最清楚的时候，应该放在最需要专心的工作上。与朋友、家人在一起的时间，相对来说，不需要头脑那么清楚。所以，我们要把握一天中20％的最高效时间（有些人是早晨，也有些人是下午和晚上；除了时间之外，还要看你的心态，血糖的高低，休息是否足够等综合考量），专门用于最困难的科目和最需要思考的学习上。许多同学喜欢熬夜，但是晚睡会伤身，所以还是尽量早睡早起。
　　NO7.注重有质量的时间（quality time）――时间不是每一分钟都是一样的，有时需要全神贯注，有时坐在旁边上网就可以了。要记得家人平时为你牺牲很多，度假、周末是你补偿的机会。
上一篇：上一篇素材：
下一篇：下一篇素材： 没有了
&&&&&&&&&&&&&&&&&&&&&&&&&&