Fjernelse af menuer

there is no easy solution to do this, and there is no guaranty that this code wiill work!

http://www.mvps.org/access/api/api0019.htm

hvis jeg forstår det korrekt, så går du bare ind under "Tools" --> "Startup" og fravælger dette... simpelt...
Når du så gerne vil starte din db op for at redigere i den, skal du holde Shift nede...

Det punkt kan jeg ikke finde.. sidder med en dansk Access...

funktioner - start

Jeg bruger denne funktion til at stille på startup rettighederne for mine .mde filer:

*********** Kode start *****************
Option Compare Database
Option Explicit

Sub SetStartupProperties()
    Dim Result As String
    Const DB_Text As Long = 10
    Const DB_Boolean As Long = 1
   
    Result = MsgBox("Du er ved at låse databasen, er du sikker på du vil gøre dette?", vbOKCancel)
    If Result = vbOK Then
'    User hit OK
'    ChangeProperty "StartupForm", DB_Text, "Customers"
    ChangeProperty "StartupShowDBWindow", DB_Boolean, False
    ChangeProperty "StartupShowStatusBar", DB_Boolean, False
    ChangeProperty "AllowBuiltinToolbars", DB_Boolean, False
    ChangeProperty "AllowFullMenus", DB_Boolean, False
    ChangeProperty "AllowBreakIntoCode", DB_Boolean, False
    ChangeProperty "AllowSpecialKeys", DB_Boolean, False
    ChangeProperty "AllowBypassKey", DB_Boolean, False
    MsgBox "Databasen er låst", , "TimeDepartmentCoordinator"
   
    Else
    'User hit Cancel
    MsgBox "Handlingen blev annulleret", , "TimeDepartmentCoordinator"
    Exit Sub
   
    End If
End Sub

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Object
    Dim prp As Variant
    Const conPropNotFoundError = 3270
   
    Set dbs = CurrentDb

    On Error GoTo Change_Err

    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

********** Kode slut ***************

Jeg skal nok lige gøre opmærksom på, at du låser den aktive database, så det kan ikke anbefales at komme til at låse arbejdsdatabasen!!!

Kan den efterfølgende låses op?

Hvad er den låst for...? vel ikke tilføjelse af poster?

Normalt har man en arbejdsdatabase, en udgivelses database, en tabel database og endelig en frontend, som man udgiver til brugeren. Mit script låser din udgivelsesversion, herefter laver du en mde med den låste db.

læs hvad de forskellige Allowxxxx har som funktion med den indbyggede hjælp eller på google grupper.

koden kort forklaret:
true = tilladt visning
false = skjult/låst
StartupForm bestemmer hvilken formular brugeren starter med at få frem.
StartupShowDBWindow bestemmer om brugeren har adgang til database vinduet med tabeller, forespørgsler osv.
StartupShowStatusBar viser statusbar
AllowBuiltinToolbars viser standard værktøjslinier i access
AllowFullMenus tillader fulde værktøjlinier
AllowBreakIntoCode tillader at åbne koden med alt-f11
AllowSpecialKeys tillader alt-f11 og andre specielle genvejstaster.
AllowBypassKey tillader brug af genvejstaster til at omgås brug af specielle taster såsom shift åbner uden startup fil og med visning af database.

ok...