Exportar a excel una tabla desde Access y protegerlo con contraseña
Me gustaría exportar desde Access una tabla a excel y proteger este archivo con una contraseña sin tener que abrir el Excel. El código lo ejecuto desde Access.
1 Respuesta
Respuesta de Jacinto Trillo Jareño
1
Alex: En un Formulario pones un Botón de Exportar, que puedes llamar (por coherencia con lo que te adjunto) >>BtnExportExcelYPass
Copias y pegas éste código en el evento Click
Private Sub BtnExportExcelYPass_Click()
Dim RutaExport As String
'Establecemos la Ruta para guardar el Fichero
RutaExport = Application.CurrentProject.Path
'Exportamos la Tabla (TBNumeros) >> A cambiar por la el Nombre del Usuario
DoCmd.OutputTo acOutputTable, "TBNumeros", acFormatXLSX, RutaExport & "\UnFichero.xlsx"
'Para ésto necesitamos la "Referencia" >> Microsoft Excel 16.0 Object Library
'Declaramos Variables
Dim AppExcel As Excel.Application
Dim ElLibro As Excel.Workbook
Dim LaHoja As Excel.WorkSheet
Dim ElFichero As String
'Establecemos valores
ElFichero = CurrentProject.Path & "\UnFichero.xlsx"
Set AppExcel = CreateObject("Excel.Application")
Set ElLibro = AppExcel.WorkBooks.Open(ElFichero)
Set LaHoja = ElLibro.Sheets(1)
'Protegemos la Hoja del Libro
ActiveSheet.Protect ("UnaClave") ' La contraseña con la que quieres proteger
'Guardamos
ElLibro.Save
ElLibro.Close SaveChanges:=False
'Cerramos Excel
AppExcel.Quit
'Quitamos las instancias
Set AppExcel = Nothing
Set ElLibro = Nothing
Set LaHoja = Nothing
'Lanzamos el mensaje de Terminado
MsgBox "Si todo ha ido bien la Hoja del libro que acabas de crear estará protegida", vbInformation, "LIBRO PROTEGIDO"
End SubComo dice el mensaje, si todo va bien tendrás la "Hoja" protegida, en éste caso con la Clave >>
"UnaClave" Un saludo >> JTJ
