¿Como activar/desactivar todos los controles de un Form?

Por CARCAR

Private Sub Form_Current()
    On Error GoTo Err_Form
    Dim c As Control
    
    For Each c In Me.Controls
        c.Enabled = False / True
    Next
Fin_Form:
    Exit Sub
Err_Form:
    If Err.Number = 438 Then
        Resume Next
    End If
    MsgBox Err.Number & "  " & Err.Description
End Sub