Schutz im Macro

Computer: Software & Programmierung Office Software
1

Liebe Wissende,
ich weiß, daß es in früheren Excel-Versionen möglich war, den Schutz über ein Macro ein- bzw. auszuschalten. Das scheint bei neueren Excel-Versionen nicht mehr zu funktionieren. Wenn ich ein Macro schreibe zum schützen des Blattes, wird beim ausführen des Macros ein Fenster zur Eingabe des Passwortes geöffnet. Ich habe aber doch das Psswort beim Macro- Aufzeichnen eingetragen… ?
Frage:
Wie kann ich eine Autofilter- Routine in einem geschützen Blatt abfahren ?
Ich habe im Macro:

  • den Schutz aufgehoben
  • gefiltert
  • den Schutz wieder aktiviert

Vielen Dank schon mal und Gruß
Uwe

2

Hi Uwe,

ich weiß, daß es in früheren Excel-Versionen möglich war, den
Schutz über ein Macro ein- bzw. auszuschalten. Das scheint bei
neueren Excel-Versionen nicht mehr zu funktionieren.

Aha, du hattest XL4 und jetzt hast du XL7. Von welcher Version redest du?

Wenn ich ein Macro schreibe zum schützen des Blattes, wird beim
ausführen des Macros ein Fenster zur Eingabe des Passwortes
geöffnet. Ich habe aber doch das Psswort beim Macro-
Aufzeichnen eingetragen… ?

Wo ist der Code?

Wie kann ich eine Autofilter- Routine in einem geschützen
Blatt abfahren ?

? abfahren=abfragen ob Autofilter gesetzt?

Ich habe im Macro:

  • den Schutz aufgehoben
  • gefiltert
  • den Schutz wieder aktiviert

Aha, was klappt denn nun nicht?

Gruß
Reinhard

3

Hallo Reinhard,

  • Version XP (2002)
  • Code:
    Sub filtern()
    ActiveSheet.Unprotect
    Selection.AutoFilter Field:=1, Criteria1:=„1“
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
    False, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:= _
    True
    End Sub

Sub Alles()
ActiveSheet.Unprotect
Selection.AutoFilter Field:=1
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:= _
True
End Sub

Sinn ist:
Eine sehr lange Stückliste, in der nur bestimmte Zeilen durch Eintrag von Mengen benutzt werden, nur auf diese Zeilen zu filtern. Dazu gibt es eine Auswertespalte - Menge ja = 1 sonst 0. Diese Auswertespalte soll per Macro auf 1 gefiltert werden bzw. zum Neueintrag wieder „alles“ angezeigt werden. Bedienung durch Form als Button. Schutz nötig, da Mehrplatzbedienung.

Gruß
Uwe
(Reinhard - hast Du meine Antwort auf Deine Antwort „separate Ergebnisliste…“ gelesen ?)

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]