¿Cómo hacer que las celdas sean de solo lectura en las hojas de cálculo?

Question

Estoy rellenando una hoja de cálculo con valores de base de datos. Las celdas con las que llené los datos, quiero que sean de solo lectura para los usuarios. ¿Cómo puedo hacer esto?

Answer 1

Depende de cómo desee seleccionar el rango. Esta es solo una celda. Si vuelve a J1 y cambia el valor, debe recibir un aviso.

Private Sub Worksheet_Change(ByVal Target As Range) 
    Range("J1").Select 
    Selection.Locked = True 
    ActiveSheet.Protect Contents:=True 
    Range("K1").Select 

End Sub 

Las celdas no están bloqueadas hasta que la hoja de trabajo esté protegida. De forma predeterminada, todas las celdas están configuradas como Bloqueadas, por lo que deberá desbloquear las celdas que desea que los usuarios puedan cambiar.

Answer 2

This page ofrece un pequeño sub para proteger un rango de celdas.

Extracto

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Not Intersect(Target, Range("H1:H10")) Is Nothing Then 
     Target.Offset(0, 1).Select 
     MsgBox "you may not enter that cell" 
    End If 
End Sub 

Para proteger H1:H10. Cuando el usuario desea cambiar una celda dentro de H1:H10, un mensaje de advertencia dice que la celda no se puede modificar y, en su lugar, se selecciona la celda vecina en la siguiente columna (I).

Answer 3

En Excel puede ir al menú de Protección y especificar qué celdas requieren una contraseña para modificar. Puede especificar múltiples rangos también.

Espero que esto es lo que estabas buscando.

Answer 4

Puede intentar proteger las celdas. O puede codificarlo usted mismo utilizando un evento de selector SelectionChange ...:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
     If Not Intersect(Selection, Range("A24:A50")) Is Nothing Then 
     Range("B1").Select 
     End If 
    End Sub 

Answer 5

En estas circunstancias a menudo encontrar la mejor manera es para bloquear la hoja, pero sólo para el usuario con el argumento UserInterfaceOnly que todavía permite la interacción programática sin restricciones con la hoja.

ActiveSheet.ProtectUser InterfaceOnly:=True 

Hay varios otros argumentos que se pueden establecer que todavía permite al usuario filtrar, ordenar, etc. si esto fuera necesario, el archivo de ayuda tiene una lista completa.