Arbeitsmappe erneut öffnen
03.06.2020 15:34:57
Albert
wenn ich eine Arbeitsmappe schreibgeschützt geöffnet habe und
ich möchte in der Arbeitsmappe Änderungen vornehmen dann
habe ich bisher mit diesem Makro die Arbeitsmappe ohne Schreibschutz
mittels Button in der schreibgeschützten Arbeitsmappe geöffnet.
Dieses Makro hat in Excel 2010 auch einwandfrei funktioniert.
Jedoch jetzt mit Excel 2019 funktioniert das erneute Öffnen der Arbeitsmappe nicht mehr.
Der Befehl Workbooks.open wird nicht ausgeführt.
Meine Frage: gibt es eine Einstellung oder einen anderen Befehl der die Arbeitsmappe wieder ö _
ffnet?
Sub Datei_zum_Bearbeiten_Öffnen()
ARBNAME = ThisWorkbook.Name
Dim strFile As String
Application.DisplayAlerts = False
On Error GoTo ENDE
strFile = "Y:\Excellisten\Albert\" & ARBNAME
If FileStatus(strFile) = XL_CLOSED Then
Call Modul5.Zeitmakro
Workbooks.Open Filename:=strFile
ElseIf FileStatus(strFile) = XL_OPEN Then
MsgBox ("DATEI IST IM MOMEMT ZUM BEARBEITEN GEÖFFNET" & Chr(10) & Chr(10) & " DATEI KANN _
NICHT ZUM BEARBEITEN GEÖFFNET WERDEN")
End If
ENDE:
Application.DisplayAlerts = True
End Sub
LG Albert