Proteger campos de forma masiva mediante VBA, y da error si se intenta escribir o hacer clic

No te funciona porque screen. Activecontrol solo actúa en el control que tiene el foco en el formulario, y el bucle for each ctl que tienes, por si solo no cambia el foco a los distintos controles.

Soluciones hay dos, o ir pasando el foco con setfocus a cada control para que puedas usar el screen. Activecontrol, o bien usar directamente el control cargado en la variable ctl para bloquearlo.

El error ya me he dado cuenta hace un rato.

Mi problema es que no sé cómo pasar el setfocus, o usar directamente el control cargado en la variable ctl para bloquearlo. Vamos, la sintaxis. Si me pudieras poner un ejemplo, lo pruebo.

¡Gracias!

Te escribo desde el móvil, sin probarlo primero, pero alguna de estas te tendría que funcionar :

Ctl. Setfocus

FName. Controls(ctl. Name). Setfocus

Para el locked, igual.

Estoy probando con esto:

Public Function BloquearCampos(FName As Form)
   Dim ctl As Control
    If FName.ChkBloquear = -1 Then
       For Each ctl In FName.Controls
            Select Case ctl.ControlType
               Case "acCheckBox", "acComboBox", "acTextBox"
                        ctl.SetFocus
                        Screen.ActiveControl.Locked
            End Select
       Next ctl
       Set ctl = Nothing
    End If
End Function

Y tampoco.

Lo otro que se me ocurre sería poner ctl.Locked, pero tampoco funciona.

Intenta la opción con controls(), esa seguro que te funciona

A ver, he probado esto:

Public Function BloquearCampos(FName As Form)
   Dim ctl As Control
    If FName.ChkBloquear = -1 Then
       For Each ctl In FName.Controls
            Select Case ctl.ControlType
               Case "acCheckBox", "acComboBox", "acTextBox"
                        FName.Controls(ctl.Name).SetFocus
                        Screen.ActiveControl.Locked
            End Select
       Next ctl
       Set ctl = Nothing
    End If
End Function

Y esto:

Public Function BloquearCampos(FName As Form)
   Dim ctl As Control
    If FName.ChkBloquear = -1 Then
       For Each ctl In FName.Controls
            Select Case ctl.ControlType
               Case "acCheckBox", "acComboBox", "acTextBox"
                        FName.Controls(ctl.Name).Locked
            End Select
       Next ctl
       Set ctl = Nothing
    End If
End Function

Y ninguna da resultado.

Cuando puedas, no tiene que ser ahora mismo. ¡Mil gracias! Pero es que no consigo hacer funcionar. Un saludo.

Quita las comillas a los valores del Case.... XD

Me dice que el objeto no admite esta propiedad o método, y me indica esta línea:

FName.Controls(ctl.Name).Locked

¡Gracias!

Estoy haciendo pruebas. FName.Controls(ctl.Name) me da el valor del campo, pero no el nombre del campo. Lo que sí me da el nombre del campo es ctl.Name, pero ¿cómo le digo que lo proteja? Me da error si pongo ctl.Name.Locked.

¡Gracias!