Jump to content

Crear una copia de seguridad de un excel


lphant

Recommended Posts

Buenos días;

 

Tengo una duda para guardar una copia de seguridad de un Excel.

 

A día de hoy estoy usando la instrucción que aparece en la macro adjunta ( ActiveWorkbook.SaveAs Filename:= _ ……. ) que me pone contraseña en la copia de seguridad pero al guardar cambia el archivo en uso.

 

Puede que me confunda pero creo que la instrucción  ( ThisWorkbook.SaveCopyAs ) es la más apropiada para lo que quiero ( crear una copia de seguridad del Excel ), el problema que tengo al usar esta instrucción es que no puedo poner contraseña.

 

Que me aconsejáis para hacer una copia de seguridad de un Excel??, se puedo poner contraseña usando  ( ThisWorkbook.SaveCopyAs )??.

 

Gracias y un saludo,

Guardar_Copia_Seguridad.xlsm

Link to post
Share on other sites

No entiendo muy bien tu problema @lphant , una vez guardado el libro con contraseña, solo tienes que cerrarlo para volver al principal :huh:
 

ActiveWorkbook.SaveAs Filename:= _
RutaCopia & "Copia_Seguimiento_Casa" & " ( " & año & mes & dia & " )", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="Casa", ReadOnlyRecommended:=False, CreateBackup:=False 'Aqui se modifica el tipo de extension que deseas


ActiveWorkBook.Close

 

Link to post
Share on other sites

No

Hace 6 horas, Haplox dijo:

No entiendo muy bien tu problema @lphant , una vez guardado el libro con contraseña, solo tienes que cerrarlo para volver al principal :huh:
 


ActiveWorkbook.SaveAs Filename:= _
RutaCopia & "Copia_Seguimiento_Casa" & " ( " & año & mes & dia & " )", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="Casa", ReadOnlyRecommended:=False, CreateBackup:=False 'Aqui se modifica el tipo de extension que deseas


ActiveWorkBook.Close

 

EL problema es que al guardarlo con esa instrucción solo queda abierto 1 excel con el nombre del de la copia, no tienes opción de volver al anterior excel.

 

Link to post
Share on other sites

Que tal lphant y Haplox

Les comparto éste procedimiento que aplico a todos mis archivos para obtener un respaldo con la fecha actual, el mismo que no me compromete el archivo original y puedo continuar registrando en el mismo... De ahí que si quieres que tenga contraseña, lo puedes adaptar al mismo y seguro te va servir de mucho para tus proyectos.

Sub Respaldo()
Dim strDate, DefPath As String
Dim Path, NombreCarpeta As String
    
    Path = "D:\"
    NombreCarpeta = "RESPALDO SEGUIMIENTO"  'Nombramos la carpeta donde se va a  guardar
    If Dir(Path, vbDirectory) <> "" Then
        If Dir(Path & NombreCarpeta, vbDirectory) = "" Then
        MkDir Path & NombreCarpeta
        End If
    End If

    DefPath = "D:\RESPALDO\"
        If Right(DefPath, 1) <> "\" Then
        DefPath = DefPath & "\"
    	End If

    strDate = Format(Now, " dd mmm yyyy h-mm-ss")
    ruta = DefPath
    nombre = "Copia Seguimiento Casa " & strDate
    ActiveWorkbook.SaveCopyAs ruta & nombre & ".xlsm"
    
    MsgBox "El Archivo para cargar a RESPALDOS se encuentra en: " & vbCrLf & ruta & nombre, vbOKOnly + vbInformation

End Sub

Cualquier inquietud, me avisan por favor

Saludos

Link to post
Share on other sites
Hace 6 minutos , Haplox dijo:

El problema @GALINHO es que SaveCopyAs no permite poner contraseña ni nada

No había caído en cuenta en eso Haplox

Como te dije, aun me falta mucho que aprender y cada día que interactuo en este foro se aprende un poco mas :D.

Pienso al mismo tiempo que cuando obtienes un respaldo por fecha como el que aplico, no tengo necesidad de contraseña al menos que no sea el único que frecuenta el ordenador, entonces si será inminentemente necesaria la contraseña u ocultar la dirección donde fue guardado el archivo que está con el MsgBox del procedimiento que envié en el mensaje anterior.

Esperemos que lphant se pronuncie al respecto a ver que opina.

Saludos

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.


  • Posts

    • Hola @Serch! Adjunto una alternativa empleando una columna auxiliar! Saludos! Ejemplo busqueda de valor correspondiente para cada semana.xlsx
    • Hola buenos dias, solicito de su apoyo ya que necesito encontrar un valor "ID" de una "Tienda" a lo largo de 1 mes y que me de como resultado para cada semana el "ID" de la persona que fue a visitar esa tienda.   Espero me puedan ayudar, adjunto ejemplo e instrucciones dentro de este.   mil gracias y saludos.¡¡¡ Ejemplo busqueda de valor correspondiente para cada semana.xlsx
    • saludos. estoy desarrollando un formulario en los deseo calcular varios textbox y mostrar el resultado en otros, el problema radica cuando los coloco con formato de miles los cálculos no funcionan; por favor si alguien me puede dar una ayuda o indicarme el procedimiento. ya he utilizado el cdbl(replace((.. obteniendo el mismo resultado. adjunto enlace. https://drive.google.com/drive/folders/1mPjlo-c7rCrwALgK9pF20e3J-XQG8Wk6?usp=sharing muchas gracias por su pronta colaboración.
    • Bueno!!, logre hacer que funcione. Este seria el codigo final. ' Modulo NoCoincidencia Dim SerialNoAuditado As Variant On Error GoTo IngresarSerialNoAuditado: SerialNoAuditado = Worksheets("Reg. N-Auditados").Range("B5").Value Resultado = Application.WorksheetFunction.Match(SerialNoAuditado, Worksheets("Laptop").Range("D6:D40005"), 0) If Resultado > 0 Then GoTo SerialAuditado: Else GoTo IngresarSerialNoAuditado: End If ' Aqui es para indicar que el serial esta auditado SerialAuditado: MsgBox "Este equipo fue auditado, por favor registrelo en el modulo correspondiente 'Reg. Entradas o Reg. Salidas'" Borrar_Campos Range("B5").Select Exit Sub IngresarSerialNoAuditado: 'Inicio insertar linea en la hoja registro de equipos no auditados Las etiqueta "NuevoIngreso:" fueron eliminadas. Por favor indiquenme si hay algun error o se puede mejorar el codigo. Agradecido de antemano
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy