Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Inhabilitar Celdas

valentin3107

Member
Registrado
29 Sep 2021
Mensajes
88

Adjuntos

Solución
Hola @valentin3107,
Si lo he entendido bastaría con:
En la Hoja SUJETO OBLIGADO
Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 1 And Target.Column <> 2 And Target.Column <> 24 _
    And Target.Column <> 25 And Target.Column <> 26 And Target.Column < 28 Then Target.Offset(, 1).Select
End Sub
En la Hoja EMPLEADOS
Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 3 And Target.Column <> 5 And Target.Column <> 7 And Target.Column < 20 Then Target.Offset(, 1).Select
End Sub
En la Hoja CONTRATOS
Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 12 And Target.Column < 26 Then Target.Offset(, 1).Select
End Sub
Un...
Hola @valentin3107,
Si lo he entendido bastaría con:
En la Hoja SUJETO OBLIGADO
Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 1...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Última edición:
Volver
Arriba