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

[heli2sky]

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!