VBA为表格设置“打开文件密码”

通过vba函数，为指定的Excel文件添加“打开文件密码”。

代码：

Sub 设置密码(srcPath As String, password As String)
'
' srcPath:源Excel路径
' password:密码
'
'
    Set srcWb = Workbooks.Open(srcPath)
    srcWb.password = password
    srcWb.WritePassword = ""
    srcWb.Save
    srcWb.Close
End Sub

函数与下图的设置等价：