Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

@xXx: Dateien automatisch löschen

@xXx: Dateien automatisch löschen
21.12.2003 03:51:32
thomas
Hallo liebes Forum, hallo xXx!

Ich habe mich da noch mal bißchen durchgearbeitet, klappt ja echt alles super!!!!!

Herzlichen Dank nochmal!!!

Nun ist mir aber eine idee gekommen, die das alles bißchen besser machen würde. und zwar, ist es möglich die Datein in diesem Zuge nicht zu löschen, sondern einfach das Öffnen zu verweigern? Also dass eine Datei unter einer Bedingung (hier: Datum) nicht mehr geöffnet werden kann?

Worum es ging (für alle anderen):

Dateien sollten beim öffnen einer Datei unter einer bestimmten Voraussetzung automatisch gelöscht werden.......

Danke Euch allen!!!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: @xXx: Dateien automatisch löschen, NOCH OFFEN
21.12.2003 08:40:37
Hajo_Zi
Hallo Thomas

wenn man schon einen neuen Beitrag anfängt sollte das Problem auch komplett beschrieben werden.

Soll die geöffnete Datei gelöscht werden???


Sub zMloesche()
'   von Jürgen Wenzel
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End Sub




Sub zMloesche_ver()
'   angepast, damit nicht zwischen This und Active gewechselt wird
'   vom Melanie Breden
With ThisWorkbook
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
AW: @xXx: Dateien automatisch löschen, NOCH OFFEN
23.12.2003 00:30:43
thomas
Hey, sorry! Konnte noch nicht antworten! - ich hoffe nun wird der Beitrag noch gelesen -

also, bei deisem Makro ging es darum, dass Dateien zu einem bestimmten Datum gelöscht werden sollten. Nach einer erweiterung habe ich das makro dann so geschrieben, dass die datei gelöscht wird, wenn ein bestimmtes Datum vorliegt und eine bestimmte Zahl im Arbeitsblatt nicht einmgegeben wurde (registriert). Nun kam mir dabei die idee, dass es doch besser sei, wenn darauf die datei nicht komplett gelöscht wird, sondern nur das öffnen verweigert wird......

ich habe das jetzt folgendermaßen gemacht:


Private Sub workbook_open()
If Range("A1") = "01.01.2005" And Range("A2") <> "123" Then _
a = MsgBox("datei wird geschlossen", _
0 + 48, "Liebe(r) " & Application.UserName)
If Range("A1") = "01.01.2005" And Range("A2") <> "123" Then _
ActiveWorkbook.Close
End Sub


wollt doch einfach mal hören, ob das so in ordnung ist..........

mfg
Anzeige
AW: @xXx: Dateien automatisch löschen, NOCH OFFEN
23.12.2003 06:01:38
Hajo_Zi
Hallo Thomas

schaue mal auf meine Homepage da ist ein Beispiel, auf der Seite VBA (nur mit aktivierten Makros).

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige