Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Al proteger por VB no bloquea ???

10/11/2005 - 00:02 por Javichu | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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.

Preguntas similares

 

Busqueda sugerida :