Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Copiar archivo y romper vínculos

18/10/2006 - 18:46 por Bart | Informe spam
Ayuda Hacer una pregunta
Hola de nuevo, siguiendo el tema anterior, planteo esta interrogante:

Cómo se puede copiar un archivo que contiene varias hojas PROTEGIDAS, en
otro, pero rompiendo los VÍNCULOS originales que alimentan de información al
archivo que se desea copiar.

La idea es la siguiente:
Se tiene un ARCHIVO CONSOLIDADO con VARIAS hojas que se alimentan de data de
otros archivos independientes (Indepen1, Indepen2, etc.).
Se desea respaldar este archivo con otro nombre, RESPALDO, pero que NO siga
actualizándose de los archivos independientes.
Por tanto, se piensa realizar con una MACRO la COPIA del ARCHIVO CONSOLIDADO
pero rompiendo los VÍNCULOS.

El problema radica en que los VÍNCULOS no se pueden romper debido a que las
hojas del ARCHIVO CONSOLIDADO y por ende del archivo RESPALDO, DEBEN
permanecer PROTEGIDAS para que el usuario sólo pueda ver la data y NO LA
MODIFIQUE.

Gracias por su ayuda.
email Siga el debateRespuesta 8 respuestasRespuesta Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 KL
18/10/2006 - 18:54 | Informe spam
Y no te ha servido mi respuesta 5 hilos mas abajo?

Saludos,
KL


"Bart" wrote in message news:
Hola de nuevo, siguiendo el tema anterior, planteo esta interrogante:

Cómo se puede copiar un archivo que contiene varias hojas PROTEGIDAS, en
otro, pero rompiendo los VÍNCULOS originales que alimentan de información al
archivo que se desea copiar.

La idea es la siguiente:
Se tiene un ARCHIVO CONSOLIDADO con VARIAS hojas que se alimentan de data de
otros archivos independientes (Indepen1, Indepen2, etc.).
Se desea respaldar este archivo con otro nombre, RESPALDO, pero que NO siga
actualizándose de los archivos independientes.
Por tanto, se piensa realizar con una MACRO la COPIA del ARCHIVO CONSOLIDADO
pero rompiendo los VÍNCULOS.

El problema radica en que los VÍNCULOS no se pueden romper debido a que las
hojas del ARCHIVO CONSOLIDADO y por ende del archivo RESPALDO, DEBEN
permanecer PROTEGIDAS para que el usuario sólo pueda ver la data y NO LA
MODIFIQUE.

Gracias por su ayuda.

Respuesta Responder a este mensaje
#2 Bart
18/10/2006 - 19:18 | Informe spam
Hola KL...

Me sirve sólo en parte, porque implicaría ir copiando cada HOJA del ARCHIVO
CONSOLIDADO hacia el ARCHIVO RESPALDO, no?

Es decir, cómo trabajaría cuando se requiere copiar TODAS LAS HOJAS de un
archivo a otro ?
Gracias...

"KL" wrote:

Y no te ha servido mi respuesta 5 hilos mas abajo?

Saludos,
KL


"Bart" wrote in message news:
> Hola de nuevo, siguiendo el tema anterior, planteo esta interrogante:
>
> Cómo se puede copiar un archivo que contiene varias hojas PROTEGIDAS, en
> otro, pero rompiendo los VÍNCULOS originales que alimentan de información al
> archivo que se desea copiar.
>
> La idea es la siguiente:
> Se tiene un ARCHIVO CONSOLIDADO con VARIAS hojas que se alimentan de data de
> otros archivos independientes (Indepen1, Indepen2, etc.).
> Se desea respaldar este archivo con otro nombre, RESPALDO, pero que NO siga
> actualizándose de los archivos independientes.
> Por tanto, se piensa realizar con una MACRO la COPIA del ARCHIVO CONSOLIDADO
> pero rompiendo los VÍNCULOS.
>
> El problema radica en que los VÍNCULOS no se pueden romper debido a que las
> hojas del ARCHIVO CONSOLIDADO y por ende del archivo RESPALDO, DEBEN
> permanecer PROTEGIDAS para que el usuario sólo pueda ver la data y NO LA
> MODIFIQUE.
>
> Gracias por su ayuda.
>


Respuesta Responder a este mensaje
#3 KL
18/10/2006 - 20:25 | Informe spam
Hola Bart,

El siguiente codigo asume que tus hojas no estan protegidas y no contienen los siguientes objetos que podrian contener formulas:

- nombres definidos
- formatos condicionales
- reglas de validacion
- graficos
- tablas dinamicas
- autoformas o imagenes con formulas asociadas
- etc.

en otras palabras - solo elimina las formulas en celdas

Sub test()
Dim ws As Worksheet
Application.ScreenUpdating = False
ActiveWorkbook.Sheets.Copy
For Each ws In ActiveWorkbook.Worksheets
With ws.UsedRange
.Value = .Value
End With
Next ws
Application.ScreenUpdating = True
End Sub


Saludos,
KL


"Bart" wrote in message news:
Hola KL...

Me sirve sólo en parte, porque implicaría ir copiando cada HOJA del ARCHIVO
CONSOLIDADO hacia el ARCHIVO RESPALDO, no?

Es decir, cómo trabajaría cuando se requiere copiar TODAS LAS HOJAS de un
archivo a otro ?
Gracias..

"KL" wrote:

Y no te ha servido mi respuesta 5 hilos mas abajo?

Saludos,
KL


"Bart" wrote in message news:
> Hola de nuevo, siguiendo el tema anterior, planteo esta interrogante:
>
> Cómo se puede copiar un archivo que contiene varias hojas PROTEGIDAS, en
> otro, pero rompiendo los VÍNCULOS originales que alimentan de información al
> archivo que se desea copiar.
>
> La idea es la siguiente:
> Se tiene un ARCHIVO CONSOLIDADO con VARIAS hojas que se alimentan de data de
> otros archivos independientes (Indepen1, Indepen2, etc.).
> Se desea respaldar este archivo con otro nombre, RESPALDO, pero que NO siga
> actualizándose de los archivos independientes.
> Por tanto, se piensa realizar con una MACRO la COPIA del ARCHIVO CONSOLIDADO
> pero rompiendo los VÍNCULOS.
>
> El problema radica en que los VÍNCULOS no se pueden romper debido a que las
> hojas del ARCHIVO CONSOLIDADO y por ende del archivo RESPALDO, DEBEN
> permanecer PROTEGIDAS para que el usuario sólo pueda ver la data y NO LA
> MODIFIQUE.
>
> Gracias por su ayuda.
>


Respuesta Responder a este mensaje
#4 Jesús Peralta
18/10/2006 - 22:36 | Informe spam
Que tal Bart:
Pues mira yo hago esto pero con 31 hojas una de cada mes,..
te pones en una pestaña de la hoja > seleccionas todas las hojas > entre la
columna A y fila 1 hay un rectangulo aprimelo y automaticamente se
seleccionaran todas las hojas, le das copiar y despues pegado especial >
escoges valores y listo.. todas las hojas de ese archivo perderan los
vinculos y formulas y quedarn solo los datos..

Lo del Mestro KL es mucho mejor y adecuado a como se ve a tus necesidad,..
lo mio es una forma que hago cada mes sencilla.
sauldos

Jesús Peralta
Hermosillo, Sonora, Mexico
el_ultimo_profeta"alt+64"hotmail.com

"Bart" escribió en el mensaje
news:
Hola de nuevo, siguiendo el tema anterior, planteo esta interrogante:

Cómo se puede copiar un archivo que contiene varias hojas PROTEGIDAS, en
otro, pero rompiendo los VÍNCULOS originales que alimentan de información


al
archivo que se desea copiar.

La idea es la siguiente:
Se tiene un ARCHIVO CONSOLIDADO con VARIAS hojas que se alimentan de data


de
otros archivos independientes (Indepen1, Indepen2, etc.).
Se desea respaldar este archivo con otro nombre, RESPALDO, pero que NO


siga
actualizándose de los archivos independientes.
Por tanto, se piensa realizar con una MACRO la COPIA del ARCHIVO


CONSOLIDADO
pero rompiendo los VÍNCULOS.

El problema radica en que los VÍNCULOS no se pueden romper debido a que


las
hojas del ARCHIVO CONSOLIDADO y por ende del archivo RESPALDO, DEBEN
permanecer PROTEGIDAS para que el usuario sólo pueda ver la data y NO LA
MODIFIQUE.

Gracias por su ayuda.

Respuesta Responder a este mensaje
#5 KL
19/10/2006 - 00:57 | Informe spam
Hola chicos,

La verdad es que el mensaje de Jesus Peralta ha conseguido llamar mi atencion hacia este asunto otra vez y hacer que vuelva a leer
la tarea. Creo que si solo se trata de eliminar los vinculos externos (o sea hacia otros archivos), existe una forma mucho mas
eficaz (elimina los vinculos en todos los objetos que los puedan tener) y mas limpia (sin eliminar todas las formulas) y es la
siguiente:

Sub Test()
Dim Vinculos As Variant
With ActiveWorkbook
On Error Resume Next
Vinculos = .LinkSources(xlLinkTypeExcelLinks)
For i = LBound(Vinculos) To UBound(Vinculos)
.BreakLink Vinculos(i), xlLinkTypeExcelLinks
Next i
On Error GoTo 0
.SaveAs .Path & "\" & Format(Now, "YYYYMMDD_HHMMSS") & ".xls"
End With
End Sub

Saludos,
KL


"KL" wrote in message news:%
Hola Bart,

El siguiente codigo asume que tus hojas no estan protegidas y no contienen los siguientes objetos que podrian contener formulas:

- nombres definidos
- formatos condicionales
- reglas de validacion
- graficos
- tablas dinamicas
- autoformas o imagenes con formulas asociadas
- etc.

en otras palabras - solo elimina las formulas en celdas

Sub test()
Dim ws As Worksheet
Application.ScreenUpdating = False
ActiveWorkbook.Sheets.Copy
For Each ws In ActiveWorkbook.Worksheets
With ws.UsedRange
.Value = .Value
End With
Next ws
Application.ScreenUpdating = True
End Sub


Saludos,
KL


"Bart" wrote in message news:
Hola KL...

Me sirve sólo en parte, porque implicaría ir copiando cada HOJA del ARCHIVO
CONSOLIDADO hacia el ARCHIVO RESPALDO, no?

Es decir, cómo trabajaría cuando se requiere copiar TODAS LAS HOJAS de un
archivo a otro ?
Gracias..

"KL" wrote:

Y no te ha servido mi respuesta 5 hilos mas abajo?

Saludos,
KL


"Bart" wrote in message news:
> Hola de nuevo, siguiendo el tema anterior, planteo esta interrogante:
>
> Cómo se puede copiar un archivo que contiene varias hojas PROTEGIDAS, en
> otro, pero rompiendo los VÍNCULOS originales que alimentan de información al
> archivo que se desea copiar.
>
> La idea es la siguiente:
> Se tiene un ARCHIVO CONSOLIDADO con VARIAS hojas que se alimentan de data de
> otros archivos independientes (Indepen1, Indepen2, etc.).
> Se desea respaldar este archivo con otro nombre, RESPALDO, pero que NO siga
> actualizándose de los archivos independientes.
> Por tanto, se piensa realizar con una MACRO la COPIA del ARCHIVO CONSOLIDADO
> pero rompiendo los VÍNCULOS.
>
> El problema radica en que los VÍNCULOS no se pueden romper debido a que las
> hojas del ARCHIVO CONSOLIDADO y por ende del archivo RESPALDO, DEBEN
> permanecer PROTEGIDAS para que el usuario sólo pueda ver la data y NO LA
> MODIFIQUE.
>
> Gracias por su ayuda.
>







Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida