Guardar archivo de Excel solo si se ingresa contraseña

En el artículo llamado Macro para impedir que se guarde un archivo de Excel exponíamos una macro que no te permitía guardar cambios en un archivo ni guardar una copia del mismo.

El código tiene la debilidad de que si queremos, como creadores, guardar cambios que no querramos que otros modifiquen, debíamos deshabilitar macros para hacer los cambios y luego volver a habilitarlas.

La mejora

Mediante la función InputBox lanzamos un diálogo que nos permite introducir una contraseña, y sólo si ingresamos la adecuada, nos permitirá guardar cambios o guardar una copia.

Código

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Pass = "12345"
    Confirma = InputBox("Escribe una contraseña para continuar.", _
        "EXCELeINFO - Guardar")
    If Confirma = Pass Then
    Else
        MsgBox "No tienes permitido guardar el archivo.", vbCritical, _
            "EXCELeINFO"
        Cancel = True
    End If
End Sub

Animación de la macro en ejecución

guardar archivo de Excel solo si se ingresa contraseña

You may also like...

4 Responses

  1. germantinao says:

    Muy bueno, gracias!

  2. germantinao says:

    Hola Sergio, te hago una consulta, ya que nos tenés acostumbrados a superar nuestras expectativas: ¿puede hacerse que no se muestren los caracteres de la contraseña ingresada? Es decir, que se muestren, por ejemplo, círculos negros como en los formularios web?
    Gracias.
    Germán.

  3. Para hacer el efecto de Contraseña, se deberá crear un formulario y asignar la propiedad PasswordChar a un TextBox.

    Tal como viene en este ejemplo: http://exceleinfo.wordpress.com/2012/03/30/simular-acceso-con-usuario-y-password-en-excel-con-formulario-vba/

  1. November 26, 2012

    […] Guardar archivo de Excel solo si se ingresa contraseña […]

Leave a Reply

Your email address will not be published.

%d bloggers like this: