ich habe ein kleines Problem, wo ich nicht weiss wie ich es machen soll.
Und zwar habe ich folgendes Problem.
Ich möchte beim öffnen einer Datei Abfragen ob diese Schreibgeschützt ist, ist dies der Fall so soll diese ohne speichern geschlossen werden.
Mein Code sieht bis jetzt wie folgt aus:
Sub pruefung_open()
If ActiveWorkbook.ReadOnly = True Then
ActiveWorkbook.Close savechanges:=False
Hinweis = MsgBox("Wahrscheinlich wird die Datei gerade verwendet" & Chr(10) & "Bitte versuchen Sie es später nocheinmal.", vbInformation, "Vorführwagenverwaltung")
Else
End If
End Sub
Kann man dies auch als Funktion machen, z.B.:
IF IstReadOnly("xy.xls") Then ActiveWorkbook.Close savechanges:=False
Leider weiss ich nicht wie man Funktionen schreibt, vielleicht könntet Ihr mir da helfen?
Danke schonmal
Steffen Schmerler