如何编写宏代码使excel第一次打开后开始计时

Question

如何编写宏代码使excel第一次打开后开始计时，计时超过10天后，再次打开此Excel时执行某段代码，该代码为FOR 时如何修改？见附件
Private Sub Workbook_Open()
For j = 1 To Sheets.Count
If Sheets(j).Name = "abcdaacdefg" Then
If Sheets(j).[a1] + 0 <= Date Then
For i = 1 To Sheets.Count
Worksheets(i).Visible = True
Worksheets(i).Unprotect "12345678"
Worksheets(i).Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(1, 1).Select
Worksheets(i).Protect "12345678"
If Worksheets(i).Name = "中国人" Then
Worksheets(i).Visible = False
End If
Next i
Worksheets(1).Select
Cells(1, 1).Select

ActiveWorkbook.Save
Exit Sub
End If
Next j
Set sh = Sheets.Add(after:=Sheets(Sheets.Count))
sh.Name = "abcdaacdefg"
sh.Visible = False
sh.[a1] = Date
End Sub
各位亲能否帮我直接修改

Answer 1

在介绍学习VBA之前，应该花几分钟录制一个宏。
新术语：“宏”，指一系列EXCEL能够执行的VBA语句。
以下将要录制的宏非常简单，只是改变单元格颜色。请完成如下步骤： 1)打开新工作簿，确认其他工作簿已经关闭。 2)选择A1单元格。调出“常用”工具栏。 3)选择“工具”—“宏”—“录制新宏”。
4)输入“改变颜色”作为宏名替换默认宏名，单击确定,注意，此时状态栏中显示“录制”，特别是“停止录制”工具栏也显示出来。替换默认宏名主要是便于分别这些宏。 ★ 宏名最多可为255个字符，并且必须以字母开始。其中可用的字符包括：字母、数字和下划线。宏名中不允许出现空格。通常用下划线代表空格。
5)选择“格式”的“单元格”，选择“图案”选项中的红色,单击“确定”。 6)单击“停止录制”工具栏按钮，结束宏录制过程。 ※ 如果“停止录制”工具栏开始并未出现，请选择“工具”—“宏”—“停止录制”。
录制完一个宏后就可以执行它了。
1.4 执行宏
当执行一个宏时，EXCEL按照宏语句执行的情况就像VBA代码在对EXCEL进行“遥控”。但VBA的“遥控”不仅能使操作变得简便，还能使你获得一些使用EXCEL标准命令所无法实现的功能。而且，一旦熟悉了EXCEL的“遥控”，你都会奇怪自己在没有这些“遥控”的情况下，到底是怎么熬过来的。要执行刚才录制的宏，可以按以下步骤进行： 1）选择任何一个单元格，比如A3。
2）选择“工具”—“宏”—“宏”，显示“宏”对话框。
3）选择“改变颜色”，选择“执行”，则A3单元格的颜色变为红色。试着选择其它单元格和几个单元格组成的区域，然后再执行宏，以便加深印象。
1.5 查看录制的代码
到底是什么在控制EXCEL的运行呢?你可能有些疑惑.好,让我们看看VBA的语句吧. 1）选择“工具”—“宏”—“宏”，显示“宏”对话框。 2）单击列表中的“改变颜色”,选择“编辑”按钮。 此时，会打开VBA的编辑器窗口（VBE）。关于该编辑器，以后再详细说明，先将注意力集中到显示的代码上。代码如下：（日期和姓名会有不同）
Sub 改变颜色() '
' 改变颜色 Macro
' xw 记录的宏 2000-6-10 ' '
With Selection.Interior
.ColorIndex = 3 .Pattern = xlSolid
.PatternColorIndex = xlAutomatic End With End Sub
将来会十分熟悉这种代码，虽然现在它们看上去像一种奇怪的外语。学习VBA或编程语言在某种程度上比较像在学习一种外语。
Sub 改变颜色():这是宏的名称。
中间的以“ '”开头的五行称为“注释”，它在录制宏时自动产生。
以With 开头到End With 结束的结构是With结构语句，这段语句是宏的主要部分。注意单词“selection”，它代表“突出显示的区域”（即：选定区域）。With Selection.Interior ：它读作“选择区域的的内部”.这整段语句设置该区域内部的一些“属性”。
其中：
.ColorIndex = 3: 将该内部设为红色。注意：有一小圆点，它的作用在于简化语句，小圆点代替出现在With后的词,它是With结构的一部分。另外：红色被数字化为3.(红色警戒是否可称作：3号警戒，嗯？)有兴趣的话，你将3改为其他数字试试看。
.Pattern = xlSolid：设置该区域的内部图案。由于是录制宏，所以，虽然你并未设置这一项，宏仍然将其记录下来(因为在“图案”选项中有此一项，只是你为曾设置而已）。xlSolid表示纯色。
.PatternColorIndex = xlAutomatic：表示内部图案底纹颜色为自动配色。
End With:结束With 语句。
End Sub:整个宏的结束语
1.6 编辑录制的代码
在上一节，我们录制了一个宏并查看了代码，代码中有两句实际上并不起作用。哪两句？现在，在宏中作一个修改，删除多余行，直到和下面代码相同：
Sub 改变颜色() '
' 改变颜色 Macro
' xw 记录的宏 2000-6-10 ' '
With Selection.Interior .ColorIndex = 3 End With End Sub
完成后，在工作表中试验一下。你会发现结果和修改前的状况一样。在With 语句前加入一行:
Range("A5").Select
试着运行该宏,则无论开始选择哪个单元格,宏运行结果都是使A5单元格变红.
现在可以看到，编辑录制的宏同样非常简单。需要编辑宏是因为以下三个方面的原因。一：在录制中出错而不得不修改。二：录制的宏中有多余的语句需要删除，提高宏的运行速度。三：希望增加宏的功能。比如：加入判断或循环等无法录制的语句。
1.7 录制宏的局限性
希望自动化的许多EXCEL过程大多都可以用录制宏来完成.但是宏记录器存在以下局限性.通过宏记录器无法完成的工作有: 1)录制的宏无判断或循环能力.
2)人机交互能力差,即用户无法进行输入,计算机无法给出提示. 3)无法显示EXCEL对话框. 4)无法显示自定义窗体.
1.8 小结
本课中,你已经掌握了VBA的一些基础知识,你会录制宏、编辑宏而且了解了录制宏的局限性.你很努力.并且已经为将来学习VBA甚至VB等编程语言打下了基础.关键是你已经了解了一个谜底,就是说,你了解了什么是编程.下面是些小练习,做完后才可以去玩哟.
思考:
1)VBA只能用于EXCEL吗? 2)VBA是基于哪种语言?
3)说说EXCEL和VBA的关系. 4)为什么要用宏?
第二课 处理录制的宏 2.1 为宏指定快捷键
你也许希望为经常使用的宏指定快捷键。快捷键是指键的组合，当其按下时执行一条命令。例如：CTRL+C
在许多程序中代表“复制”命令。当给宏指定了快捷键后，就可以用快捷键来执行宏，而不必通过“工具”菜单。
注意：当包含宏的工作簿打开时间，为宏指定快捷键会覆盖EXCEL默认的快捷键。例如：把CTRL+C指定给某个宏，那么CTRL+C就不再执行复制命令。用以下方法可以打印出
EXCEL的快捷键清单（用A4纸打印共有24页之多）： 1）打开EXCEL帮助文件并选择“目录”选项。 2）从“使用快捷键”文件夹中选择“”快捷键“标题。 3）右击该标题，从快捷菜单中选择“打印”。
4）选择“打印所选标题和所有子主题”，单击“确定”。
可以在创建宏时指定快捷键，也可以在创建后再指定。要在创建（录制）宏时指定快捷键，只须在录制宏时在输入宏名后，在“快捷键”文本框中输入相应的键。录制宏后指定快捷键也很简单，只需选择“工具”“宏”，显示“宏”对话框，选择要指定快捷键的宏，再单击“选项”按钮，通过“选项”对话框进行设置。

Answer 2

Sub t()
'制作完成后，运行本宏，添加自定义名称：使用状态
Application.Names.Add "使用状态", "未", False
End Sub
'------------------------------------------------
Sub tt()
Dim wb As Workbook
'在thisworkbook_OPEN事件中，call本宏
If Evaluate(Application.Names("使用状态").RefersTo) = "未" Then   '若从未使用，则
    Application.Names.Add "mDate", Date, False  '添加自定义名称，且将当日日期存入名称
    Application.Names("使用状态").RefersTo = "=""已"""
Else
    '若已开始使用，则检查当前日期
    oldate = Evaluate(Application.Names("mdate").RefersTo)
    If Date - oldate > 10 Then '计算时间间隔，若大于10天
        With ThisWorkbook
            f = ThisWorkbook.FullName
            .Save
            .ChangeFileAccess xlReadOnly '只读
            .SaveAs ThisWorkbook.Path & "\" & Format(Now, "yyyymmddhhmmss") & ".xlsm", xlOpenXMLWorkbookMacroEnabled, _
            "mymima", "mymima2"   '将文件另存，且加密。设置密码mymima和mymima2
            Kill f  '删除源文件
        End With
    End If
End If
End Sub
'-------------------------------------------
Private Sub Workbook_Open()
'thisworkbook中的代码
tt
End Sub

追问

能否帮我直接修改呢。

追答

看你的宏代码，无外乎是通过比对工作表“abcdaacdefg”A1单元格中的数据与当前系统的日期。若A1单元格中的日期小于等于当前日期（你可能在A1中设定了一个使用的截止日期），即到了某日，则所有工作表解保护，然后在每个工作表中进行复制，选择性粘贴：数值的操作（也许，你的文件中，有大量的公式）。然后重新每个表加保护，然后将某个名为“中国人”的表隐藏。

而每次你的工作簿打开，都新增一个表，且命名为“abcdaacdefg”——这个操作会导致错误，对吧？接下来的代码，也不必说了。

总结下来：你无外乎想实现：当系统时间到了某日后，将文件中的公式，全部毁去，仅留数值。呵呵，版权保护？

那么，用我写的代码。

功能是：1、第一次启动，会记录系统时间。

2、然后每次打开该文件，都比对日期，若使用超过10天，则文件加密成.xlsm格式——.xlsm格式和.xlsx格式的文件解密，至今没有凶器

3、原始文件自删除

最后要说的是，其实，这些都是瞎折腾。用户不启用宏，你啥都玩儿不了。你还得设计精致些。

另外，VBE工程密码，也是可解的。

所以，我提供的方案，也有漏洞。

代码中少了一句保存文件的代码，现在添上

Private Sub Workbook_Open()
'thisworkbook中的代码
tt
thisworkbook.save '添了这句，以保证第一次记录的日期被保存下来
End Sub

 另外，在  Kill f  '删除源文件 之后，添一句

application.quit