VBA ブックにパスワードをかけて保存

 

 

ブックにパスワードをかけて保存

 

Sub test()
    ’ ブックにパスワードをかけて保存する
    
    Dim xlpath As String
    xlpath = "D:\VBAtestFiles"
    
    ActiveWorkbook.SaveAs _
        Filename:=xlpath & "\パスワード設定_テスト用.xlsm", _
        Password:="yokbali"


End Sub

 

 

 

ブックに書き込みパスワードをかけて保存

 

Sub test2()


    ’ブックに書き込みパスワードをかけて保存する
    
    Dim xlpath As String
    xlpath = "D:\VBAtestFiles"

    
    ActiveWorkbook.SaveAs _
        Filename:=xlpath & "\書き込みパスワード設定_テスト用.xlsm", _
        WriteResPassword:="yokbali"

End Sub

 

構文
SaveAs (FileName, FileFormat, Password , WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事