Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsmappe schützen

Arbeitsmappe schützen
06.10.2004 10:20:16
J.Bertele
hallo Forumsteilnehmer,
ich möchte eine von mir erstellte Arbeitsmappe so schützen, dass
andere Benutzer sie ohne Warnmeldung öffnen, darin suchen, filtern,
Spalten verändern usw. können. Sie sollen aber keine Möglichkeit
haben, die Veränderungen abzuspeichern.
Wie kann dieses Ziel erreicht werden?
Vorab vielen Dank für Hilfe.
MfG.
J. Bertele

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsmappe schützen
th.heinrich
hallo J.,
aus der VBA HILFE:
In diesem Beispiel wird die Arbeitsmappe, die den Beispielcode enthält, geschlossen. Alle Änderungen werden verworfen, indem der Saved-Eigenschaft der Wert True zugewiesen wird.
ThisWorkbook.Saved = True
ThisWorkbook.Close
gruss thomas
ps. liest sich doch eigentlich unlogisch, oder ?
AW: Arbeitsmappe schützen
06.10.2004 10:42:50
Werner
Hallo,
finde mit der ersten 

Sub Deinen UserName raus und schreibe ihn in 


Sub 2 (Auto_Close).


Sub Auto_Close dann in Standard-Modul.
Die Datei wird dann ohne zu speichern geschlossen, wenn der aktuelle UserName nicht mit Deinem übereinstimmt.
Gruß
Werner


Sub Net_User_Anzeige()
MsgBox Environ("UserName")
End Sub





Sub Auto_close()
If Environ("UserName") <> "Dein UserName" Then
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End If
End Sub
Anzeige
AW: Arbeitsmappe schützen
J.Bertele
Danke an beide Teilnehmer für die gutgemeinte Unterstützung.
Komme trotzdem nicht klar. Vmtl. falscher
Level meinerseits.
JB.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige