...
...
Sub ExportarBaseDatos()
Dim DateString As String
Dim red As String
Dim NombreArchivo As String
Dim pregunta As Integer
Dim ruta As String
ThisWorkbook.Protect ("1111"), Structure:=False
Hoja5.Visible = xlSheetVisible
'Hoja que se desea exportar:Sheets("DB").Activate
'Pregunta = MsgBox("¿Desea generar BackUp de la Data?", vbOKCancel, "Excel Consultor")
' If Pregunta = 2 Then Exit Sub
'Zona = Sheets("Hoja1").Range("C1").Value
DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
NombreArchivo = "BackUp BD " & DateString
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
ruta = ActiveWorkbook.Path & "\BackUp BD\" & NombreArchivo & ".xlsx"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=ruta, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close True
MsgBox ("El archivo se guardo con éxito en " & ruta), vbInformation, "Excel Consultor"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Hoja1.Select
Hoja5.Visible = xlSheetHidden
ThisWorkbook.Protect ("1111"), Structure:=True
End Sub