Ver originales (Francés)

Bloquear rango de celdas VBA

Resuelto
flag -  
eriiic Mensajes publicados 24581 Fecha de registro   Estado Colaborador Última intervención   -
Hola,

Tengo una hoja de cálculo de Excel que debo enviar a mis colegas. Tengo una hoja de datos en la que quiero bloquear el rango (A1:F2). Luego quiero dejar el rango (G1:J2) para que mis colegas puedan ingresar su información en esas celdas.

Luego deben devolverme su archivo.

He intentado esto: 

Sub Bloqueo() Sheets("OUTIL").Select Range("A1:F2").Select Selection.Locked = True Selection.FormulaHidden = False ActiveSheet.Protect Password:="motdepasse", DrawingObjects:=True, Contents:=True, Scenarios:=True Range("A1").Select End Sub

No funciona porque la protección de toda la hoja me impide escribir en las celdas.

¿Puedes ayudarme?

¡Gracias de antemano!

Configuración: Windows / Chrome 66.0.3359.139

2 respuestas

  1. flag
     
    He encontrado mi respuesta después de varios intentos y errores! 

    Sub VerrouillageTESTTEST() Sheets("OUTIL").Select Range("A1:F2").Select selection.Locked = True Range("G1:J2").Select selection.Locked = False selection.FormulaHidden = False ActiveSheet.Protect [/contents/64-mots-de-passe Password]:="motdepasse", DrawingObjects:=True, Contents:=True, Scenarios:=True Range("A1").Select End Sub
    3
  2. eriiic Mensajes publicados 24581 Fecha de registro   Estado Colaborador Última intervención   7 281
     
    Hola,

    es bueno haber encontrado.
    Pero se puede hacer manualmente, la macro es innecesaria.
    Ve a Formato de celda / Protección para (des)bloquear una selección, y luego protege la hoja.
    eric

    --
    Al intentar continuamente, se termina logrando.
    Así que cuanto más falla, más posibilidades tenemos de que funcione. (los Shadoks)
    Además de gracias (¡sí, sí, ¡se hace!), piensa en marcar como resuelto. Gracias
    0