|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.06.2021 07:36:56 |
Peter |
|
|
|
10.06.2021 11:24:33 |
Gast35239 |
|
|
|
11.06.2021 08:25:06 |
Peter |
|
|
|
11.06.2021 20:59:01 |
Gast23058 |
|
|
|
14.06.2021 11:20:13 |
Peter |
|
|
 Eindeutige Identität einer Excel Tabelle |
11.06.2021 21:40:21 |
xlKing |
|
|
|
14.06.2021 11:19:19 |
Peter |
|
|
Von:
xlKing |
Datum:
11.06.2021 21:40:21 |
Views:
210 |
Rating:
|
Antwort:
|
Thema:
Eindeutige Identität einer Excel Tabelle |
|
Hallo Peter,
Das Kopieren über den Explorer kannst du leider nicht verhindern. Aber du könntest Die Option "Speichern unter ... " unterbinden. So behält die Datei zumindest immer den selben Namen. Wenn die Datei auf einem Netzwerkpfad liegt, kannst du beim öffnen abfragen ob es sich um ebendiesen Pfad und den gewünschten Dateinamen handelt. Der folgende Code gehört ins Modul DieseArbeitsmappe:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
MsgBox "Bitte keine Kopien anfertigen!! Datei wurde nicht gespeichert!"
Cancel = True
End If
End Sub
Private Sub Workbook_Open()
If ThisWorkbook.FullName <> "E:\Pfad\Dateiname.xlsm" Then
MsgBox "Die Datei ist eine ungültige Kopie. Bitte arbeiten Sie mit der Originaldatei " _
& """Dateiname.xlsm"" im Pfad ""E:\Pfad"" weiter."
End If
End Sub
Wenn die Datei aber per Email ausgetauscht wird, kannst du nur über eine Versionshistorie gehen. Dazu über das Workbook_Open-Ereignis einen Zähler in einer Zelle deiner Wahl hochzählen.
Ach ja, um deine Frage zu beantworten. Die eindeutige ID einer jeden Datei sind Pfad und Dateiname. Evtl wird von Windows im Hintergrund noch ein Index für die Datei geführt. Ich glaube aber nicht dass man diesen über VBA auslesen kann. Außerdem wäre dieser Index auf jedem System ein anderer.
Gruß Mr. K.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.06.2021 07:36:56 |
Peter |
|
|
|
10.06.2021 11:24:33 |
Gast35239 |
|
|
|
11.06.2021 08:25:06 |
Peter |
|
|
|
11.06.2021 20:59:01 |
Gast23058 |
|
|
|
14.06.2021 11:20:13 |
Peter |
|
|
Eindeutige Identität einer Excel Tabelle |
11.06.2021 21:40:21 |
xlKing |
|
|
|
14.06.2021 11:19:19 |
Peter |
|
|