Adgangsstyring af Access DB

Hej

Mine brugere opdaterer en statistik database fra et regneark med nedenstående kode. Nu vil jeg gerne låse db'en så de ikke kan gå ind og se tabeller, formularer m.m. Men de skal stadig kunne opdatere via regnearket. Jeg har forsøgt at anvende "funktioner - sikkerhed - angiv adgangskode til databasen" Men så kan brugerne ikke opdatere databasen fra regnearket.

* * * K O D E  S T A R T * * *

Private Sub knapOpdaterDatabase_Click()
'Denne procedure opdaterer en database med celleindhold i regnearket
Dim forbindelse As ADODB.Connection, rs As ADODB.Recordset, r As Long
' Opret forbindelse til databasen
Set forbindelse = New ADODB.Connection
forbindelse.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=c:\bibliotek\mobilstatistik.mdb;"
' open a recordset
Set rs = New ADODB.Recordset
rs.Open "tabelnavn", forbindelse, adOpenKeyset, adLockOptimistic, adCmdTable

' Der oprettes nyt post med data fra regnearket

With rs
.AddNew ' tilføj ny post
' overfør celleværdier fra regneark til felter i databasen
.Fields("dato") = Range("b4").Value
.Fields("navn") = Range("e4").Value
.Fields("ugenr") = Range("b5").Value
.Fields("medarbejdernr") = Range("e5").Value
.Fields("opgave1") = Range("b7").Value
.Fields("opgave2") = Range("b10").Value
.Fields("opgave3") = Range("b13").Value

.Update ' stores the new record
MsgBox "Din statistik er sendt", vbInformation + vbOKOnly, "INFO !"
End With


rs.Close
Set rs = Nothing
forbindelse.Close
Set forbindelse = Nothing
End Sub

* * * K O D E  S L U T * * *