VBA Excel, bloquear una columna entera (contra escritura)
Publicado por Pato (2 intervenciones) el 07/04/2014 15:00:36
Hola,
tengo un Excel en el que pueden loguearse mediante un formulario dos tipos de usuarios diferentes.
Necesito hacer que si se loguea el usuario2, las columnas A y B de la hoja1 se bloqueen contra escritura, y que el usuario únicamente pueda leer lo que tienen, pero no modificar nada de ellas. El usaurio1 sí puede.
He intentado de mil formas bloquear la columna sin éxito alguno.
Dim hoja1 as Worksheet
Set hoja1 = WorkSheet("Mi hoja")
hoja1.Columns("A:A").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
OR
hoja1.range("A:A").EntireRow.Locked= True
Todas me dan error o no me bloquean la escritura.
Agradecería cualquier ayuda.
Mil gracias!!!
Un saludo.
tengo un Excel en el que pueden loguearse mediante un formulario dos tipos de usuarios diferentes.
Necesito hacer que si se loguea el usuario2, las columnas A y B de la hoja1 se bloqueen contra escritura, y que el usuario únicamente pueda leer lo que tienen, pero no modificar nada de ellas. El usaurio1 sí puede.
He intentado de mil formas bloquear la columna sin éxito alguno.
Dim hoja1 as Worksheet
Set hoja1 = WorkSheet("Mi hoja")
hoja1.Columns("A:A").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
OR
hoja1.range("A:A").EntireRow.Locked= True
Todas me dan error o no me bloquean la escritura.
Agradecería cualquier ayuda.
Mil gracias!!!
Un saludo.
Valora esta pregunta
0
