Eingeschränktes Öffnen
18.05.2006 10:47:31
thomas
bin gerade dabei über VBA einen Code für das eingeschränkte öffnen einer Arbeitsmappe zuerstellen, - finde den Fehler nicht.
Arbeitsmappe soll max. 5 mal geöffnet werden, Eingabe automatisch speichern,keine Rückmeldung, dann komplettes löschen mit " Kill ".
So habe ich es einegeben, funktioniert aber nicht... sorry
Kann jemand mal draufschauen u. korrigieren?
Private Sub Workbook_Open()
Range("A1") = Range("A1") + 1
If Range("A1") > 5 Then
MsgBox "Ihre Testzeit ist abgelaufen!"
ActiveWorkbook.ChangeFileAccess xlWriteOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close SaveChanges = True
Application.DisplayAlerts = False
End If
End Sub
Danke Thomas
Anzeige