Registriert seit: 03.11.2022
Version(en): 2016
15.03.2023, 09:51
(Dieser Beitrag wurde zuletzt bearbeitet: 15.03.2023, 09:52 von C598.)
Moin zusammen,
in meiner Tabelle lassen ich beim Öffnen den folgenden Code laufen, der sobald jemand versucht eine schreibgeschützte Version der Tabelle zu öffnen diese direkt schließt:
Code:
If ThisWorkbook.ReadOnly Then ThisWorkbook.Close False
Ist es möglich diesen Code an eine Messagebox zu knüpfen, die nur erscheint wenn versucht wird die schreibgeschützte Kopie zu öffnen und sonst nicht?
Ich freue mich auf Rückmeldungen und Hilfe!
Viele Grüße
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo,
Code:
If ThisWorkbook.ReadOnly Then
MsgBox "Diese Mappe wird jetzt geschlossen.", vbInformation
ThisWorkbook.Close False
End If
Gruß Uwe
Registriert seit: 03.11.2022
Version(en): 2016
Moin Kuwer,
vielen Dank, funktioniert perfekt!
Registriert seit: 10.04.2014
Version(en): 2016 + 365
15.03.2023, 11:36
(Dieser Beitrag wurde zuletzt bearbeitet: 15.03.2023, 11:36 von Rabe.)
Hi,
ich verstehe nicht, warum eine ReadOnly Datei sofort geschlossen werden soll. Zum Anschauen sollte sie ja auch geöffnet und damit anschaubar sein oder?
Registriert seit: 03.11.2022
Version(en): 2016
Hallo Rabe,
grundsätzlich ist das Problem, dass jemand die Datei öffnet weil die Warnung übersehen wird, dann eine Änderung vornimmt und ständig Kopien entstehen, die ich dann in mühevoller Arbeit abgleichen muss um die aktuellste Version der Tabelle zu finden. Grundsätzlich ginge es auch, wenn man die Tabelle trotzdem lesen, aber nicht abspeichern könnte.
Da mein VBA-Wissen allerdings nicht soweit reicht, hatte ich nicht wirklich eine Idee bzgl. der Möglichkeiten und wie man das Ganze am besten umsetzt.
Vielleicht hat ja noch jemand eine Idee, sonst passt es so auch! :)
Registriert seit: 10.04.2014
Version(en): 2016 + 365
23.03.2023, 16:07
(Dieser Beitrag wurde zuletzt bearbeitet: 23.03.2023, 16:08 von Rabe.)
Hi,
aber eine ReadOnly-Datei kann doch gar nicht geändert werden oder verstehe ich es nicht?
Ok, sie kann unter anderem Namen abgespeichert werden.
Gruß
Ralf
Registriert seit: 02.05.2018
Version(en): Excel 365 & 2016
1. Was machst du, wenn jemand Makros deaktiviert hat? Dann ist die Vorgehensweise für die Katz.
2. Wieso ist es DEINE Aufgabe, Fehlverhalten anderer wiedergutzumachen? Meine Vorgehensweise wäre, beim ersten Mal „Gnade vor Recht“ ergehen zu lassen und von mir aus nachzuarbeiten. Beim zweiten Mal würde ich „Pech gehabt“ antworten. Schritt 1 kann man natürlich überspringen, je nach Laune und Arbeitsaufwand.
Schöne Grüße
Berni