Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
696to700
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
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei verschieben verhindern

Datei verschieben verhindern
18.11.2005 17:41:08
tina
Hallo,
ich habe ein problem.
Und zwar:
Ich habe einen Urlaubsplan für die Kollegen bereit gestellt.
Jeder soll seinen Urlaub eintragen und sehen können wer wann Urlaub nehmen möchte.
Nun kommt es häufiger vor, dass die Anwender die Datei versehentlich in einen anderen Ordner verschieben.
Kann mann dieses irgendwie unterbinden?
Vielen Dank für Eure Hilfe
Gruss Tin@
Ne Rückmeldung ist immer gut. ;)

22
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei verschieben verhindern
18.11.2005 17:46:25
Matthias
Hallo Tina,
wie wäre es, wenn du die Datei selbst irgendwo im Verzeichnisbaum "vergräbst" und den Kollegen nur eine Verknüpfung zur Datei zur Verfügung stellst (z.B. auf dem Desktop)?
Gruß Matthias
AW: Datei verschieben verhindern
18.11.2005 17:56:02
tina
Hi Matthias,
das habe ich getan.
Aber durch absolvieren eines Office Kurses, kennt jeder die Möglichkeit über Arbeitsplatz, Laufwerk auswählen usw. den Weg zur Datei.
Und dabei passiert es *grummel*
Kann mann das nicht evtl. über VBA ausschalten, das Verschieben?
Weiterhin vielen Dank für Eure Hilfe
Gruss Tin@
Ne Rückmeldung ist immer gut. ;)
AW: sry, vergessen. noch offen
18.11.2005 17:56:40
tina
Gruss Tin@
Ne Rückmeldung ist immer gut. ;)
Anzeige
AW: sry, vergessen. noch offen
18.11.2005 18:18:42
Frank
Hallo Tina,
so wie Du es beschreibst wird die Datei vorsätzlich verschoben. Ich kenne wenige Anwender, die sich die Mühe machen, eine verlinkte Datei über die Ordnerstruktur direkt zu suchen (und dann noch zu verschieben)!
Ein Lösungsvorschlag:
Je nach Dateisystem des Servers muss Du mit den Zugriffsrechten "spielen". Wenn Du den Anwendern auf einem NTFS Laufwerk zum Beispiel das Recht zum Löschen entziehst, können die Anwender sich selbst zwar eine Kopie der Datei ziehen, die Originaldatei bekommen sie aber so nicht weg!
Gruß Frank.
AW: sry, vergessen. noch offen
18.11.2005 20:04:33
Bernd
hi tina,
alles per vba:
versuch mal in der worbook open auszulesen, in welchem pfad sich die datei befindet.
wenn der pfad korrekt ist, dann mach nichts.
wenn der pfad nicht korrekt ist, schreibe in einer variablen den pfad, speichere die mappe unter korrektem namen und pfadangabe, lösche die falsche mappe (den pfad haste ja in einer variablen.
sollte klappen, wenn ich mich nicht irre.
(ich werde da mal ein code zusammen basteln, könnte aber bis morgen dauern, weil ich heute noch was vor habe, *prost :-)*
aber vielleicht kann dazu ein VBA profi stellung nehmen.
gruss aus dem schönen Hamburg
Bernd
Rückmeldung wäre nett
Anzeige
AW: sry, vergessen. noch offen
18.11.2005 20:21:15
Matthias
Hallo Bernd,
gute Idee:
In DieseArbeitsmappe

Private Sub Workbook_Open()
Const pfadname = "D:\hier.xls"
Dim oldpfad As String
oldpfad = UCase(ThisWorkbook.FullName)
If oldpfad <> UCase(pfadname) Then
If Dir(pfadname) = "" Then
'Originaldatei nicht vorhanden, dann hierhin speichern
ThisWorkbook.SaveAs pfadname
'verschobene Datei löschen
Kill oldpfad
MsgBox "Datei wurde an ihren alten Platz verschoben."
Else
'Originaldatei vorhanden, dann diese Datei löschen
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
.IsAddin = True 'ausblenden
End With
Kill oldpfad
MsgBox "Bitte die Datei im Originalpfad verwenden!"
If Workbooks.Count > 1 Then
ThisWorkbook.Close False
Else
ThisWorkbook.Saved = True
Application.Quit
End If
End If
End If
End Sub

Problem ist nur, wenn die kopierte Datei aktueller ist als die Originaldatei...
Gruß Matthias
Anzeige
AW: sry, vergessen. noch offen
18.11.2005 21:20:00
HansH
Moin Matthias, Gruß an den Ideengeber Bernd,
ich habe selbst großes Interesse an diesem Thema. Habe nun alles Mögliche mit "speichern unter", über Explorer mit "kopieren", also eine Menge Varianten ausprobiert. Dei Code ist genial. Deine Einschränkung am Ende konnte ich bisher nicht nachvollziehen. Hoffe tina ist auch geholfen.
Gruß
HansH
AW: sry, vergessen. noch offen
18.11.2005 21:24:42
Matthias
Hallo Hans,
Deine Einschränkung am Ende konnte ich bisher nicht nachvollziehen.
Naja, wenn die Datei kopiert wird und die kopierte Datei aktualisiert wird, am Ende parallel dazu von anderen Mitarbeitern die Originaldatei auch noch, dann kann man schwer entscheiden, welche Datei denn nun die "richtigen" Daten enthält und welche gelöscht werden soll.
Gruß Matthias
Anzeige
AW: sry, vergessen. noch offen
18.11.2005 21:54:33
HansH
Hallo Matthias,
ich denke mal, immer die Datei die ordnungsgemäß dort gespeichert ist, wo sie hingehört, ist maßgeblich. Tina hatte ja gesagt, dass alle einen entsprechenden Kurs absolviert haben. Und damit wurde wohl alles unternommen ein versehentliches verschieben in einen anderen Ordner zu verhindern. Wenn also jeder die Möglichkeit kennt was er ändern kann (Laufwerk, Pfade), dann sollte man annehmen, dass eine Abweichung bewusst vorgenommen wurde. Also aus Versehen ist das kaum möglich. Im Zweifelsfall sollte jeder wissen, das die Datei im Originalpfade gilt. Aber das wäre dann disziplinarisch oder wenn vorhanden mit dem Betriebsrat zu regeln.
Gruß
Hans
Anzeige
AW: sry, vergessen. noch offen
18.11.2005 22:26:09
tina
hi Matthias, Hans, Frank und Bernd,
vielen, vielen Dank für die Idee an Bernd und die schnelle Umsetzung an Matthias.
Der Code ist in der tat genial. Funktioniert super.
Danke, danke , danke.
Ihr habt mir alle sehr geholfen.
Gruss Tin@
Ne Rückmeldung ist immer gut. ;)
AW: sry, vergessen. noch offen
18.11.2005 22:38:29
HansH
Freut mich für Tina!
aber so ist das mit excel: ich hab die Datei grade mal manipuliert, nichts!!! ist sicher - wie immer mit Excel. Da würde nur wirklich ein AnwenderInnenprotokoll helfen. Aber die entscheidenden Daten sind je nach Version auch kaum abzufragen und auch missbräuchlich. Mit deinem Code komme ich an meinem Firmenstandort super klar. Wie wohl auch Tina.
Gruss und Schluss
Hans
Anzeige
genau so habe ich es mir gedacht :-) o.t.
19.11.2005 10:35:33
Bernd
gruss aus dem schönen Hamburg
Bernd
Rückmeldung wäre nett
AW: genau so habe ich es mir gedacht :-) o.t.
19.11.2005 12:29:29
Matthias
Hi Bernd,
Gruß aus Franken (das war die gewünschte Rückmeldung ;-)
Matthias
AW: Datei verschieben verhindern
18.11.2005 18:19:01
HansH
Hallo Tin@,
es gibt doch noch einen kleinen Rest von DOS unter Zubehör. Mit attrib gab es eine Menge Möglichkeiten. Bin aber selbst nicht mehr up to date und kenne nicht mehr alle Parameter. Vielleicht weiß ein netter Mensch noch alles und kann helfen. Ich kenne im Moment nur noch Lese-, Schreib- und Versteckparameter.
Deshalb weiter offen
Gruß
Hans
AW: Datei verschieben verhindern
18.11.2005 18:26:30
Frank
Hallo Matthias, hallo Tina,
Attrib ist der falsche Weg, weil Du damit den Schreibschutz (Read Only) aktivieren müsstest. Damit könnten die Anwender aber ihre Urlaubsdaten nicht eintragen!
Also weiterhin: siehe vorherigen Tipp von mir!
Gruß Frank.
Anzeige
AW: Datei verschieben verhindern
18.11.2005 18:31:27
Matthias
Hallo Frank,
versuch mal, mit diesen Einstellungen (löschen untersagt) eine Excel-Datei zu öffnen, zu ändern und zu speichern.
Leider ist es so, dass beim Speichern erst die neue Datei mit Kryptischen Namen (Buchstaben und Ziffern, ohne Dateiendung) geschrieben wird, dann die alte Datei gelöscht wird und anschließend die Kryptische in den alten Dateinamen umbenannt wird. Das Löschen klappt nicht, dann bringt Excel einen Fehler beim Speichern.
Deshalb wird dein Vorschlag leider keinen Erfolg haben.
Gruß Matthias
AW: Datei verschieben verhindern
18.11.2005 18:44:01
Frank
Hallo Matthias,
das kann ich erst am Montag prüfen. Wenn Deine Theorie, die ich prinzipiell durchaus nachvollziehen kann, auch für freigegeben Excel-Arbeitsmappen gilt, würde mich das stark wundern. Wie löscht Excel die Datei, wenn 2 User eine Arbeitsmappe geöffnet haben und beide zu unterschiedlichen Zeitpunkten spichern? Wie gesagt, Microsoft macht vieles möglich aber ich kann das erst am Montag prüfen!
Für Dich, Tina, hat es sicherlich auch bis Montag Zeit, da Deine bösen Kollegen ja am Wochenende die datei wohl eher weniger oft verschieben! ;-)
Gruß Frank.
Anzeige
AW: Datei verschieben verhindern
18.11.2005 18:51:22
Matthias
Hi Frank,
von freigegebenen Arbeitsmappen habe ich nicht gesprochen.
Damit kenne ich mich nicht aus.
Ich wollte aber mal verhindern, dass Anwender eine Excel-Datei löschen können (im Datei-Explorer), sie aber die Datei öffnen, ändern und speichern können.
Ist mir bis heute nicht gelungen :-(
Gruß Matthias
AW: Herzliche Grüße
HansH
warum antwortest Du auf meinen Beitrag und grüß mich nicht ?
AW: Herzliche Grüße
21.11.2005 08:35:23
Frank
Hallo HansH,
sorry, war in Zeitnot und da ist es halt passiert. Ich gelobe Besserung!
Gruß Frank.
AW: Datei verschieben verhindern
18.11.2005 20:05:49
Bernd
hi tina,
alles per vba:
versuch mal in der worbook open auszulesen, in welchem pfad sich die datei befindet.
wenn der pfad korrekt ist, dann mach nichts.
wenn der pfad nicht korrekt ist, schreibe in einer variablen den pfad, speichere die mappe unter korrektem namen und pfadangabe, lösche die falsche mappe (den pfad haste ja in einer variablen.
sollte klappen, wenn ich mich nicht irre.
(ich werde da mal ein code zusammen basteln, könnte aber bis morgen dauern, weil ich heute noch was vor habe, *prost :-)*
aber vielleicht kann dazu ein VBA profi stellung nehmen.
gruss aus dem schönen Hamburg
Bernd
Rückmeldung wäre nett
Anzeige
AW: Datei verschieben verhindern
18.11.2005 20:20:41
tina
Hi an alle lieben Helfer,
es ist super wie Ihr mir helfen wollt, vielen lieben Dank.
ich werde mich dann mal bis morgen, bzw. Montag gedulden und auf eine positive Antwort hoffen.
Schönes Wochenende bis dahin und ich lasse die Frage solange auf offen.
Gruss Tin@
Ne Rückmeldung ist immer gut. ;)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige