PDA

Vollständige Version anzeigen : Menüleiste und Symbolleiste über VBA ausblenden


Biene58
03.05.2001, 12:12
Hallo,
kann man die Menü.- und die Symbolleiste per VBA ausblenden, so das nur der Admin sie wieder einblenden kann? Wenn ja, wie?

Danke Jörg

A.S.
03.05.2001, 12:25
Hallo Jörg,

Beispieldatenbank CreativBars von Anette Becker, erhältlich bei <a href="http://www.accessprofipool.de">www.accessprofipool.de</a> als CreativeBars.Zip erhältlich

HTH

Arno

AWSW
03.05.2001, 23:08
Hallo Jörg,
habe das letztens auch gesucht...

Zusätzlich zu Arnos Vorschlag hier ein Modul, teilweise aus der Access Hilfe. Das Modul passt aber noch mehr an, also mal drüber schauen...

ABER VORSICHT - WENN DU KEINEN BUTTON HINTERLEGST DER DIE EINSETLLUNGEN IN UMGEKEHRTER EINSTELLUNG (TRUE) AUFRUFT, IST DIE DB DICHT !!! ALSO VORHER SICHERUNGSKOPIE ANLEGEN !!!

Das Modul läuft bei mir unter Access 2000:


Option Compare Database
Option Explicit

Public Function EinstellenStarteigenschaften00()
ÄndernEigenschaft "StartupForm", dbText, "DEIN_STARTBILDSCHIRM"
ÄndernEigenschaft "StartupShowDBWindow", dbBoolean, False
ÄndernEigenschaft "StartupShowStatusBar", dbBoolean, False
ÄndernEigenschaft "AllowBuiltInToolbars", dbBoolean, False
ÄndernEigenschaft "AllowShortcutMenus", dbBoolean, False
ÄndernEigenschaft "AllowFullMenus", dbBoolean, False
ÄndernEigenschaft "AllowBreakIntoCode", dbBoolean, False
ÄndernEigenschaft "AllowToolbarChanges", dbBoolean, False
ÄndernEigenschaft "AllowSpecialKeys", dbBoolean, False
ÄndernEigenschaft "AllowBypassKey", dbBoolean, False
Application.SetOption "ShowWindowsInTaskbar", False
Application.SetOption "Cursor Stops at First/Last Field", True
Application.SetOption "Show Hidden Objects", False
End Function

Function ÄndernEigenschaft(strEigenschaftenname As String, varEigenschaftentyp As Variant, varEigenschaftenwert As Variant) As Integer
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Ändern_Fehler
dbs.Properties(strEigenschaftenname) = varEigenschaftenwert
ÄndernEigenschaft = True

Ändern_Ende:
Exit Function

Ändern_Fehler:

If Err = conPropNotFoundError Then ' Eigenschaft nicht gefunden.
Set prp = dbs.CreateProperty(strEigenschaftenname, _
varEigenschaftentyp, varEigenschaftenwert)
dbs.Properties.Append prp
Resume Next
Else
' Unbekannter Fehler.
ÄndernEigenschaft = False
Resume Ändern_Ende
End If
End Function


Ich hoffe das hilft Dir !!! :D