Seite 1 von 1 [6 Beiträge im Thema] | Beitrag schreiben | Anfang zurück weiter Ende |
MR-Toolbox - Passwortabfrage bei Autofilter und Gruppierung
Hallo Excelfreunde,
beim öffnen einer Exceldatei mit "Blattschutz ohne Sperre Gruppierung, Teilergebnisse und Autofilter", erstellt mit mr-toolbox, erfolgt unter Excel 2003 immer eine sehr lästige Passwortabfrage.
Was kann ich tun um diese zu umgehen?
Gruß Johann
Hallo Johann,
wenn ich das Problem richtig verstanden habe handelt es sich um die Einstellung der Sicherheitsstufe für Makros.
Mit der Einstellung "Mittel" im Menü "Extras-Makro-Sicherheit" sollte nur ein Dialog "Markros aktivieren JA / NEIN" kommen.
Dateianlagen:
Makrosicherheit_Excel2003.jpg (101 kByte, 496 x 378 Pixel)
speichern
Hallo Markus,
die Einstellung "Sicherheit " steht auf niedrig, das Makro wird aber nicht ausgeführt weil für jedes Tabellenblatt die "Blattschutz aufheben" Abfrage kommt. Wird der Balttschutz aufgehoben, funzt der integrierte Autofilter, ansonsten nicht. Das Problem habe ich nur bei Excel 2003, mit der 2000-er Version klappt alles.
Das Passwort einzugeben ist bei 18 Tabellenblättern sehr lästig und der Schutz geht auch verloren, was nicht sein soll.
Gruß Johann
Hallo Johann,
evtl. wird das Problem durch Excel 2000 verursacht
Tritt das Problem auch bei einer neuen Excel 2003 Datei auf?
Ich habe eine Testdatei mit Excel 2003 erstellt und per Mail geschickt.
Hallo Markus,
die Beispieldatei funzt nicht, solange der Blattschutz aktiv ist geht kein Autofilter, wird er entfernt, dann ja!!!
Warum kommt unter 2003 die Passwortabfrage und bei 2000 nicht?
Gruß Johann
Das die Beispieldatei unter Excel 2003 nicht funktioniert verstehe ich nicht. Bei mir gehts mit XLS 2003!?!
Alterntive?:
Dieses Makro auf die zu schützenden Tabellen kopieren und den Cursor in eine entsperrte Zelle setzen und dann den Filter benutzen.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim passWort As String
passWort = "GEHEIM"
If Target.Locked = False Then
ActiveSheet.Unprotect passWort
Else
ActiveSheet.Protect passWort
End If
End Sub