Office: (Office 2010) Blattschutz und Autofilter

Guten Tag Forum,

ich wollte mal Fragen ob mir jemand helfen kann.
Ich habe eine Datei (siehe Anhang) wo in verschiedenen Spalten Informationen hinterlegt sind. Diese liegt auf einem Netzwerk und verschiedene Personen sollen sie nutzen. Jeder soll die Möglichkeit haben die Informationen auf sich persönlich zu filtern.
Nun hat Lisa alle Filter so gesetzt wie sie es benötigt und speichert die Datei beim Schließen ab. Nun kommt Jochen und öffnet die Datei bemerkt aber nicht, dass ein Filtern noch gesetzt ist und bekommt dadurch weniger für ihn wichtige Infos.

Lange Rede kurzer Sinn. Ich benötigte die Datei mit einen Blatt und Arbeitsschutz um eine Bearbeitung zu verhindern. Des Weiteren sollen im geschützten Modus die Filter funktionieren und beim erneuten öffnen sollen alle Filter neutral bzw. auf Anfang stehen.

Vielen Dank für Eure Hilfe

:)

 

Vergib ein Schreibkennwort, so dass alle nur Read-Only öffnen können.

 

Hallöchen,

zufällig hab ich genau zu diesem Thema heute Morgen schon etwas geschrieben
https://www.ms-office-forum.net/foru...02&postcount=8

Zum Prüfen des AutoFilters ...

PHP:

         Private Sub Workbook_Open()
With Worksheets("Tabelle1")
If .AutoFilter.FilterMode = True Then
.ShowAllData
End If
End With
End Sub


 

\@Sabina:
Würde hier nicht auch das reichen?

Code:

 

Ich verstehe den TO so, dass die anderen Kollegen nur Informationen aus der Datei ziehen sollen, also reicht ein Schreibkennwort völlig aus. D.h. nur der TO kann/darf die Datei ändern, alle anderen öffnen Sie im Read-Only-Mode und können dort machen was sie wollen, ohne den Originalzustand der Datei ändern zu können.

 

Das ist eben die Frage, ob überhaupt keine Bearbeitungen gespeichert werden dürfen, oder nur keine Filterungen

 

Hallöchen,

über Intensionen und eventuelle Vvorhaben des TS spekuliere ich nur noch recht selten. *Smilie

@Berni:
dachte ich auch, aber wenn schon alle Daten angezeigt werden und kein Filter aktiv ist, geht die VBE wegen einem Fehler in den Debugger. Deshalb die Prüfung.

@Storaxchen:
Klar ... könnte man auch so machen ... ich hab ihm nur eine weitere Möglichkeit aufgezeigt. Bei mir muss sich niemand ... außer dem TS *wink.gif* ... ein Passwort merken ... und kann es somit auch nicht vergessen.

 

\@Mr. Burns: Für micht ist das keine Frage, ich verstehe ihn wie oben geschrieben.
Sonst soll er sich melden. Und da er das nicht tut, ist er sowieso bald auf Ignore.

@Sabina: Wenn sich keiner ein Passwort merken muss, ist das sicher gut.
Aber wenn man fachlich limitierte Mitarbeiter einsetzt, bleibt einem das vielleicht nicht erspart.

 

Guten Tag,
danke für die schnellen Antworten. Also die Mitarbeiter sollen keine Änderungen im Dokument vornehmen, deshalb der Blatt- und Arbeitsschutz.

Sabina ich würde mich noch mal genauer mit Deiner Antwort beschäftigen. Da ich kein Fachmann bin könnte es ein wenig Dauern. Würde mich heute aber gern noch mal hier melden um Probleme zu klären.

Beste Grüße

 

Hallo Sabina,

nach genaueren probieren ist mir aufgefallen das nur eins der beiden Probleme so gelöst werden können. Das schützen der Datei und gleichzeitigem Filtern. Leider ist das andere Problem noch vorhanden. Wenn die Datei beim schließen gespeichert wird, sind noch alle Filter vorhanden und der nächste Nutzer (wenn nicht geübt im Umgang) könnte dies nun übersehen! In Wirklichkeit reden wir ihr ja auch über eine deutlich größere Menge an Daten bzw. Mitarbeiter!

 

\@Storax
Weil er sich nicht innerhalb einer Stunde meldet gleich auf Ignore?

 

Na ich hoffe nicht!

 

Nein, so schnell nicht, aber innerhalb 24h mache ich das schon.

 

Ich will hier keine OT-Diskussion lostreten, nur soviel: Es soll auch vorkommen, dass man nicht immer sofort antworten kann. Dies kann mannigfaltige Gründe haben. Gar nicht antworten empfinde ich natürlich auch als unhöflich und ärgerlich, ist hier aber ja nicht der Fall.

 

Ich habe auch schon ein bisschen mit den Makro gespielt, aber der Blattschutz ist das Problem.

Private Sub Workbook_Open()
Worksheets("Tabelle1").Unprotect "Test"
ActiveSheet.Range("$C$4:$H$16").AutoFilter Field:=1
ActiveSheet.Range("$C$4:$H$16").AutoFilter Field:=2
ActiveSheet.Range("$C$4:$H$16").AutoFilter Field:=3
ActiveSheet.Range("$C$4:$H$16").AutoFilter Field:=4
ActiveSheet.Range("$C$4:$H$16").AutoFilter Field:=5
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
Worksheets("Tabelle1").Protect Password:="Test"
End Sub