Schliesen.Abfrage.Speichern.VBA-Problem
10.11.2006 09:57:23
Fabio
folgende Themen habe ich :
Mit dem folgenden "kurzen" Script lasse ich die Datei beim Schliessen speichern :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub
Zwei Probleme dazu :
a) Ich hätte gerne eine Abfrage ob speichern überhaupt gewünscht ist
-> aber wie ?
b) Wenn die Datei "schreibgeschützt" geöffent ist, dann soll natürlich nicht gespeichert werden - und auch keine Anfrage kommen. Wie kann ich das am einfachsten hinbekommen ?
Es gibt ja die Möglicheit :
If ActiveWorkbook.ReadOnly Then
Else
End If
etc...
-> nur da weiß ich nicht genau, wie ich das einbinden kann in die Speicher-Abfrage...
Wäre das eine Lösung ? (habe ich nicht probiert, weil ich mich damit viel zu wenig auskenne !)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveWorkbook.ReadOnly Then
?was muss ich hier eingeben, damit er die Tabelle einfach schliesst ?
Else
ActiveWorkbook.Save
End If
End Sub
Etwas ratloser Fabio
Danke !