Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
616to620
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
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro Blattschutz Autofilter

Makro Blattschutz Autofilter
30.05.2005 13:03:42
Andre
Hallo alle zusammen,
ich habe ein Tabellenblatt geschützt und eine Makro in diese Arbeitsmappe geschrieben, womit man mit dem Auto Filter arbeiten kann. Problem: der jenige der mit dieser Datei arbeiten soll erhält nach der Makro Aktivierung folgende Meldung: Blattschutz aufheben. Wenn der richtige Code eingegeben wird, dann ist in dem Arbeitsblatt (Matrix)trotz alledem der Blattschutz aktiv. Beim speichern und wiederöffnen kommt dann keine Abfrage nach dem Blattschutz aufheben. Wird auf abbrechen gegangen, dann kann nicht der Auto Filter benutzt werden. Wie kann ich beim erstmaligen öffnen bei einen anderen Benutzer diese Blattschutzabfrage umgehen.
Komischerweise kommt diese Abrage bei mir nicht.
Muss ich folgendes Makro anders schreiben.

Sub Workbook_Open()
Sheets("Matrix").Protect UserInterfaceOnly:=True
Sheets("Matrix").EnableAutoFilter = True ' Für AutoFilter
End Sub

Danke im voraus!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Blattschutz Autofilter
30.05.2005 13:08:43
Ceci
Hallo Andre,
schreibe folgendes:
Sheets("Blattname").EnableAutoFilter = True 'Für AutoFilter
mfg Cäcilia
AW: Makro Blattschutz Autofilter
30.05.2005 13:09:20
Holger
Sub Workbook_Open()
With Sheets("Matrix")
.Unprotect Password:="xxx"
.EnableAutoFilter = True
.Protect UserInterfaceOnly:=True, Password:="xxx"
End With
Der Autofilter muss aber schon gesetzt sein!
mfg Holger
Danke an Cesi, Holger
30.05.2005 13:36:04
Andre
Hallo Holger,
ich habe deinen Code benutzt, funktioniert prima.
Danke!!!
AW: Makro Blattschutz Autofilter
30.05.2005 13:56:02
Ceci
Hallo Andre,
schreibe folgendes:
Sheets("Blattname").EnableAutoFilter = True 'Für AutoFilter
mfg Cäcilia
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige