起動時のシフトキー無効

セキュリティの強化として・・・

・データベースウィンドウを表示させない（Shiftキー無効）
・mdeファイルを作成すること。
・起動時の設定ダイアログから、データベースウインドウの非表示及び全てのチェックをはずすこと。
・管理者としてはデータベースウィンドウの表示が必要です。よってパスワード設定で、データベースウィンドウの表示・非表示を切り替える 仕様とすること。


■Shiftキー無効のサンプル

下記のプロシージャをデータベースウィンドのモジュール欄に記述して下さい。全てをコピーしても結構です。

Function　ChangeProperty(strPropName　As　String,　varPropType　,varPropValue)　As　Integer

On　Error　GoTo　エラー

　　　　Dim　dbs　As　Database,　prp　As　Property
　　　　Const　conPropNotFoundError　=　3270
　　　　Set　dbs　=　CurrentDb
　　　　dbs.Properties(strPropName)　=　varPropValue
　　　　ChangeProperty　=　True

　　　　Exit　Function

エラー:
　　　　If　Err　=　conPropNotFoundError　Then　'　プロパティが見つかりません。
　　　　　　　　Set　prp　=　dbs.CreateProperty(strPropName,varPropType,　varPropValue)
　　　　　　　　dbs.Properties.Append　prp
　　　　　　　　Resume　Next
　　　　Else
　　　　　　　　ChangeProperty　=　False　'　認識できないエラー。
　　　　　　　　Exit　Function
　　　　End　If

End　Function




Function　NoShiftKey()

　　　　Dim　strmsg_1　As　String
　　　　Dim　strmsg_2　As　String

　　　　strmsg_1　=　"ファイルを再度立ち上げた後、Shiftキィーが有効になります。"
　　　　strmsg_2　=　"ファイルを再度立ち上げた後、Shiftキィーが無効になります。"
　　　　
　　　　'Shiftキィーを無効、有効にするため、パスワードを要求します。
　　　　Select　Case　InputBox("パスワードを入力してください。")

　　　　　　　　Case　1234　'既定値のパスワードです。自由に変更できます。
　　　　　　　　　　　　ChangeProperty　"AllowBypassKey",　dbBoolean,　True
　　　　　　　　　　　　MsgBox　strmsg_1,　,　"Microsoft　Access　Club"

　　　　　　　　Case　0
　　　　　　　　　　　　ChangeProperty　"AllowBypassKey",　dbBoolean,　False
　　　　　　　　　　　　MsgBox　strmsg_2,　,　"Microsoft　Access　Club"

　　　　　　　　Case　Else
　　　　　　　　　　　　ChangeProperty　"AllowBypassKey",　dbBoolean,　False
　　　　　　　　　　　　MsgBox　strmsg_2,　,　"Microsoft　Access　Club"

　　　　End　Select

End　Function



※NoShiftKeyをフォームに張り付けたボタンのクリックイベントにセットする。



参考URL