即効テクニック |
●概要● 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