Accessのセキュリティについての質問

質問

• Accessのセキュリティについて質問します。現在、アルバイトさんによる顧客データの入力を行っており、社員がデータをチェックしています。しかし、現在のセキュリティ対策は不十分であり、アルバイトさんにも社員以外からもデータが閲覧される可能性があります。そこで、アルバイトさんによるデータ入力を制限しつつ、他部署の社員もデータを閲覧できないようにする方法を探しています。
• Accessのセキュリティに関する問題があります。アルバイトさんによる顧客データの入力が行われており、社員がデータをチェックしています。しかし、現在のセキュリティ対策ではアルバイトさんによるデータの閲覧制限ができず、他部署の社員もデータを閲覧することができてしまいます。アルバイトさんがデータを入力できる状態を維持しつつ、他部署の社員からのデータ閲覧を制限する方法をご教示ください。
• Accessのセキュリティに関する質問です。現在、アルバイトさんが顧客データの入力を行っており、社員がデータをチェックしています。しかし、現在のセキュリティ対策ではアルバイトさん以外の社員もデータを閲覧することができてしまいます。アルバイトさんがデータ入力を行える状態を維持しつつ、他部署の社員からのデータ閲覧を制限する方法を教えてください。

回答No.5

venzou

出来るだけ簡単な方法を提案します。

大まかに方法を説明すると

・データとフォームを分離します。
・データはデータベースパスワードを設定し守ります。
・リンクテーブルを動的に作成します。
・パスワードはVBAに記述し、MDEにする事で隠します。
・Accessのアプリケーション自体を非表示にします。

データとフォームを分離する点では、No1さんの回答と同じですが、連結フォームから、非連結フォームへの変更は面倒なので、リンクテーブルを利用します。

リンクテーブルを普通に作ると、内容を見られてしまうので、必要な時にVBAで動的に作成します。処理が終われば、リンクテーブルを削除します。

具体的な手順を説明します。

まず、現状のMDBファイルを、管理者用と呼ぶ事にします。
管理者用のMDBファイルをコピーし、ユーザ用のMDBファイルを作ります。
管理者用のMDBファイルに、データベースパスワードを設定します。

ユーザ用のMDBファイルを開きます、以下はユーザ用のMDBでの作業です。

ユーザに不要なものは削除します。（レポートや、使わないフォームなど）

テーブルは全て削除します。（テーブルは管理者用のテーブルにリンクさせます。後述）

使用する全てのフォームのプロパティで、「ポップアップ」と「作業ウインドウ固定」を「はい」にします。（アプリケーションを隠すので必要になります。）

新規のモジュールを追加し下記を記述（後で使うサブルーチンです）
ファイル名とパスワードを正しい物に変更し、適当な名前で保存します。
（このパスワードはMDEにするので、覗かれる心配はありません。後述）
------------------------------------------------------------
'管理者用のMDBファイルの場所とパスワード
Private Const MdbPath = "c:\temp\db1.mdb"
Private Const PassWord = "hoge"

Public Const SW_HIDE = 0
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

'Accessのアプリケーションを非表示にする処理
Public Sub HideApplication()
　Dim tmp As Long
　tmp = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End Sub

'リンクテーブルを作るサブルーチン
Public Sub CreateLink(strName)
　DoCmd.TransferDatabase acLink, "ODBC", ";DATABASE=" & MdbPath & ";PWD=" & PassWord & ";", acTable, strName, strName
End Sub

'リンクテーブルを削除するサブルーチン
Public Sub DeleteLink(strName)
　DoCmd.DeleteObject acTable, strName
End Sub
------------------------------------------------------------

メニュー用のフォームを追加します。（すでに有れば、それを利用します）
起動時の設定で、このフォームを表示します。
このフォームも「ポップアップ」と「作業ウインドウ固定」を「はい」にします。
開く時と、閉じる時のイベントプロシージャを下記にします。
------------------------------------------------------------
Private Sub Form_Open(Cancel As Integer)
　HideApplication
End Sub

Private Sub Form_Close()
　DoCmd.Quit
End Sub
------------------------------------------------------------

この設定で、ユーザ用のMDBを開くと、メニュー用のフォームだけが表示され、Accessのアプリケーションのウインドウは表示されません。また、メニューを閉じると、Accessも終了します。

次に、メニューから他のフォームを開く時に、必要なテーブルのリンクテーブルを作ってから開く様にします。

メニューのコマンドボタンのイベントプロシージャの例
------------------------------------------------------------
Private Sub コマンド0_Click()
　'フォームに必要なテーブルを記述する
　CreateLink "Table1"
　CreateLink "Table2"

　DoCmd.OpenForm "フォーム1"
End Sub
------------------------------------------------------------

開いたフォームを閉じる時に、リンクテーブルを削除します。

これはメニューフォームではなく、それぞれのフォームの「閉じる時」のイベントプロシージャです。
------------------------------------------------------------
Private Sub Form_Close()
　'フォームで使ったリンクテーブルを削除する
　DeleteLink "Table1"
　DeleteLink "Table2"
End Sub
------------------------------------------------------------

これで、SHIFT押しでデータベースを開いてもテーブルは存在しない状態になります。

最後の仕上げで、ユーザ用のMDBファイルからMDEファイルを作り、ユーザにはMDEファイルを使ってもらいます。ユーザ用のMDBファイルは保守のために残しますが、ユーザからは開けない場所に保存して下さい。

============================================================
上記の作業で、テーブルを隠す事が出来ると思います。

基本的には、上記の修正のみで、既存のフォームがそのまま使用できると思います。

テーブルが、ODBCのリンクテーブルになりますので、フォームの内容によっては、この点で修正が必要になるかもしれません。（単純な連結フォームなら問題ないと思います。）

お礼

途中までなんとかできましたが、なぜか入力用から管理者が見つからないと出てしまいます。場所の指定が間違っているのでしょうか？
今現在は作成中なので、デスクトップのaccessというフォルダに、管理者システムという名前で入っています。
とりあえず入力用でポップアップだけ開けるとこまではなんとかできたんですが。管理者と繋がらなくて。。