Hi zusammen,
ich möchte verhindern, dass die User die Tabellen meiner Datenbank sehen.
Hab dazu diesen Code eingebaut mit der Hoffnung, dass die Navigationsleiste zugeklappt ist und man auch mit F11 diese nicht wieder öffnen kann.
Private Sub Form_Load()
'Shift Taste Macro starten und unterdrücken
EnableShift (False)
'Menüs verstecken
RunCommand acCmdAppMaximize
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.SelectObject acForm, , True
RunCommand acCmdWindowHide
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'F11 unterdrücken
Select Case KeyCode
Case vbKeyF11
KeyCode = 0
MsgBox "Key not allowed!"
Case Else
End Select
End Sub
Ersteres funktioniert ganz gut aber leider kann man mit der F11 Taste immer noch die NAvigationsleiste hervorzaubern.
Irgend eine Idee, wie man das vollkommen verbieten kann?
Danke
Tom
http://www.office-loesung.de/ftopic396828_0_0_asc.php