Kill
09.05.2003 10:31:19
WilhelmR.
mit folgendem Code versuche ich eine Datei bei Zugriff auf die "verbotenen" Spalten automatisch zu löschen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("P:Z").Hidden = True Then Exit Sub
If Columns("P:Z").Hidden = False Then
ActiveWorkbook.ChangeFileAccess xlReadOnly
Application.DisplayAlerts = False
Kill ActiveWorkbook.FullName
Application.DisplayAlerts = True
ThisWorkbook.Close False
End If
End Sub
Ergebnis ist jedesmal eine Meldung:
" Änderungen vor dem Wechseln des Dateistatusspeichern?"
bei "Nein" wird die Datei gelöscht
bei "ja" erfolgt Meldung "Laufzeitfehler 1004"
"Kann nicht gespeichert werden, wenn VBA Projekt geschützt ist."
Frage: Wie kann ich diesen Projektschutz umgehen, oder vor dem Kill per Code ausser Kraft setzten?
Wilhelm