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

Ing. Enrique Neciosup Morales
enrique@expertosenexcelpc.com 
Síguenos en Facebook