[VBA] Datei öffnen, wenn nicht offen - im Hintergrund

[Rabe]

Hi,

von Herber habe ich diesen Code:

Code:

Sub MappeOeffnen()
    'Prüft, ob eine Mappe bereits geöffnet ist
    'falls nicht : Prüft, ob Mappe als Datei im angegebenen Ordner existiert
    'und öffnet diese Mappe falls vorhanden
    '12.06.2009, NoNet

    Dim strOrdner As String, strdateiname As String
    Dim wbMappe As Workbook

    strOrdner = "C:\Dein\Ordner\" 'Mit "\" am Ende !
    strdateiname = "Auswertung.xls"

    On Error Resume Next 'Fehlerbehandlung
    Set wbMappe = Workbooks(strdateiname)
    If Not wbMappe Is Nothing Then
        'wbMappe.Activate
        'MsgBox "Mappe ist bereits geöffnet !"
    Else
        'Wenn Mappe noch nicht geöffnet ist
        If Dir(strOrdner & strdateiname) <> "" Then
            'Mappe aus o.g. Ordner öffnen :
            Set wbMappe = Workbooks.Open(strOrdner & strdateiname, UpdateLinks:=False)
        Else
            MsgBox "Folgende Datei existiert nicht : " & vbf & vbLf & _
                strOrdner & strdateiname, vbOKOnly + vbCritical, "Datei nicht gefunden !"
        End If
    End If

    'Speicher für Objektvariable wieder freigeben :
    Set wbMappe = Nothing
End Sub

Damit bekomme ich die Datei geöffnet und in den Vordergrund geholt. Ich möchte sie aber nur als Datenquelle nutzen.
Wie kann ich es nun machen, daß diese Datei dann ausgeblendet, also nicht sichtbar ist?

[Kuwer]

Hi,

vielleicht so:

Set vbmappe = GetObject(strOrdner & strdateiname)

Gruß Uwe

[Käpt'n Blaubär]

Hallo Ralf,

die Dateien, die ich nur im Hintergrund geöffnet haben will, lade ich problemlos beim Öffnen
in der Normaldatei und hier in "DieseArbeitsmappe". Dabei bleibt die nachgeladene Datei wie
gewünscht im Hintergrund.

    Workbooks.Open Filename:=Left(ThisWorkbook.FullName, 1) & _
                             ":\BETRIEB\9-9001 Testmappe\0_Büro\System\Konten"

[Rabe]

Hi Uwe,

ja, so geht es.
Wie kann ich damit die Datei aber auch gleich schreibgeschützt öffnen?

[Rabe]

Hi Peter,

bei mir wird dann die zweite Datei geöffnet und ich sehe sie in der Taskleiste, sie wird im Vordergrund angezeigt, ist also aktiviert.

[Käpt'n Blaubär]

Hallo Ralf,

Hi Peter,

bei mir wird dann die zweite Datei geöffnet und ich sehe sie in der Taskleiste, sie wird im Vordergrund angezeigt, ist also aktiviert.

... das ist bei mir nicht der Fall. Momentan kann ich das nicht nachvollziehen.
Ich bastele dran.

[Kuwer]

Wie kann ich damit die Datei aber auch gleich schreibgeschützt öffnen?

 Set wbMappe = GetObject(strOrdner & strdateiname)
 wbMappe.Saved = True
 wbMappe.ChangeFileAccess xlReadOnly, , False

Gruß Uwe

[Rabe]

Hi,

danke, so geht es.

Nun noch bei Workbook_BeforeClose

das
wbMappe.Close savechanges:=False

dann ist es, wie ich will.


Die Datei wurde mit der Option: "Schreibschutzempfehlung" gespeichert und wenn sie jemand anderes schon offen hat, dann klappt es.
Wenn sie aber niemand offen hat, kommt nun trotzdem die Abfrage, ob ich sie schreibgeschützt öffnen will.

[Käpt'n Blaubär]

Hallo Ralf,

ich habe es mir mal einfach gemacht und die unendlichen Tiefen meiner Festplatten durchforstet.
Versuche es mal damit

Sub MappeUnsichtbarMachen()
    Workbooks("SICHTBAR.XLS").Windows(1).Visible = False
End Sub



Sub MappeWiederSichtbarMachen()
    Workbooks("SICHTBAR.XLS").Windows(1).Visible = True
End Sub

[Kuwer]

Nun noch bei Workbook_BeforeClose

das
wbMappe.Close savechanges:=False

Du kannst mit

wbMappe.Saved = True

wann immer Du willst Excel vortäuschen, dass die Mappe schon gespeichert ist.

Gruß Uwe