少し修正・改善しました。 （Ⅰ）と（Ⅱ）に、分かれます。
MDE画面でのナビゲーションウインドウ・ファンクションキー（ショートカットキー）を使用禁止にする方法2：
問題は、アクセス画面での左上の▼印（クイックアクセスツールバー）が使用できることでした（ＭＤＥでも）。
（Ⅰ）ホームタブを含めたリボン全体の非表示---＜クイックアクセスツールバーを非表示にする（フォーム、クエリ等全表示画面で有効）＞
重要：MDBではシフトキーでナビゲーション ウインドウ表示可能だが、MDEでは表示しない。実験済。
1. テーブル【USysRibbons】（システムオブジェクト？）を新規作成し、フィールド名[RibbonName][RibbonXml]を追加する。
※【ファイル】 → 【オプション】 → 【カレント データベース】の『ナビゲーション オプション』ボタンから、
左下のシステム オブジェクトの表示にチェックを入れておかないと見えなくなります。
RibbonName---テキスト型
RibbonXml----テキスト型（フィールドサイズ/文字桁数：255）、またはメモ型
2. 追加後、[RibbonName]に任意の名前（ここでの名前：HiddenName）を入れ、[RibbonXml]に以下を記入する。
[RibbonXml]に、下記書き込み
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="true" />
</customUI>
3. これ以外には、コードは不要。
4.MDBを（シフトキーを押しながら）開けば表示は可能。
この段階で、MDEをShiftキーを押しながら開くと、ナビゲーションウインドウが開いてしまうので、
MDEを開くときに、Shiftキーを無効にする必要がある。→（Ⅱ）
（Ⅱ）下記のFunctionを、Main_Menuの「Private Sub Form_Open(Cancel As Integer)」の中に入れること。
つまり
Private Sub Form_Open(Cancel As Integer)
---略---
Call Shift_Key_No 'MDEでのshiftキー無効化
---略---
End Sub
下記を、モヂュール内に入れる。
（1）Public Function Shift_Key_No() 'Shiftキィー無効
'mdbファイルはshift有効。mdeはshift無効にする。
'ただし、一回ファイルをshift無効（なし）の状態で起動する必要がある！
'(autoexecで起動時にマクロからこの関数を呼び出しているが、shiftを押されるとautoexecが無効になってしまう)
'(autoexecからこの関数を一回でも実行すればあとはずっと有効。逆に、mdbファイルでshift無効にしてしまうと。修正が不可能になるので要注意！)
'よって、mde化後、少なくとも一回shiftなしで起動してから配布すること。
Dim varPass As Variant
Dim str拡張子 As String
Dim strMsg_1 As String
Dim strMsg_2 As String
varPass = CurrentDb.Name
str拡張子 = Right(varPass, 3) '下三文字を取得します。
strMsg_1 = "Shiftキィーが有効か、ファイルを再度立ち上げた後、有効になります。"
strMsg_2 = "Shiftキィーが無効か、ファイルを再度立ち上げた後、無効になります。"
Select Case str拡張子 'Shiftキィーを無効、有効にするための条件分岐。
Case "mdb"
ChangeProperty "AllowBypassKey", dbBoolean, True
'MsgBox strMsg_1, , "管理者"
Case "mde"
ChangeProperty "AllowBypassKey", dbBoolean, False
'MsgBox strMsg_2, , "管理者"
Case Else
ChangeProperty "AllowBypassKey", dbBoolean, False
'MsgBox strMsg_2, , "管理者"
End Select
’追加コード-- ファンクションキー(ショートカットキー？)使用禁止措置
ChangeProperty "AllowSpecialKeys", 1, False
End Function
（2）Public Function ChangeProperty(strPropName As String, varPropType, varPropValue) As Integer
On Error GoTo err_ChangeProperty
Dim dbs As dao.Database, prp As dao.Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Exit Function
err_ChangeProperty:
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
これで、MDEはShiftキーを押しても変化なしとなる、またファンクションキー(ショートカットキー？)も使用が禁止される。
【カレント データベース】中の「ショートカットキーを無効にする」の欄のチェックが自動で外れる。
一度目は表示するが、二度目以降はチェックが有っても、次回に自動で消えているはず。
なので、わざわざクイックアクセスツールバーで【カレント データベース】を開く必要がなくなる。
YKSaila
