Restringir la opcion guardar

hola, Enrique !

... un libro... lo guardo en la red del lugar donde trabajo para que todos lo puedan bajar y tenerlo actualizado
... algunos lo abren desde la red... y lo guardan con las modificaciones que... le hicieron
... cuando otro lo baja, ya no esta tal y como deberia
... es posible... algun macro... restrinja la opcion guardar... y... solo quede... la opcion guardar como desde... archivo?
... los que quieran guardarlo tendran... una copia... en el lugar que ellos elijan y no puedan modificar el archivo matriz...

op1: guardalo como .ZIP y asi estarias *obligando* [a todos] a bajarse una copia y descomprimirla donde la necesiten :))

op2: si no hay riesgo de que deshabiliten las macros, prueba comprobando que al guardar no sea el archivo 'original'
[p.e.] con instrucciones como las siguientes en el modulo de codigo de tu libro [ThisWorkbook]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ThisWorkbook.FullName = "aqui la ubicacion de red y el nombre del archivo ORIGINALES.xls" _
Then Application.Dialogs(xlDialogSaveAs).Show "Copia en " & Format(Date, "dd-mm-yy ") & ThisWorkbookName
End Sub

[probablemente] existiran mas alternativas/variantes/... [segun igual numero de eventualidades/necesidades/...]
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Enrique..
No sé si mi respuesta te seá de ayuda, pero..
¿Y si haces marcas como "Solo LEctura", el fichero cuando lo pones en el
recurso compartido?...
Cuando intente guardar cambios, sólo podrán hacerlo en otra ubicación que no
sea la original

Saludos...



"Enrique" escribió en el mensaje
news:

Tengo un libro de excel el cual contiene como 25 hojas y el cual actualizo
cada cierto tiempo, sin embargo lo guardo en la red del lugar donde
trabajo
para que todos lo puedan bajar y tenerlo actualizado. Sin embargo algunos
lo
abren desde la red, le hacen modificaciones y le le dan click al diskito
de
guardar y lo guardan con las modificaciones que ellos ya le hicieron, de
modo
que cuando otro lo baja, ya no esta tal y como deberia.
por ello mi pregunta va en este campo, es posible que con algun macro se
restrinja la opcion guardar al darle click al diskito y que solo quede
activada la opcion guardar como desde el menu archivo? asi los que quieran
guardarlo tendran que guardar una copia nada mas en el lugar que ellos
elijan
y no puedan modificar el archivo matriz.

no se si alguien me ayuda...
o alguna otra opcion que pueda usar...

muchas gracias por la ayuda Hector en verdad esta resultando bien. solo que
pasa una cosa, cuando le doy al diskito guardar rapido me abre el cuadro de
dialogo guardar como, pero si yo en lugar darle click en aceptar y guardarlo
en la ubicacion que yo quiera, le doy click en cancelar, me guarda lo que yo
haya hecho en el archivo que esta en la red.
se puede hacer algo para que eso no suceda?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ThisWorkbook.FullName = "aqui la ubicacion de red y el nombre del archivo ORIGINALES.xls" _
Then Application.Dialogs(xlDialogSaveAs).Show "Copia en " & Format(Date, "dd-mm-yy ") & ThisWorkbookName
End Sub

[probablemente] existiran mas alternativas/variantes/... [segun igual numero de eventualidades/necesidades/...]
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, Enrique !

... pasa una cosa, cuando le doy al... guardar... abre el cuadro de dialogo guardar como
pero si... le doy click en cancelar, me guarda lo que yo haya hecho en el archivo que esta en la red.
se puede hacer algo para que eso no suceda?

alargando un poquitin el codigo :-( o aprovechando la opcion de la propuesta de Gustavo ;)

si prefieres alargar el codigo, prueba con algo +/- como lo siguiente [en el mismo modulo de codigo]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Me.FullName = "aqui la ubicacion de red y el nombre del archivo ORIGINALES.xls" Then
Dim NuevoNombre
NuevoNombre = Application.GetSaveAsFilename( _
"Copia en " & Format(Date, "dd-mm-yy ") & Me.Name, "Archivos de Excel (*.xls), *.xls", , _
"Selecciona por favor una nueva ubicacion y nombre para tus modificaciones !!!")
If NuevoNombre <> False Then
Application.EnableEvents = False
Me.SaveAs NuevoNombre
Application.EnableEvents = True
Else
Cancel = True
End If
End If
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.