6,210
社区成员
发帖
与我相关
我的任务
分享巨额悬赏！征解决方案
我想要这样一个Excel宏：能设定一个时间参数（按使用次数、使用天数、某个具体日期等条件），当条件满足时，Excel自动将表格的某一项删掉（例如：删掉某一列单元格，删掉指定位置的数据，删掉整个工作表或整个工作薄数据等等，类似于定时炸蛋那种）
...全文
请发表友善的回复…
发表回复
shli226 2004-03-29
- 打赏
- 举报
呵呵，这么快就有回应了，zipall(一意孤行) 朋友你在线啊。
您这么热心的帮助，看来我应该分了。请您进另一个贴子吧
您这么热心的帮助，看来我应该分了。请您进另一个贴子吧
zipall 2004-03-29
- 打赏
- 举报
http://club.excelhome.net/dispbbs.asp?BoardID=2&ID=24197
http://club.excelhome.net/dispbbs.asp?BoardID=23&ID=26450
http://club.excelhome.net/dispbbs.asp?BoardID=23&ID=26450
shli226 2004-03-29
- 打赏
- 举报
zipall(一意孤行) 朋友您好！
我在代码中加上了 Application.AutomationSecurity = 1
但Excel并没有在打开时改变宏安全级别啊，而且我又在打开后直接运行了几次这个宏也没有改变。是怎么回事呢
Private Sub Workbook_Open()
Application.AutomationSecurity = 1
Dim c As Integer
c = Sheets("Sheets1").Cells(1, 1)
c = c - 1
If c = 0 Then
Sheets("Sheet1").Select
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
End If
Sheets("Sheets1").Cells(1, 1) = c
End Sub
我在代码中加上了 Application.AutomationSecurity = 1
但Excel并没有在打开时改变宏安全级别啊，而且我又在打开后直接运行了几次这个宏也没有改变。是怎么回事呢
Private Sub Workbook_Open()
Application.AutomationSecurity = 1
Dim c As Integer
c = Sheets("Sheets1").Cells(1, 1)
c = c - 1
If c = 0 Then
Sheets("Sheet1").Select
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
End If
Sheets("Sheets1").Cells(1, 1) = c
End Sub
hgnan 2004-03-28
- 打赏
- 举报
在工作簿的代码中添加一个Workbook_WindowActivate 或其它经常触发的事件。
在事件中判断是否满足发作条件。如果满足就干你想干的事，否则继续正常工作。
在事件中判断是否满足发作条件。如果满足就干你想干的事，否则继续正常工作。
zipall 2004-03-28
- 打赏
- 举报
Q1、Workbook_Open事件，只有放在Workbook里，才能起到打开工作簿时运行代码。放在其他地方不能起到这个作用。
Q2、可以在打开文件后更改但是不能在打开前更改。
在Workbook_Open事件中添加
Application.AutomationSecurity = 1
Q3、参考这里关于时间的说明
http://expert.csdn.net/Expert/topic/2893/2893836.xml?temp=.5800745
Q2、可以在打开文件后更改但是不能在打开前更改。
在Workbook_Open事件中添加
Application.AutomationSecurity = 1
Q3、参考这里关于时间的说明
http://expert.csdn.net/Expert/topic/2893/2893836.xml?temp=.5800745
yigepure 2004-03-28
- 打赏
- 举报
真是厉害。学习。
像疯一样的男子 2004-03-28
- 打赏
- 举报
有高手回答了啦就不多说了，路过学习一下。
shli226 2004-03-28
- 打赏
- 举报
非常感谢zipall(一意孤行) 朋友。我按您的指点试了下，果然灵验。我还有几个小问题想向您请教，完毕就结帐。
1。关于工作表的宏位置：打开一个工作簿（假设BOOK1，有sheets1,sheets2,sheets3三个工作表），再打开VB窗口，发现宏的位置可以摆在1）sheets1（sheets2,sheets3）中；
2）ThisWorkBook 中；
3）“模块”中
我先是将您给你代码放在“模块”中，结果要想它起作用就得人工去运行；后来放在
sheets1（sheets2,sheets3）中，结果也是这样。最后放在ThisWorkBook 中就成了：每打开一次工作表，设定单元格中的数字就减1。
请问：放这三个地方的宏有什么说法？
2，能不能在打开这个工作簿时自动将Excel的宏安全性设为最低以使预置的宏起作用？
3。另外，关于设置VB密码我都会了。如果您有空的话就请您告诉我具体如何设时间参数，有了次数设定对我来说其实已经够用了，我只是想了解下。
Thank you very much！
祝你早日高升！
1。关于工作表的宏位置：打开一个工作簿（假设BOOK1，有sheets1,sheets2,sheets3三个工作表），再打开VB窗口，发现宏的位置可以摆在1）sheets1（sheets2,sheets3）中；
2）ThisWorkBook 中；
3）“模块”中
我先是将您给你代码放在“模块”中，结果要想它起作用就得人工去运行；后来放在
sheets1（sheets2,sheets3）中，结果也是这样。最后放在ThisWorkBook 中就成了：每打开一次工作表，设定单元格中的数字就减1。
请问：放这三个地方的宏有什么说法？
2，能不能在打开这个工作簿时自动将Excel的宏安全性设为最低以使预置的宏起作用？
3。另外，关于设置VB密码我都会了。如果您有空的话就请您告诉我具体如何设时间参数，有了次数设定对我来说其实已经够用了，我只是想了解下。
Thank you very much！
祝你早日高升！
zipall 2004-03-28
- 打赏
- 举报
通常这样的破坏 会因为在打开时宏被禁止而失败。
指定使用次数，可以用一个隐藏的表，将总次数存到其中一个单元格内
每打开一次，使其中的数值-1，当为0时实施需要的功能
Private Sub Workbook_Open()
Dim c As Integer
c = sheet("隐藏表名称").cells（1，1)
c = c - 1
If c = 0 Then
'需要执行的代码或模块
End If
sheet("隐藏表名称").cells（1，1) = c
End Sub
=====================================
指定天数和具体日期同理
每次打开时 比较当前时间和隐藏表中设置的时间。
满足条件实施需要的功能。
可以用Now()获取当前时间。
=====================================
你的代码必须不能被其他人看到
可以在VBE的工具菜单下为工程指定密码或数字签名。
指定使用次数，可以用一个隐藏的表，将总次数存到其中一个单元格内
每打开一次，使其中的数值-1，当为0时实施需要的功能
Private Sub Workbook_Open()
Dim c As Integer
c = sheet("隐藏表名称").cells（1，1)
c = c - 1
If c = 0 Then
'需要执行的代码或模块
End If
sheet("隐藏表名称").cells（1，1) = c
End Sub
=====================================
指定天数和具体日期同理
每次打开时 比较当前时间和隐藏表中设置的时间。
满足条件实施需要的功能。
可以用Now()获取当前时间。
=====================================
你的代码必须不能被其他人看到
可以在VBE的工具菜单下为工程指定密码或数字签名。
