A further search of this forum gave me the answer which I have repeated below.
Option Compare Database
Public xlapp As New Excel.Application
Public Sub ImportAll()
Dim strPath As String
Dim strFileName As String
Dim strPass As String
strPath = "G:\C\B\T\"...
How do you to set up VBA code to read data from an Excel workbook that has a password on the workbook and an autoexec macro that requests another password? The following code works if the Excel spreadsheet is not protected.
DoCmd.TransferSpreadsheet transfertype:=acImport...
