Hallo alle zusammen,
ich sitze schon seit Tagen an dem Problem, dass ich sämtliche Menüleisten in meiner DB für die späteren Nutzer ausblenden will. Habe dazu schon einige Beiträge gelesen aber bis her hat nichts funktioniert. Als Anmerkung noch, ich arbeite mit Access 2010.
Einen Code, den ich versucht habe, führt immer zu einer Fehlermeldung: Fehler beim kompilieren. Benutzdefinierter Typ nicht definiert.
Mein Code:
Private Function HideCommandBars(bHide As Boolean, bExceptMenuBar As Boolean)
Dim cmdb As CommandBar
On Error Resume Next
For Each cmdb In Application.CommandBars
cmdb.Protection = msoBarNoProtection
cmdb.Visible = Not bHide
Next cmdb
Application.CommandBars("Menu Bar").Enabled = bExceptMenuBar
End Function
Private Sub Form_Open(Cancel As Integer)
HideCommandBars True, False
End Sub
Ich habe auch schon viele andere Wege ausprobiert, bei denen entweder gar nichts passiert ist oder sich meine DB nicht mehr öffnen ließ (habe zum Glück immer eine Sicherungskopie). Habe auch den Verweiß zur Object Libary aktiviert.
Wenn mir jemand helfen könnte (mit detaillierter Anleitung, da ich Access Neuling bin), wäre super.
Gruß Kev