RANGO QUE SE INCREMENTE Y ESTE PROTEGIDO.. RESPUESTAS..?

4 envíos / 0 nuevos
Último envío
premyer
Imagen de premyer
Offline
última acción: Hace 10 años 9 meses
alta: 24/09/2009 - 14:34
Puntos: 35
RANGO QUE SE INCREMENTE Y ESTE PROTEGIDO.. RESPUESTAS..?

Necesito saber como se hace lo siguiente,que cada vez que yo abra una hoja de calculo de excell especifico, que en este caso se llama Factura,un rango de celda en este caso G1:G1,CONTENGA UNA MACRO QUE CADA VEZ QUE YO ABRA EL DOCUMENTO ESE RANGO SE INCREMENTE EN 1,Y QUE MANTENGA ESE RANGO PROTEGIDO ES DECIR QUE NADIE PUEDA MODIFICARLO,LOS DEMÁS RANGOS DE LA HOJA DE CALCULO SE PUEDEN MODIFICAR ,ya hice la macro pero cuando protejo el rango me da error,sin mas quisiera puedan ayudarme y gracias de antemano.

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 20 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10680
Re: RANGO QUE SE INCREMENTE Y ESTE PROTEGIDO..RESPUESTAS..?

entiendo que tienes la hoja protegida, con todas las celdas desbloqueadas, excepto la que necesitas para la numeración automática.

¿Cuándo se produce el error? Si la hoja está protegida y desde la macro intentas cambiar el valor no te dejará (porque está también protegida para la macro)

Intenta a desproteger la hoja desde la macro, realizar el cambio y volver a protegerla. De esta manera cuando quede disponible para el usuario continuará protegida y no podrá modificar la numeración.


------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.
agradecimientos

 

------
Ya sé Excel, pero necesito más.

premyer
Imagen de premyer
Offline
última acción: Hace 10 años 9 meses
alta: 24/09/2009 - 14:34
Puntos: 35
Re: RANGO QUE SE INCREMENTE Y ESTE PROTEGIDO..RESPUESTAS..?
Hola Gracias,yo hice esta rutina,me podrías ayudar en como hacer desproteger desde la macro ese rango,realmente no se,cada vez que yo abra el libro que en el evento open del libro se desproteja el rango y se incremente y que al incrementarse se proteja de nuevo,como se haría,? Private Sub Workbook_Open() Range("G1:G1") = Range("G1:G1") + 1 Prueba.ThisWorkbook.Save End Sub Muchas gracias de antemano
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 20 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10680
métodos Protect y Unprotect

Tanto el libro como cada hoja tienen los métodos Protect y Unprotect para activar y desactivar la protección. Tienen diferentes argumentos según lo que se quiera bloquear.

por ejemplo si activas la hoja donde se encuentra el rango

Private Sub Workbook_Open()
'... activas la hoja
 ActiveSheet.Unprotect
 Range("G1:G1") = Range("G1:G1") + 1
 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'...resto de la macro
End Sub

para saber los argumentos de Protect, yo grabaría una macro protegiendo la hoja a mano para ver lo que necesitas.


------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.
agradecimientos

 

------
Ya sé Excel, pero necesito más.