1、在Excel文件中，同时按下组合按钮【alt+F11】，打开vba编辑器。
2、在编辑器窗口中，插入一个模块，然后在模块内输入如下代码。Option Explic坡纠课柩itSub test() 刻八圄俏9;打开带密码的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 SubFunction 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文件，并将日期添加到指定单元格内。
