Guardar archivo

Hola Lazar, en "Opciones de Excel", depende de tu versión estará en un menú u otro, en "Guardar" > "Ubicación de archivo predeterminada" escoges el directorio que prefieras. Eso si, a partir de ese momento ese directorio será en el que guardará sus archivos .xls

Saludos,

Xavier

Quitar MAC para contestar. Gracias.


"Lazar" escribió en el mensaje news:

Hola
El usuario trabaja con una plantilla, ¿ es posible que cuando quiera guardar
el archivo siempre se le guarde en una ubicación especifica, y no donde el
quiera ponerlo ? o sea es posible redirigir el guardado del archivo xls a un
directorio concreto.
Gracias
Saludos
Ramón

Hola Ramón.

Intenta con este código (VBA) en la plantilla:

(en el módulo ThisWorkbook)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Range("micelda").Value = "guardar" Then
Cancel = False
Else
Cancel = True
MsgBox "El libro no se ha guardado.", vbCritical, "Error en
procedimiento"
End If
End Sub

(en un módulo ordinario)
Sub Guarda()
Range("micelda").Value = "guardar"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\Copias\UnaPrueba.xls", _
CreateBackup:=True
Application.DisplayAlerts = True
Range("micelda").ClearContents
End Sub

En la hoja incluye un botón que llame a "Guarda".

Nota: Cambia la ruta por la que corresponda.


Saludos: Antonio.
*******************************

"Lazar" escribió en el mensaje
news:

Hola
El usuario trabaja con una plantilla, ¿ es posible que cuando quiera
guardar el archivo siempre se le guarde en una ubicación especifica, y no
donde el quiera ponerlo ? o sea es posible redirigir el guardado del
archivo xls a un directorio concreto.
Gracias
Saludos
Ramón

Gracias por tu ayuda AnSanVal
Probare tu código
Saludos
Ramón



"AnSanVal" escribió en el mensaje
news:%

Hola Ramón.

Intenta con este código (VBA) en la plantilla:

(en el módulo ThisWorkbook)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Range("micelda").Value = "guardar" Then
Cancel = False
Else
Cancel = True
MsgBox "El libro no se ha guardado.", vbCritical, "Error en
procedimiento"
End If
End Sub

(en un módulo ordinario)
Sub Guarda()
Range("micelda").Value = "guardar"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\Copias\UnaPrueba.xls", _
CreateBackup:=True
Application.DisplayAlerts = True
Range("micelda").ClearContents
End Sub

En la hoja incluye un botón que llame a "Guarda".

Nota: Cambia la ruta por la que corresponda.


Saludos: Antonio.
*******************************

"Lazar" escribió en el mensaje
news:

Hola
El usuario trabaja con una plantilla, ¿ es posible que cuando quiera
guardar el archivo siempre se le guarde en una ubicación especifica, y
no donde el quiera ponerlo ? o sea es posible redirigir el guardado del
archivo xls a un directorio concreto.
Gracias
Saludos
Ramón