VBA　Cats編

【5】パスワード付のBOOKを開く、閉じる

人手で変更されないようにBOOKには読み取り・書き込みパスワードを設定しておきたい。 そのBOOKを開くのは特に注意は要らないが、閉じる場合にはEXCEL2007問題が面倒です。 EXCELのバージョンチェックして2007形式で保存しないようにする必要があります。

Dim wkb As Excel.Workbook
Set wkb = Workbooks.Open(Filename:="C:\BOOKファイル名.xls", Password:="パスワード")

'別ファイル名でバスワードを解除して保存する場合
If Val(Application.Version) < 12 Then
　　wkb.SaveAs Filename:="C:\BOOKファイル名A.xls", Password:="" 'パスワード解除
Else
　　' excel 2007で 97-2000形式で保存する
　　wkb.SaveAs Filename:="C:\BOOKファイル名A.xls", Password:="", FileFormat:=56
End If
wkb.Close