1、在Excel文件中，同时按下组合按钮【alt+F11】，打开vba编辑器。
2、在编辑器窗口中，插入一个模块，然后在模块内输入如下代码。
Option Explicit
Sub test()
'打开带密码的excel文件
Dim xlapp1 As Excel.Application
Dim xlbook1 As Excel.Workbook
Dim xlsheet1 As Excel.Worksheet
Dim path As String
Dim row_final As String
path = "E:\工作\报告展示\测试文件_密码123.xlsm"
If fileExist(path) Then
Set xlapp1 = CreateObject("Excel.Application")
Set xlbook1 = xlapp1.Workbooks.Open(path, 0, False, 5, "123", "123")
Set xlsheet1 = xlbook1.Worksheets(1)
row_final = xlsheet1.Range("A65535").End(xlUp).Row
xlsheet1.Cells(row_final + 1, 1) = "2021/11/7" '日期
xlbook1.Close savechanges:=True
xlapp1.Quit '关闭测试数据工作簿
Set xlapp1 = Nothing
MsgBox "Done!"
Else
MsgBox "文件路径不存在：" & path & vbCrLf & vbCrLf & "请确认！"
End If
End Sub
Function fileExist(path As String) As Boolean
'判断指定路径的文件是否存在
Dim sName As String
sName = Dir(path)
If Len(sName) Then
fileExist = True
Else
fileExist = False
End If
End Function
3、运行上述的宏命令，就可以打开指定的带密码的Excel文件，并将日期添加到指定单元格内。
