ESCRITURA IMBORRABLE

10/10/2007 - 08:31 por Yo mismo | Informe spam
Buenos días.

Me gustaría saber si existe la posibilidad de otorgar a una celda la
posibilidad de que, una vez se ha escrito en ella, el contenido quede
protegido automáticamente. He intentado hacerlo mediante la protección de
celdas, pero eso me impide escribir en ella. Lo que yo quiero es que sólo se
proteja la celda cuando ya se ha escrito, y se haga sin intervención de nadie.
 

Leer las respuestas

#1 Héctor Miguel
10/10/2007 - 09:11 | Informe spam
hola, (...) ???

... posibilidad... a una celda... que, una vez se ha escrito en ella, el contenido quede protegido automaticamente.
He intentado hacerlo mediante la proteccion de celdas, pero eso me impide escribir en ella.
Lo que yo quiero es que solo se proteja la celda cuando ya se ha escrito, y se haga sin intervencion de nadie.



necesitaras el apoyo de macros (y obviamente, que tu libro se abra con permiso se usarlas)

1) selecciona TODAS las celdas de esa hoja y quitales la marca de bloqueada
(menu: formato / celdas / proteccion -> bloqueada)

2) proteges la hoja en el evento '_open' de tu libro cada vez que se abra con la opcion de solo la interfase con el usuario
(excel se olvida de algunas caracteristicas como esta)
-> en el modulo de codigo del libro (ThisWorkbook)
Private Sub Workbook_Open()
Worksheets("hoja1").Protect "aBc", 1, 1, 1, 1
End Sub

3) sera necesario evitar que el usuario seleccione mas de una celda a la vez (para prevenir otras eventualidades)
y al mismo tiempo aplicas la propiedad de bloqueada a las celdas que sea necesario
-> en el modulo de codigo de esa hoja:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then ActiveCell.Select
With ActiveCell
If .Locked Then Exit Sub
If Not IsEmpty(ActiveCell) And Not .Locked Then .Locked = True
End With
End Sub

saludos,
hector.

Preguntas similares