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
Hallo,
Code:
If ThisWorkbook.ReadOnly Then
MsgBox "Diese Mappe wird jetzt geschlossen.", vbInformation
ThisWorkbook.Close False
End If
Gruß Uwe
Moin Kuwer,
vielen Dank, funktioniert perfekt!
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?
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! :)
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
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.