ACCESSからExcelブック作成について

質問

Access内のデータをVBAを使ってEXCEL出力したいのですが、その際にパスワード付で出力することは可能でしょうか。可能ならその方法を教えてください。

回答No.1

nicotinism · ベストアンサー

こんな風かと思います。
一旦出力してからパスワードを設定しています。

Sub test()

Dim strPath As String
Dim xlBk As Object
Dim xlAp As Object

strPath = "c:\PassWord_Is_abC.xls"

If DCount("*", "テーブル名・クエリ名") > 0 Then
　　DoCmd.TransferSpreadsheet acExport, _
　　　　acSpreadsheetTypeExcel97, _
　　　　"テーブル名・クエリ名", strPath, True
End If

Set xlBk = GetObject(strPath)
Set xlAp = xlBk.Application

xlBk.Windows(1).Visible = True
xlAp.DisplayAlerts = False
xlBk.SaveAs FileName:=strPath, Password:="abC"
xlAp.DisplayAlerts = True

xlBk.Parent.Quit
Set xlBk = Nothing
Set xlAp = Nothing

End Sub