«SaveAS» macro en excel con la protección de contraseña

Hola tengo esta macro en el archivo de excel:

ActiveWorkbook.SaveAs filename:="C:\SAP Imports\Sales Orders\" & Range("A1") & ".xlsm", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

Esta macro está protegido por contraseña. Whenevr puedo ejecutar esta me sale «tiempo de ejecución» de error y no soy capaz de averiguar qué hay de malo con mi código.

Debo escribir mi contraseña en lugar de escribir «». Por favor avise.

  • ¿Te refieres a la contraseña-protegidas el Proyecto de VBA?
  • No se puede desproteger el proyecto de VBA y, a continuación, ejecutarlo? Si la macro está protegido con contraseña y no tienes el password, entonces ¿cómo va a solucionarlo?
InformationsquelleAutor Nupur | 2011-11-23

2 Kommentare

  1. 0

    Si el directorio no existe, la macro va a fallar.

    Garantizar «C:\SAP las Importaciones\Pedidos de Ventas\» existe antes de ejecutar la macro.

  2. 0

    He creado un libro con la misma cosa y cuando me protegida de la macro y se coloca la contraseña en las líneas que mostraron, a continuación, se guardan bien.

    Esto llevó a un segundo problema, sin embargo, cuando traté de abrir el otro libro. Luego me puse un error diciendo que el archivo es un formato incorrecto. He cambiado tu línea mediante la eliminación de la ".xlsm" y cambiar el formato de archivo para fileformat:=52. Esto terminó haciendo

    ActiveWorkbook.SaveAs filename:="C:\SAP Imports\Sales Orders\" & Range("A1"), FileFormat:=52, Password:="password", WriteResPassword:="password", ReadOnlyRecommended:=False, CreateBackup:=False 

    Cuando me cambié a esto, el libro guardado bien. Cuando abrí la guarda libro lo que me impulsó para las contraseñas que fueron ingresados anteriormente.

    • Si usted no desea macros en el destino del libro, a continuación, cambiar el formato a 51 para su normal .xlsx libro
    • También, si no está ya incluido en el resto de la macro se puede considerar la adición de la Application.DisplayAlerts = False/True líneas para eludir tener que lidiar con las indicaciones.

Kommentieren Sie den Artikel

Bitte geben Sie Ihren Kommentar ein!
Bitte geben Sie hier Ihren Namen ein

Pruebas en línea