WCM Forum - waaaa - wieso ist mein access file plötzlich passwortgeschützt??

Code:

Private Sub CommandButton1_Click()

    OpenAccess

End Sub



Sub OpenAccess()



    Dim objAccess As Access.Application



    'Open Access and make visible

    Set objAccess = GetObject(dbdir, "Access.Application")

    objAccess.Visible = True

        

    With objAccess

        .DoCmd.Maximize

        .DoCmd.OpenForm "F_dienstart für zeitraum eingeben"

    End With



End Sub

obigen code führe ich in einem excel-file aus und will damit NUR EIN ACCESS FORMULAR ÖFFNEN

das öffnen funktioniert auch, nur wenn ich die mdb wieder schließen will, werd ich zur kennworteingabe aufgefordert :( über den excel-button lässt sich die mdb auch wieder öffnen, beim schließen will er wieder ein passwort. öffne ich die mdb "manuell", will er das passwort gleich zu beginn.

sämtliche passwort-cracker haben bei mir nicht funktioniert (mag sein, dass das an mir lag, hab sowas davor noch nie verwendet..).

woran kann das liegen?? :(

ps: konnte mein mdb zum glück aus einem backup retten, kostete trotzdem viel zeit und soll ja nicht so bleiben, dass ich immer von einem backup recovern muss!