Al proteger por VB no bloquea ???

10/11/2005 - 00:02 por Javichu | Informe spam

Hola de nuevo!
Tengo un código que funciona perfectamente salvo por una cosa.
Cuando yo, bloqueo manualmente una hoja e introduzco una password, l
permito a los usuarios SOLAMENTE seleccionar celdas DESBLOQUEADAS.

Private Sub CommandButton2_Click()
Hoja1.Unprotect ("1234")
Range( _

"A2:J3,L2:M3,B5:M5,B10,B11,B12,A14:M19,C39,C40,B42,B43,C61,C62,C63,C64,C65,C74,C75,C76,C77,C78,C79
_
).ClearContents
Hoja1.Protect ("1234")
Hoja11.Unprotect ("12345")
Worksheets("Recortes").Rang
_("k2,k4,k9,k11,c16,c18,g16,g18,k16,k18,r2,r4,r9,r11,r16,r18").ClearContents
Hoja11.Protect ("12345")
Range("A2:J3").Select
End Sub

¿Porque una vez ejecutado el anterior código, la hoja está bloquead
con la misma password, pero SI se pueden seleccionar las celda
BLOQUEADAS???

¿No hay ninguna opcion, la cual solo deje seleccionar las celda
DESBLOQUEADAS??

Gracias de nuevo por vuestro tiempo y por vuestra colaboración.
Saludos

Javich
Javichu's Profile: http://www.msusenet.com/member.php?useridB9
View this thread: http://www.msusenet.com/t-187117771

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Botones que no ejecutan al proteger hoja

Leer las respuestas

#1 Héctor Miguel

12/11/2005 - 11:58 | Informe spam

hola, Javichu !

Tengo un codigo que funciona perfectamente salvo por una cosa.
Cuando yo, bloqueo manualmente una hoja e introduzco una password
le permito a los usuarios SOLAMENTE seleccionar celdas DESBLOQUEADAS.
Private Sub CommandButton2_Click()
Hoja1.Unprotect ("1234")
Range( _
"A2:J3,L2:M3,B5:M5,B10,B11,B12,A14:M19,C39,C40,B42,B43,C61,C62,C63,C64,C65,C74,C75,C76,C77,C78,C79" _
).ClearContents
Hoja1.Protect ("1234")
Hoja11.Unprotect ("12345")
Worksheets("Recortes").Range _
("k2,k4,k9,k11,c16,c18,g16,g18,k16,k18,r2,r4,r9,r11,r16,r18").ClearContents
Hoja11.Protect ("12345")
Range("A2:J3").Select
End Sub
Porque una vez ejecutado el anterior codigo, la hoja esta bloqueada... pero SI se pueden seleccionar las celdas BLOQUEADAS???
No hay ninguna opcion, la cual solo deje seleccionar las celdas DESBLOQUEADAS??

1) [hasta donde se]... la 'primera vez' que una hoja se protege [ya sea por codigo o por la interfase del usuario]...
NO tiene 'habilitada' la opcion para 'prohibir' la seleccion de celdas bloqueadas :-(
2) una vez que 'esta' caracteristica se ha establecido [quitando la marca a la opcion de celdas 'bloqueadas']...
SIGUE estando 'operable' con cada des/re/proteccion a esa hoja :))
3) si la 'primera' vez ocurre por codigo... -> ANTES de establecer la proteccion... -> usa la siguiente instruccion:
Worksheets("nombre de la hoja").EnableSelection = xlUnlockedCells
[seguida de la instruccion que le pone el password]
-> [obviamente] las celdas 'permitidas' [o desbloqueadas] ya debieron haberse establecido ;)

saludos,
hector.

Responder a este mensaje

#2 Javichu

13/11/2005 - 23:15 | Informe spam

Eres un genio Hector...Gracia

Javich
Javichu's Profile: http://www.msusenet.com/member.php?useridB9
View this thread: http://www.msusenet.com/t-187117771

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida