In Formel benutzte Exceldatei wird automatisch geöffnet

[Sintergott]

ehrlich bin so schlecht zu verstehen,liest Du nicht was ich schreibe. Die Mappe IST geschützt sie soll sich NICHT von alleine öffnen, denn wenn sie irgendwo offen kann ich sie nicht ersetzen, da geöffnet.

und das geht damit zu klären ...

und damit eben nicht

[schauan]

Und ich schreibe gern nochmal dass die so geschützte Datei auch in offenem Zustand ersetzbar ist. Ausser, jemand hat das Passwort und benutzt es..

[Sintergott]

Hi,

diese Art zum Schützen war mir nicht bekannt, nicht jeder ist ein Ecxelprofi. Leider ist dieser Weg auch nicht "Idiotensicher", ich kann so zwar die Datei ersetzen, aber der Dienstplan der die Mappe öffnen lässt, sowie die Mappe selbst, werden in der Regel nicht geschlossen, und erzeugt das Aktualisieren des Dienstplan, via Makro, einen Fehler. Der lässt sich Zwar durch Schliessen der Mappe beheben, aber darauf kann ich mich nicht verlassen.
ich hoffe es gibt eine Möglichkeit das automatische Öffnen abzustellen.

Lässt sich diese Art des Schutzes mit VBA realisieren?

Gruß

[schauan]

Hallöchen,

Du könntest aber im Makro anfangs prüfen ob die Datei offen ist und wenn ja, schliessen ...
Könntest Du übrigens dann auch am Ende machen, beim Schließen der Zieldatei, oder wann es passt

Wegen dem automatischen Öffnen müsste man genau wissen, was da gemacht wird. Meine erste Vermutung ist, dass Daten per excel4macro oder ado aus einer geschlossenen Datei geholt werden sollen. Ich hatte mal was ähnliches. Ist da aber nur passiert, wenn die Datei mit den Daten zufälligerweise, warum auch immer, bei einem anderen user gerade offen war. Dann ist die auch bei mir aufgepoppt

[Sintergott]

ich hab´s erstmal anders gelöst, ich lass die Mappe sich nach ner Zeit selber schliessen, mal sehen ob das ausreicht.

[Kuwer]

Hallo Sinter,

Du könntest es auch mal mit diesem Code, der in das schon vorhandene VBA-Modul des entsprechenden Tabellenblattes gehört, testen:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = Target.HasFormula
End Sub

Gruß Uwe

[Sintergott]

Hallo Uwe,

passt, so sollte es funktionieren.

Danke
Gruß Sinter