Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilterfunktionen trotz Zellschutz ?

Forumthread: Autofilterfunktionen trotz Zellschutz ?

Autofilterfunktionen trotz Zellschutz ?
16.11.2004 12:04:20
Horst
Hallo schon wieder,
Ich bin mit meinem "Programm" wesentlich
weiter aber schon an eine neue Klippe gestoßen:
Die Exceldatei soll für einen Kunden sein.
Der darf alles lesen aber im von mir erzeugten
Bereich nicht Schreiben also:
Blattschutz und meine Zellen geschützt, andere Zellen frei
Der Übersichtlichkeit halber sollen in der Datei aber per
Autofilter Werte durch den Empfänger ausgeblendet werden können.
Dort "weigert" sich aber mein Excel zu filtern, weil die Zellen
ja geschützt sind.
Wie realisiere ich Schreibschutz für meine Zellen bei Möglichkeit der Filter ?
(und am Besten gleich in VBA)
Danke Horst
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Autofilterfunktionen trotz Zellschutz ?
Ulf
Der Filter muss vor dem Speichern gesetzt sein:

Private Sub Workbook_Open()
With Sheets("Tabelle1")
.Unprotect Password:="xxx"
.EnableAutoFilter = True
.Protect Password:="xxx"
End With
End Sub

Ulf
AW: Autofilterfunktionen trotz Zellschutz ?
17.11.2004 11:22:29
Klaus-Dieter
Hier eine der vielen Möglichkeiten
Im Workbook_Open() eine Variable mit dem Namen Berechtigung (Public)
erstellen und entsprechend True oder False zuweisen
In WorkSheet_Change() folgenden Code einfügen
If Application.ThisWorkbook.Berechtigung = False Then
Application.EnableEvents = False
MsgBox "Keine Berechtigung zum Ändern"
Application.Undo
Application.EnableEvents = True
End If
Damit kann der User mit der Tabelle alles machen, nur nichts ändern.
Gruß bukdk
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige