Forums Últimos mensajes - Powered by IBM
 

Restringir la opcion guardar

23/06/2007 - 01:35 por Enrique | Informe spam
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...
 

Leer las respuestas

#1 Héctor Miguel
23/06/2007 - 04:04 | Informe spam
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.

Preguntas similares