"Speichern unter" Dialog bei schreibgeschützter Datei

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Bernhard

Tja, das is dann wohl - doof!

Mal sehen, vielleicht kommst du ja noch auf die Idee, mal per Upload eine Bsp-Datei, die, außer den Originaldaten, deiner Originaldatei entspricht...und....

Vielleicht könntest du mal etwas genauer beschreiben, was genau - du - mit "schreibgeschützt" meinst.
Als ich das las, gehe ich seit dem davon aus, dass du die Datei im Windows-Explorer...
...mit rechter Maustaste anklickst
...im Kontextmenü die Eigenschaften anzeigst
...und nun das Attribut "schreibgeschützt" aktivierst

Vielleicht denkt auch Onur genau so, wie du den "Schreibschutz" aktiviert hast.

Aber vielleicht (be)nutzt - du - ja einen ganz anderen Schreibschutz....wer weiß wer weiß

Ciao
Thorsten

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Application.UserName > "DeinUserName" Then 'Hier Username ändern MsgBox "NEIN" Cancel = True End If End Sub

Hallo onur,
vielen Dank für deine Unterstützung !

Das funktioniert nur, wenn die Datei nicht schreibgeschützt ist, andernfalls kommt die Mitteilung "Wir können ... nicht speichern, weil die Datei schreibgeschützt ist. Wenn Sie Ihre Änderungen behalten möchten, müssen Sie die Arbeitsmappe unter einem anderen Namen oder an einem anderen Speicherort speichern"

Zum Hintergrund: Ich bin für die Dienstplanung in unserer Abteilung zuständig. Ca 60 Personen müssen ihre Terminwünsche abgegeben. Die Datei um die es geht ist eine Art Eingabemaske. Aus Datenschutzgründen dürfen die Mitarbeitenden nicht sehen, was sich andere Menschen wünschen, oder warum sie sich etwas nicht wünschen.
Daher fliessen die Daten in eine Sammeldatei ab. Die Maske bleibt unverändert. Readonly, damit für mehrere Menschen gleichzeitig Zugriff möglich ist.

Unter den Mitarbeitenden sind solche, die sich mit Computerdingen nicht so auseinandersetzen (möchten). Da sie ihre Dienstwünsche natürlich wichtig finden, glauben sie, dass sie speichern müssen und tun das auch. Es entstehen Kopien der Eingabemaske, die irgendwo oder auch im selben Verzeichnis abgelegt werden, was bei anderen zur Verwirrung beiträgt.

VG Bernhard

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Application.UserName > "Dein Username" Then ThisWorkbook.Saved = True MsgBox "NEIN !" Cancel = True End If End Sub

Beliebteste Forumthreads (12 Monate)

"Speichern unter" Dialog bei schreibgeschützter Datei

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

"Speichern unter" Dialog bei schreibgeschützter Datei

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread