Den Usernamen in Vorlage speichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() Dim strName As String strName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) If Sheets("Tabelle1").Cells(1, 2).Value = "nein" Then Sheets("Tabelle1").Cells(1, 2).Value = "ja" Sheets("Tabelle1").Cells(2, 2).Value = Environ("UserName") ActiveWorkbook.Save Sheets("Tabelle1").Cells(1, 2).Value = "nein" Sheets("Tabelle1").Cells(2, 2).Value = "" ActiveWorkbook.SaveAs strName & "-Kopie.xlsm" Workbooks.Open Filename:=strName & ".xlsm" Workbooks(strName & "-Kopie.xlsm").Close Savechanges:=False End If End Sub

Hallo Lothar,
nehmen wir mal an, dass alle Vorlagendateien alle denselben Aufbau haben, zumindest bis zu dem Zeitpunkt, da sie vom jeweiligen Benutzer geöffnet werden. Daraus folgt zunächst einmal, dass man die Vorlagedatei per E-Mail an soundsoviele Benutzer gleichzeitig als Anhang versenden kann - vorausgeetzt, die Datei ist nicht riesengroß. Die Spezifizierung erfolgt dann beim Benutzer, z. B. durch Abspeichern unter einem anderen Namen als Kopie. Der neue Name könnte an einer bestimmten Stelle in die Vorlage eingetragen werden. Dann wird die Kopie erstellt und so, wie von Dir vorgesehen, gespeichert. Durch die Speicherung unter dem neuen Namen verschwindet die Vorlage vom Bildschirm und ist jetzt eine Kopie. Beim E-Mail-Versand kann natürlich die Vorlagen-Datei (der Anhang) beliebig weiter gegeben werden, dies ist leider überhaupt nicht zu verhindern. Der Ausweg ist, die Vorlagendatei mit einem Kennwort zu sichern, welches keinem der Benutzer bekannt ist. Dann kann man die Datei zwar verteilen, aber kein Empfänger kann sie öffnen.
Damit nun aber die authorisierten Benutzer die Vorlagendatei öffnen können, erhalten sie eine Anmeldedatei. Die kann auch für sämtliche Anwender als eine einheitliche Datei per E-Mail verschickt werden. In der Anmeldedatei gibt der Benutzer seinen Namen und sein Kennwort an und kann dann damit die Vorlagen-Datei öffnen. Die Kennworte müssen selbstverständlich (am besten schriftlich) jedem einzelnen Benutzer mitgeteilt werden. Sie sind allesamt in der Anmeldedatei - an geschützter Stelle - aufgeführt. In meinem Beispiel sind dies die Spalten L bis T. Man kann sie erst einblenden, nachdem der Arbeitsblattschutz entfernt ist.
Das System ist so gestrickt, dass man immer nur eine Kopie in Verbindung mit dem Benutzernamen bekommt und niemals die Vorlagendatei selbst, es sei denn, man weiß als Administrator das Kennwort zu der Vorlagen-Datei. Den Benutzernamen kann man selbstverständlich auch an anderer Stelle auf der Kopie vermerken.
Hier die Anmeldedatei: https://www.herber.de/bbs/user/153422.xlsm
In dieser Datei befindet sich das Arbeitsblatt "Hinweise" mit den notwendigen Angaben zum Testen. Im Echtbetrieb gibt es natürlich dieses Blatt nicht.
Und hier die Vorlagen-Datei: https://www.herber.de/bbs/user/153423.xlsm
Diese Datei musst Du mit dem Kennwort "Rx4711Kw2731_zl" öffnen und dann auf Deinem Gerät unter dem von Dir gewählten Namen speichern.
In der Anmeldedatei können die Speicherorte eingestellt werden; hier kann jeder Benutzer Laufwerk, Pfad und Dateinamen auswählen. Der Dateiname für die Kopie setzt sich in meinem Beispiel aus dem Benutzernamen in Verbindung mit dem Namen der Vorlagen-Datei zusammen.
Bitte mal ausprobieren, Rückmeldung wäre schön.
Mit freundlichem Gruß und Frohe Pfingsten
Peter Kloßek

Beliebteste Forumthreads (12 Monate)

Den Usernamen in Vorlage speichern

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread