Office: Per VBA formularfelder sperren

cocifrosch · 12. April 2004

Hi

Gibt es eine einfache möglichkeit, per VBA alle felder zu sperren, und zu entsperren, so das der benutzer in meiner datenbank erst einen button drücken muss, bevor er änderungen vornehmen kann? das dient zur vorbeugung von fehleinträgen die "zufällig" entstehen *wink.gif*

sowas in der art, leider funzt das nicht:

Code:

Public Sub alles_sperren()
Dim ctl As Control
For Each ctl In Me.Controls
ctl.activated = False
ctl.Locked = True
Next ctl
MsgBox "Done"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der code soll die eigenschaft bei jedem feld auf aktiviert = nein und gesperrt = ja setzen. Leider weiss ich nicht genau, wie ich das mache. Obiger code ist pseudocode.

Vielen dank für lösungsvorschläge dieses wahrscheinlich einfachen Problems *Smilie

:)

Arne Dieckmann · 13. April 2004

Quick'n'Dirty:
Code:

Public Sub alles_sperren()

'wg. Bezeichnungsfeldern etc.
'und für den aktuellen Button:
On Error Resume Next

Dim ctl As Control
For Each ctl In Me.Controls
ctl.Enabled= False
ctl.Locked = True
Next ctl
MsgBox "Done"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

TommyK · 13. April 2004

Hallo,

zu diesem Thema gibt es auch einen Beitrag mit Bsp-DB im MOF-Code Archiv.
Manipulation von Controls in Formularen

Office: Per VBA formularfelder sperren

Per VBA formularfelder sperren

Per VBA formularfelder sperren

Per VBA formularfelder sperren - Similar Threads - VBA formularfelder sperren

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich

Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

Per Hyperlink ausgeblendetes Blatt einblenden

Webbrowser-Steuerelement in UserForm "gesperrt"

Neue Formularfelder in Word 2010 - Wie ausfüllen mit VBA?

w2000:Formularfeld - Option Ereignis - VBA