Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!
'If Not CheckEingabe(True) Then Exit Sub--> stillsetzen' Beim Öffnen: Hash prüfen
' If Not bAbschliessen Then
' sPruefHash = GetProp(db, "LockKeyHash", "")
' If sPruefHash <> GetSHA256(sEingegebenerKey) And sPruefHash <> "" Then
' db.Close
' UpdateStatus "Falscher Schlüssel!", vbRed
' MsgBox "Falscher Schlüssel!", vbCritical
' Me.txtKey.SetFocus
' Me.txtKey.SelStart = 0
' Me.txtKey.SelLength = Len(Me.txtKey)
' Exit Sub
' End If
'End If
Call SetProp(db, "AllowBypassKey", Not bAbschliessen)
Call SetProp(db, "AllowSpecialKeys", Not bAbschliessen)
Call SetProp(db, "AllowFullMenus", Not bAbschliessen)
Call SetProp(db, "AllowShortcutMenus", Not bAbschliessen)
Call SetProp(db, "AllowBuiltInToolbars", Not bAbschliessen)
Call SetProp(db, "AllowToolbarChanges", Not bAbschliessen)
Call SetProp(db, "StartupShowDBWindow", Not bAbschliessen)
Call SetProp(db, "StartupShowStatusBar", Not bAbschliessen)
...
die oben mit Hochkommas eingeleitetetn Zeilen ebenfalls stillsetzen arrBlacklist = Array("passwort", "password", "123456789012", "qwertzuiopü", "administrator")
Zitat von: Debus am Juni 08, 2026, 14:51:23Vielleicht macht das ja auch noch spaß
Holger
Zitat von: Knobbi38 am Juni 08, 2026, 13:54:52Wer zuletzt schreibt hat gewonnen.Guter Hinweis, werde ich so machen.
Zitat von: Knobbi38 am Juni 08, 2026, 13:54:52Alternativ könnte man vielleicht den Backstagebereich neu definiere und dabei den Eintrag weglassen (ungetestet):
Zitat von: Debus am Juni 08, 2026, 14:51:23Vielleicht macht das ja auch noch spaßMacht es
Zitat... weil die meisten Änderungen erst nach Neustart wirksam werden...und beim Login werden sie wieder zurückgesetzt.Dann gibt das beim Login Formular nicht so richtig Sinn. Besser, man schreibt die Optionen zurück, kurz bevor Access beendet wird. Wer zuletzt schreibt hat gewonnen.

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<!-- StartFromScratch löscht das gesamte Datei-Menü inkl. Datenschutzoptionen -->
<ribbon startFromScratch="true">
<tabs>
<!-- Hier blenden Sie die Standard-Registerkarten (z.B. Start) wieder ein -->
<tab idMso="TabHomeAccess" visible="true" />
</tabs>
</ribbon>
<backstage>
<!-- Hier definieren Sie, welche wenigen Befehle im Datei-Menü übrig bleiben sollen -->
<button idMso="FileCloseDatabase" visible="true"/>
<button idMso="FileExit" visible="true"/>
</backstage>
</customUI>
) aber nicht vornehmen, weil die meisten Änderungen erst nach Neustart wirksam werden...und beim Login werden sie wieder zurückgesetzt.