Speichern einer schreibgeschützten Datei
20.01.2006 00:11:08
TAy
mit der u.a. VBA-Code möchte ich die Änderungen in meiner schreibgeschützten Excel-Datei sicher. PROBLEM: Da die Main-Datei schreibgeschützt ist, müsste ich eine Aufforderung von Excel erhalten, ob ich eine Kopie speichern möchte, was sie nicht tut. Wie müsste ich mein VBA-Code ändern, dass wenn die Datei schreibgeschützt ist, ich aufgefordert werde eine Kopie anzulegen?
Besten Dank im Voraus.
TAy
Sub Save()
On Error Resume Next
Dim Frage
Frage = MsgBox("Sollen Ihre Änderungen gesichert werden?", 51, "Sichern")
If Frage = vbYes Then
ThisWorkbook.Save
End If
If Frage = vbNo Then
End If
If Frage = vbAbort Then
End If
End Sub
Anzeige