Hallo zusammen,
ich brauche Hilfe, werde einfach nicht fündig. Ich habe eine Access-Datenbank und ein Excel übernommen, welches Daten aus der Datenbank holt und dann bis zu seinem Schließen, die Access-Datenbank blockiert. So dass diese nicht ohne Schreibschutz geöffenet werden kann. Die Pflege der Access-DB übernimmt eine andere Kollegin, als die, welche das Excel benötigt und ganztägig darin arbeitet.
Kann ich in dem Aufruf zur Datenaktualisierung irgendwie unterbringen, dass die Access-DB wieder freigegeben wird?
Private Sub DatenAktualisieren()
Call QuelleMerken
Sheets("Adressen").Activate 'wechsele zu AB zur Datenaktualisierung
ActiveSheet.Unprotect "LoTafel"
Range("A4").QueryTable.Refresh BackgroundQuery:=False 'Daten aus ACCESS aktualisieren
Rows("5:999").Select
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A4").Select
ActiveSheet.Protect "LoTafel"
Call AktiveTour
Call Zurück
Sheets("Adressen").Visible = False
End Sub
Liebe Grüße, Vielen Dank im Voraus,
Andreas
ich brauche Hilfe, werde einfach nicht fündig. Ich habe eine Access-Datenbank und ein Excel übernommen, welches Daten aus der Datenbank holt und dann bis zu seinem Schließen, die Access-Datenbank blockiert. So dass diese nicht ohne Schreibschutz geöffenet werden kann. Die Pflege der Access-DB übernimmt eine andere Kollegin, als die, welche das Excel benötigt und ganztägig darin arbeitet.
Kann ich in dem Aufruf zur Datenaktualisierung irgendwie unterbringen, dass die Access-DB wieder freigegeben wird?
Private Sub DatenAktualisieren()
Call QuelleMerken
Sheets("Adressen").Activate 'wechsele zu AB zur Datenaktualisierung
ActiveSheet.Unprotect "LoTafel"
Range("A4").QueryTable.Refresh BackgroundQuery:=False 'Daten aus ACCESS aktualisieren
Rows("5:999").Select
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A4").Select
ActiveSheet.Protect "LoTafel"
Call AktiveTour
Call Zurück
Sheets("Adressen").Visible = False
End Sub
Liebe Grüße, Vielen Dank im Voraus,
Andreas