Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz & Filter

Forumthread: Blattschutz & Filter

Blattschutz & Filter
10.11.2006 16:32:49
helena
Hallo
habe Probleme mit Blattschutz es läuft micht wie es soll
in dieser Varia lüft Autfilter nicht

Sub Filter2()
ActiveSheet.Unprotect ("xxx")
Range("A3:Q3").Select
Selection.AutoFilter
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Range("A4").Select
ActiveSheet.Protect ("xxx")
End Sub

in dieser Variante ist Blatt nicht geschützt nach ausschalten
möchte wenns geht mit einem Button machen EIN/AUS
Danke für Hilfe
gruss aus CH
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz & Filter
10.11.2006 18:02:26
helena
Hallo Thomas
habe noch etwas angepasst den Filter soll nicht immer da sein
aber so gehts inkl. den PW zum öffnen und RANGE.

Sub FilternAuchBeiBlattschutz()
ActiveSheet.Unprotect ("xxx")
ActiveSheet.Protect userinterfaceonly:=True
Range("A3:AD3").Select
Selection.AutoFilter
ActiveSheet.EnableAutoFilter = True
Range("A4").Select
End Sub

Vielen Dank Thomas
gruss aus CH
helena
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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