Hi; Im not sure what you are looking for, however I am a power user and I create lots of databases that I want no one to be able to change anything.
here is what I do
create a form witha text box, format it as a password,
Action on chandge have a macro or code open a security form if the password matches what you choose.
if the password = the password of the administrator have a security form open. Place to button on this form, Secure the database and open the database.
and place the following code.
'Secure the database'
Private Sub Command1_Click()
ChangeProperty "StartupForm", dbText, "MainMenu"
ChangeProperty "StartupShowDBWindow", dbBoolean, False
ChangeProperty "StartupShowStatusBar", dbBoolean, False
ChangeProperty "AllowBuiltinToolbars", dbBoolean, False
ChangeProperty "AllowFullMenus", dbBoolean, False
ChangeProperty "AllowBreakIntoCode", dbBoolean, False
ChangeProperty "AllowSpecialKeys", dbBoolean, False
ChangeProperty "AllowBypassKey", dbBoolean, False
ChangeProperty "AllowShortcutMenus", dbBoolean, False
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Security SET Security.Status = 'ON'"
DoCmd.SetWarnings True
MsgBox "You must now EXIT and RE-OPEN the database !!", vbExclamation
DoCmd.Quit
End Sub
and
'Open the database
Private Sub Command5_Click()
ChangeProperty "StartupForm", dbText, "MainMenu"
ChangeProperty "StartupShowDBWindow", dbBoolean, True
ChangeProperty "StartupShowStatusBar", dbBoolean, True
ChangeProperty "AllowBuiltinToolbars", dbBoolean, True
ChangeProperty "AllowFullMenus", dbBoolean, True
ChangeProperty "AllowBreakIntoCode", dbBoolean, True
ChangeProperty "AllowSpecialKeys", dbBoolean, True
ChangeProperty "AllowBypassKey", dbBoolean, True
ChangeProperty "AllowShortcutMenus", dbBoolean, True
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Security SET Security.Status = 'OFF'"
DoCmd.SetWarnings True
MsgBox "You must now EXIT and RE-OPEN the database !!", vbExclamation
DoCmd.Quit
End Sub
This should give you some help. If you need to see an example let me know.
Hoe this helps!
Jason