ich will mit einem Makro die datei erst schreibgeschützt öffnen und die im schreibmodus schliesen wenn sie schreibgeschützt geöffnet ist.? versteht ihr mich ?
Hier mein code der nicht geht weil er meckert das die datei schon geöffnet ist ?
Option Explicit
Sub wechsle_modus()
Dim Antwort As Integer
Antwort = MsgBox("Wollen Sie vor der Änderung in den Lesemodus speichern ?", vbQuestion + _
vbYesNoCancel)
'abbrechen=2 - J a=6 - Nein=7
If Antwort = 2 Then Exit
Sub 'Abbuch nicht wechseln
If Antwort = 6 Then
If ActiveWorkbook.ReadOnly = False Then
ThisWorkbook.Save 'speichern vor dem Wechseln
Workbooks.Open ThisWorkbook.FullName, , True
'wechseln
End If
End If
If Antwort = 7 Then
'wechseln ohne speichern
Workbooks.Open ThisWorkbook.FullName, , True
End If
End Sub
Vielen dank voraus an alle gruß Chris