Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Desproteger hoja al ejecutar una macro

24/06/2006 - 01:46 por gejimo | Informe spam
Ayuda Hacer una pregunta
Hola Señores,
Les agradecería me pudieran ayudar con el siguiente problema: "Necesito
controlar la hora y fecha en que los usuarios de un archivo introducen
información en la columna "D7" del mismo, para ello, introduje la
siguiente fórmula en la celda "C7"
si(D7<>"", ahora(),"")
Como no quería que se actualizara esta fórmula, mi solución fue que
mediante una macro se copiara como valor los resultados de esta fórmula y
como no quería que modificaran dicho valor, protegí la hoja.
Todo funcionó de maravilla hasta antes de proteger la hoja, una vez que lo
hice, me mandó siempre el mensaje de que la hoja estaba protegida y, por
ende, le era imposible hacer esa copia especial de la celda.
¿Qué puedo hacer?
Les copio la macro:
Sub Macro1()
' Proceso = InputBox("Proceso?")
Periodo = InputBox("Periodo?")
Ejecutivo = InputBox("Ejecutivo?")
Range("C7").Select
ActiveCell.FormulaR1C1 = Proceso
Range("D7").Select
ActiveCell.FormulaR1C1 = Periodo
Range("E7").Select
ActiveCell.FormulaR1C1 = Ejecutivo
Range("c2").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 isaac
24/06/2006 - 04:07 | Informe spam
Hola Gerardo
utiliza los siguiente:

Application.ScreenUpdating = False 'AL INICIO DE LA EJECUCION DE UNA MACRO
TE AYUDA A EVITAR EL MOLESTO PARPADEO
' DE PANTALLA
MIENTAS SE EJECUTA LA MACRO
ActiveSheet.Unprotect Password = Y6dhet5 ' ESTA SETENCIA QUITA EL PASSWORD
ASIGNADO POR LA MACRO CAMBIA "Y6DHET5" POR '
'TU
PASSWORD

'AQUI EN MEDIO PON TU CODIGO COMPLETO

Hoja1.Protect Password = Y6dhet5, DrawingObjects:=True, Contents:=True,
Scenarios:=True
Application.ScreenUpdating = True

' ESTA SETENCIA EN LA HOJA1 AL TERMINAR TU MACRO LA VUELVE A PROTEGER CON EL
PASS "Y6DHET5", TEN ENCUENTA QUE SI PROTEGES LA HOJA CON PASSWORD DISPARADO
DESDE LA MACR, SOLO LO VAS APODER QUITAR CON LA MACRO QUE TIENE LA SETENCIA
PARA DESPROTEJER, ES DECIR NO FUNCIONA -HERRAMIENTAS- DESPROTEGER HOJAS DEL
MENU NORMAL

Saludos Comenta

Isaac

"Gerardo "Jiménez"" escribió en el mensaje
news:
Hola Señores,
Les agradecería me pudieran ayudar con el siguiente problema: "Necesito
controlar la hora y fecha en que los usuarios de un archivo introducen
información en la columna "D7" del mismo, para ello, introduje la
siguiente fórmula en la celda "C7"
si(D7<>"", ahora(),"")
Como no quería que se actualizara esta fórmula, mi solución fue que
mediante una macro se copiara como valor los resultados de esta fórmula y
como no quería que modificaran dicho valor, protegí la hoja.
Todo funcionó de maravilla hasta antes de proteger la hoja, una vez que lo
hice, me mandó siempre el mensaje de que la hoja estaba protegida y, por
ende, le era imposible hacer esa copia especial de la celda.
¿Qué puedo hacer?
Les copio la macro:
Sub Macro1()
' Proceso = InputBox("Proceso?")
Periodo = InputBox("Periodo?")
Ejecutivo = InputBox("Ejecutivo?")
Range("C7").Select
ActiveCell.FormulaR1C1 = Proceso
Range("D7").Select
ActiveCell.FormulaR1C1 = Periodo
Range("E7").Select
ActiveCell.FormulaR1C1 = Ejecutivo
Range("c2").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub


Preguntas similares

 

Busqueda sugerida :