miércoles, 7 de noviembre de 2012

Como evitar que un archivo de Excel lo almacenen con otro nombre


Para evitar que a un archivo de Excel lo almacenen con otro nombre (es decir, con la opción Guardar Como) debemos entrar al editor de Visual Basic for Application.


Para ello, presionamos las teclas ALT - F11, y se activara la ventana del Visual Basic.

Estando en Visual Basic, haremos doble clic en el objeto This Workbook y escribiremos el siguiente código:


Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim lReply As Long
If SaveAsUI = True Then
    lReply = MsgBox("No tiene permiso para guardar este " & _
        "libro con otro nombre. ¿Desea guardarlo con eI mismo nombre?", vbQuestion + vbOKCancel)
    Cancel = (lReply = vbCancel)
    If Cancel = False Then Me.Save
        Cancel = True
        End If

End Sub



Luego, cerramos el Visual Basic y retornamos al Excel

Ya allí  le damos la opción Guardar Como, y nos aparece el siguiente mensaje:


De esta manera, ya ahora,  nadie puede guardar ese archivo con otro hombre.

Espero que este truco les sirva

Saludos cordiales