Google-Anzeigen

Hi Leute, ich habe zu so früher Stunde schon wieder ein Problem und hoffe mir kann jemand helfen. Ich Importiere mit unten stehender Funktion ein Excel-Datei welche eine Lesekennwort besitzt. Über ein Feld im Formular wird der User aufgefordert ein Kennwort einzugeben und dieses gebe ich dann beim Öffnen der Datei mit. Bis hierher funktioniert das alles super. Ich bekomme nur ein Problem wenn bereits eine andere Excel Dateigeöffnet ist, er fragt dann immer nochmal nach dem Passwort. Habe jetzt noch eine Funktion gefunden mit der ich alle laufenden Excel Processe abschiesen kann und anschließend meine Datei ohne Probleme zu importieren. Da dies aber eine harte Methode und ich davon ausgehen muss das die Daten in den bereits geöffneten Dateien noch nicht gespeicht sind, gefällt mir diese Methode nicht so. Kann ich irgendwie per VBA auslesen welche Excelfiles momentan geöffnet sind und diese in ein Textfeldschreiben, damit der User weis welche er noch schließen muss? So hier noch die verwendeten Funktionen: ExcelImport (mit Password): ###################################### Public Sub ImportXLS(strFile As String, strPassword As String) Dim oExcel As Object, oWb As Object Set oExcel = CreateObject("Excel.Application") Set oWb = oExcel.Workbooks.Open(FileName:=strFile, Password:=strPassword) DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tbl_konfig", strFile, -1 oWb.Close SaveChanges:=False oExcel.Quit Set oExcel = Nothing End Sub ###################################### Excel-Programme schließen: ###################################### Public Sub killTask() killString = "taskkill /F /IM Excel.exe" Call Shell(killString, vbHide) End Sub ###################################### Danke für eure Hilfe! Gruß Enrico

Google-Anzeigen