アクセス(Access)VBA−VBAでパスワードを解除する方法 | ミニミニ管理者(システム管理者/社内SE/CIO)の独り言

[ ミニミニ管理者の独り言アクセス(Access)-VBA・使い方 > アクセス(Access)VBA−VBAでパスワードを解除する方法 ]
スポンサードリンク

アクセス(Access)VBA−VBAでパスワードを解除する方法

今回は、MS(マイクロソフト)のAccessで設定しているパスワードの設定及び解除をAccessVBAから行う方法を紹介します。

このモジュールの使用用途としては、遠隔地にあるMDBファイルのパスワードを定期的に再設定したいなどに役に立ちます。このモジュールによりパスワードを一旦解除して、再度設定すると言った具合です。

◆サンプルコード(解除)
下記のモジュールはパスワードを「解除する」方法で紹介していますが、「PASSWORD」と「OLD_PASSWORD」の値を入れ替えれば、パスワード設定になります。
Private Function SetPassword() As Boolean
  Dim DB As Database
  Dim DBDst As Database
  Dim RS As Recordset
  Dim cDataBase As String
  Dim cConnect As String
  Dim PASSWORD As String
  Dim OLD_PASSWORD As String

  On Error Resume Next
  PASSWORD = "" '新しく設定するパスワード
  OLD_PASSWORD="123" '設定済みのパスワード

  cConnect = ";DATABASE=" & "C:¥Test.mdb"
  cConnect = cConnect & ";PWD="
  cConnect = cConnect & OLD_PASSWORD

  cDataBase = "C:¥Test.mdb"
  Set DBDst = OpenDatabase(cDataBase, dbDriverNoPrompt, False, cConnect)
  DBDst.NewPassword "", PASSWORD
  DBDst.NewPassword OLD_PASSWORD, PASSWORD
  DBDst.Close
End Function

◆検証環境
OS:Windows2000Pro、XP
Access:Access2000

◆注意
この方法を公開した目的は、あくまでも複数拠点を管理するシステム管理者の負担を軽減するものです。決して悪用はしないで下さい。








               最新記事へ     トップページ



スポンサードリンク


■Blog Ranking■
1. ←←サーバー構築・運用ブログあり お奨め:★★★★★
2. (ブログランキング ドット ネット)
3.にほんブログ村 IT技術ブログへにほんブログ村
4.BS blog Ranking
ブログランキングに挑戦中です。あなたもブログランキングに挑戦してみよう!
サーバー構築・運用ブログなんかもありますのでシステム管理者の方にもお奨めのサイトがあり!
ソニーストア
ボーズ・インイヤーヘッドホン

コメント
コメント投稿フォーム:
 上の情報を次回も利用する

トラックバック
トラックバックURL:
※ クリックで選択できます。
トラックバック一覧: