Supportnet / Forum / Datenbanken

Hallo Leute, hat jmd. eine Ahnung wie ich Formulare (bzw. die gesamte Anwendung) schützen kann? Ich meine richtig schützen, nicht rechte Maustaste ausstellen und sofort Formular "X" starten bei öffnen. Sondern das man auch keine Möglichkeit hat mit einer Tastenkombi. in die Source zu kommen. Lediglich nur die Anwendung nutzen kann. greeting Mausi

Grüezi Mausi

Mach eine mde-Datei daraus. Unter dem Menüpunkt Extras / Datenbank-Dienstprogramme / MDE-Datei erstellen.

Wichtig ist aber, dass Du vorher eine Kopie Deiner mdb-Datei machst, und noch wichtiger, dass Du in der Online-Hilfe nachliest, was es mit einer mde auf sich hat.

Gruss
Köbi

SubEinstellenStarteigenschaften()
Const DB_Text As Long = 10
Const DB_Boolean As Long = 1
ChangeProperty "StartupForm", DB_Text, "Kunden"
ChangeProperty "StartupShowDBWindow", DB_Boolean, False
ChangeProperty "StartupShowStatusBar", DB_Boolean, False
ChangeProperty "AllowBuiltinToolbars", DB_Boolean, False
ChangeProperty "AllowFullMenus", DB_Boolean, True
ChangeProperty "AllowBreakIntoCode", DB_Boolean, False
ChangeProperty "AllowSpecialKeys", DB_Boolean, True
ChangeProperty "AllowBypassKey", DB_Boolean, True
End Sub

Function ÄndernEigenschaft(strEigName As String, varEigTyp As Variant, varEigWert As Variant) As Integer
Dim dbs As Object, Eig As Variant
Const conEigNichtgefundenFehler = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strEigName) = varEigWert
ÄndernEigenschaft = True

Ändern_Ende:
Exit Function

Ändern_Fehler:
If Err = conEigNichtgefundenFehler Then ' Eigenschaft nicht gefunden.
Set Eig = dbs.CreateProperty(strEigName, _
varEigTyp, varEigWert)
dbs.Properties.Append Eig
Resume Next
Else
' Unbekannter Fehler.
ÄndernEigenschaft=False
Resume Ändern_Ende
End If
End Function


Wenn du Sie die AllowBypassKey-Eigenschaft z.B. auf False einstellst, dann kann der Benutzer weder die Starteigenschaften ändern noch mit der Shifttaste das Makro AutoExec umgehen.

Achtung, Du kommst auch selbst nicht mehr rein, wenn Du Dir kein Hintertürchen aufgebaut hast.

• Formatierung schützen
• Fomularfelder im Word
• Dateneingabe in Formular funktioniert nicht
• Kontrollkästchen im Formular
• eigenes Formular in öffentlichem Kalender