ReadOnly

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ReadOnly

15.08.2017 16:25:56

mmat

AW: ReadOnly

15.08.2017 18:27:04

Kai

AW: ReadOnly

15.08.2017 22:37:58

fcs

AW: ReadOnly

16.08.2017 20:08:29

Kai

AW: ReadOnly

16.08.2017 20:19:26

Kai

AW: ReadOnly

16.08.2017 20:54:48

Kai

Im Workbook_open werden nur Tabellenblätter ausgeblendet und sonst noch kleinere Makros ausgeführt. Die habe ich aber alle schon einmal deaktiviert. Der Fehler kommt immer bei dem Makro Workbook_open.
Ich hab noch einmal ein bisschen rumgespielt, jetzt bekomme ich die Fehlermeldung:
"Datei.xlsm ist bereits geöffnet. Wenn Sie es erneut öffnen, verlieren Sie damit alle Änderungen, die Sie eingegeben haben. Soll Datei.xlsm erneut geöffnet werden?"
- Wenn ich auf "ja" klicke, dann öffnet er die Datei noch einmal im Schreibschutzmodus.
- Wenn ich auf "nein" klicke, dann kommt die Fehlermeldung Laufzeitfehler 1004. Die Methode 'Open' für das Objekt 'Workbooks' ist fehlgeschlagen.
Ich kann leider keine Beispieldatei hochladen, da es im Firmennetzwerk liegt.
Ich will das Dokument einfach nur schreibgeschützt öffnen und die Abfrage "Schreibgeschützt öffnen?" verhindern.
Mich verwundert nur, dass bis gestern alles ohne Probleme funktioniert hat.
Jemand ne Idee?

Hallo Kai,
in deiner Frage sieht der Dateiname etwas komisch aus bezüglich "/" und "\":
"\\C:\Pfad/Datei.xlsm"
Bei mir sieht ein Dateiname aus einem lokalen Verzeichnis in einem aufgezeichneten Makro so aus:

    Workbooks.Open Filename:="C:\Users\Public\Test\Archiv\Datei.xlsm", _
ReadOnly:=True

Gibt es in der zu öffnenden Datei ein Workbook_Open-Ereignismakro, das nicht so ganz harmoniert.
Dann deaktiviere die Ereignismakros wärend die Datei geöffnet wird und aktiviere sie danach wieder.
Um dem Dateimysterium auf die Spur zukommen würde ih das Open-Ereignismakro zum Testen etwa wie folgt erweitern.
Gruß
Franz

Private Sub Workbook_Open()
Dim varFile As Variant
Dim strPfad_CL As String
On Error GoTo Fehler
strPfad_CL = "C:\Users\Public\Test\Archiv\" & "Datei22.xlsm" 'CL-Datei
If Dir(strPfad_CL) = "" Then
Select Case MsgBox("Datei nicht gefunden:" & vbLf & strPfad_CL & vbLf & vbLf _
& "OK = Datei manuell öffnen", vbOKCancel, _
"Makro: Workbook_Open")
Case vbOK
varFile = Application.GetOpenFilename("Excel-Makro-Datei (*.xlsm),*xlsm", _
Title:="Bitte Datei für CL-Object auswählen")
If varFile = False Then
GoTo Fehler
End If
MsgBox "gewählte Datei:" & vbLf & varFile & vbLf _
& "eigentlich zu öffnende CL-Datei:" & vbLf & strPfad_CL, _
vbOKOnly, "Test-Workbook_Open"
Set CL = Application.Workbooks.Open(Filename:=varFile, ReadOnly:=True)
Case vbCancel
GoTo Fehler
End Select
Else
Set CL = Application.Workbooks.Open(Filename:=strPfad_CL, ReadOnly:=True)
End If
Application.DisplayFullScreen = True
'### Fehlerbehandlung ###
Fehler:
With Err
Select Case .Number
Case 0 'alles OK
Case 1004
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description & vbLf & vbLf _
& "Datei nicht gefunden:" & vbLf _
& strPfad_CL
'Aktion nach Fehler:
Resume Next
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread