如何让EXCEL记录每次的打开时间?

1、电脑中所有文件都记录了最后修改时间，看这个可以点击文件属性看到
2、要记录Excel每次打开的时间，可以用bva宏将每次打开的时间依次记录在表格中。
Private Sub Workbook_Open()
MsgBox Now()
End Sub

在要填写时间的单元格单击，快捷键“CTRL+ ；”，对，就是分号那个键，出来是系统日期，“CTRL+SHIFT+ ；”是系统时间，你可以把这个操作录成一个宏，保存在“个人宏工作簿”，再定义一个快捷方式或快捷键，以后每次打开EXCEL都可以用了

假设我们以sheet3来记录每次的开机时间，在A列往后排着记录，那么：
在 ThisWorkbook的open事件中，加入如下代码：

Private Sub Workbook_Open()
Set sht = Sheets("sheet3")
sht.Cells(sht.[A65536].End(xlUp).Row + 1, 1) = Now()
'如果要自动保存就用下面这句，如果手动保存就注释了这句
ThisWorkbook.Save
End Sub

用VBA来实现
设置一个表名为：记录单，在D1单元格可以修改保存的记录条数
每次打开就记录下时间到A列的位置上
超过保存的记录条数时自动删除前面的数据，始终保持设定的记录条数
在 ThisWorkbook下粘贴如下代码即可实现
Private Sub Workbook_Open()
Dim iR As Long
Dim JLs As Long
With Sheets("记录单")
JLs = .Range("D1").Value 'D1单元格指定保留的记录条数
iR = .Range("A65536").End(xlUp).Row
If iR > JLs Then
.Rows("2:2").Delete '记录超过指定条数时，删除第一条记录，后面的数据上移，
End If
.Range("A65536").End(xlUp).Offset(1) = Now() 'A列最的一行下一行记录打开时间
End With
ThisWorkbook.Save '保存工作簿
End Sub
此外可以设置该工作表为隐藏不可见的，记录完自动密码保护，等等功能可以实现，在此不一一枚举

这得写段代码了：
Private Sub Workbook_Open()
Range("a65536").End(xlUp).Offset(1, 0) = Now
End Sub

在单元格中设置工作表名

在单元格中设置工作表名问题是：在第一个工作表的A列中输入数据后，各工作表名依次是A1、A2……的内容。

这个问题要用一段代码来解决：
Sub b()
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(1).Range("a" & i)
Next
End Sub