Userform and controls locked property

  • Thread starter Thread starter D.S.
  • Start date Start date
Private Sub UserForm_Initialize()
Dim ctl As Control
For Each ctl In Controls
On Error GoTo ErrorHandler
ctl.Locked = True
'ctl.Enabled = False
Next
Exit Sub
ErrorHandler:
If Err.Number = 438 Then Resume Next
End Sub

Why would you want to do this?

--

Vasant


Can I lock all userform controls by code upon form activation?

D.S.
 
An easier way is to place a set of controls onto a Frame and set the frame's Enabled property to false.

--
HTH. Best wishes Harald
Followup to newsgroup only please

"D.S." <[email protected]> skrev i melding Can I lock all userform controls by code upon form activation?

D.S.
 
Thanks to both. The reason I want to do this?

I should have been more specific, I only needed to disable all the textboxes. I want to prevent the user from making direct entries in the textboxes, as they are intended to be populated only by a procedure that will be triggered.

D.S.
An easier way is to place a set of controls onto a Frame and set the frame's Enabled property to false.

--
HTH. Best wishes Harald
Followup to newsgroup only please

"D.S." <[email protected]> skrev i melding Can I lock all userform controls by code upon form activation?

D.S.
 
Back
Top