HOME > 即効テクニック > AccessVBA > データベース・データ保護 > DBにパスワードを設定する(NewPasswordメソッド)

即効テクニック

データベース・データ保護

DBにパスワードを設定する(NewPasswordメソッド)

(Access)
●概要●
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