Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren einer Datei verhindern

Forumthread: Kopieren einer Datei verhindern

Kopieren einer Datei verhindern
Pepi
Hallo zusammen
Wie kann ist verhindern, dass eine Datei unter einem anderen Namen oder in einem andern Verzeichnis abgespeichert wird. Auch wenn die Datei mit dem Explorer woanders hin kopiert worden ist, soll sie beim öffnen mit einer Meldung erscheinen.
danke für Eure Hilfe Pepi
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Kopieren einer Datei verhindern
27.04.2010 08:36:12
Hajo_Zi
Hallo Pepi,
das könnte man beim öffnen prüfen. Aber deaktiviiert jemand die Makro, nützt es nicht.
Das bekommst Du nicht verhindert.

AW: Kopieren einer Datei verhindern
27.04.2010 15:47:24
Pepi
Hallo Hajo
Habe ich mir noch fast gedacht, da die Dateien aber nur interessant sind, weil sie Makros enthalten, könnte es trotzdem funktionieren.
wie kann ich denn in beforesave() abfragen, wie der Filename und der Pfad heissen, den ich mit "Speichern unter" ausgewählt habe (soll nur möglich sein, wenn identisch mit thisworkbook.fullname)
danke für deine Unterstützung
Pepi
Anzeige
AW: Kopieren einer Datei verhindern
27.04.2010 15:51:43
Hajo_Zi
Halo Peoi,
warum beforesave? Ich würde es doch beim öfnen machen. Prüfen ob Dein Dateiname, ansonsten schliesen.
Speichern Unter würde ich abschalten. 
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then Cancel = True
End Sub
Gruß Hajo
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige