スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
Accessのデータベースそのもののセキュリティを向上させるためには、DB自体にパスワードを付ける方法が一般的です。以下のコードは、NewPasswordメソッドを使用して、DBに新しいパスワードを設定するサンプルです。

Sub SetPasswd()
    Dim objDB   As Database     ' データベースオブジェクト
    
    ' データベースをオープンする
    Set objDB = OpenDatabase("E:\db1.mdb", True, False)
    
    ' 新しいパスワードを設定
    objDB.NewPassword "", "TEST99"
    
    ' DBを閉じる
    objDB.Close
    Set objDB = Nothing
End Sub

パスワードが設定されたDBを開くには、OpenDatabaseメソッドのConnect引数で設定されたパスワードを渡します。

Sub OpenSecureDB()
    Dim objDB   As Database     ' データベースオブジェクト
    
    ' データベースをオープンする（パスワード付き）
    Set objDB = OpenDatabase("E:\db1.mdb", True, False, "MS Access;pwd=TEST99")
    
    ' DBを閉じる
    objDB.Close
    Set objDB = Nothing
End Sub