How to export objects to secured database

Unfortunately, if you try to use DoCmd.CopyObject or DoCmd.TransferDatabase with secured database (secured with database password) – it will fail. The trick – is to open this secured database before export. Here a sample code:

Sub ExportToSecuredDB()
    Dim strDestinationMDB As String
    Dim dbsData As DAO.Database

    strDestinationMDB = "C:\Passworded.mdb"

    Set dbsData = DBEngine.OpenDatabase(strDestinationMDB, _
        False, False, ";pwd=MyPassword")

    'Export form
    DoCmd.CopyObject strDestinationMDB, "Form1", acForm, "Form1"

    'Export table
    DoCmd.TransferDatabase acExport, _
        "Microsoft Access", _
        strDestinationMDB, _
        acTable, _
        "Table1", _
        "Table1"
     'Close secured database
    dbsData.Close
    Set dbsData = Nothing

End Sub

And here about the same, but for Excel:
How to import password-protected Excel spreadsheet