Makro in mehreren Arb.-Blättern



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Makro in mehreren Arb.-Blättern
von: Hauke
Geschrieben am: 16.05.2002 - 16:19:32

Hallo ins Forum!

Ich habe hier ein geiles Makro (VBA) bekommen, das die Arbeit mit Autofiltern während das Blatt geschützt ist ermöglicht!! Jetzt wüsste ich gern, ob und wie ich dieses Makro in allen Blättern (7) laufen lassen kann? Es scheint nur in einem zu funktionieren, auch wenn ich in den anderen das gleiche Makro anlege, es klappt nur in dem ersten. Kann mir einer helfen??

Vielen Dank und Grüße aus Flensburg

Hauke


nach oben   nach unten

Re: Makro in mehreren Arb.-Blättern
von: frank p
Geschrieben am: 16.05.2002 - 16:23:57

Du solltest mal den Code posten ..
wir sind ja schließliche keine Hellseher ;-)

nur anhand des codes kann Dir jemand sagen was Du tun könntest .

Gruss Frank p


nach oben   nach unten

Code
von: Hauke
Geschrieben am: 16.05.2002 - 16:40:08

Hi Frank!

Sorry....na klar habe ich vergessen:


Sub BlattSchutz()
ActiveSheet.EnableAutoFilter = True
Tabelle2.Protect userinterfaceonly:=True
End Sub

Mehr ist es nicht. Wie gesagt - funktioniert dann leider nur in einem Blatt....

Hast du eine Idee??

Hauke

nach oben   nach unten

Re: Makro in mehreren Arb.-Blättern
von: Klaus Schubert
Geschrieben am: 16.05.2002 - 21:09:13

Hallo Hauke,

um den Code in allen Blättern verwenden zu können, benutze diesen Code:

Sub BlattSchutz()
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect userinterfaceonly:=True
End Sub

Da ich davon ausgehe, dass diese Funktion nach dem Öffnen der Mappe immer vorhanden sein soll ,(wird nämlich meines Wissens nicht mitgespeichert), empfehle ich dir folgendes:

Mit Alt + F11 in die VBA - Umgebung wechseln , im Projektfenster DieseArbeitsmappe doppelklicken und dann rechts folgenden Code einfügen:


Private Sub Workbook_Open()
Dim As Integer
For i = 1 To Sheets.Count
With Sheets(i)
.EnableAutoFilter = True
.Protect userinterfaceonly:=True
End With
Next i
End Sub

Die Arbeitsmappe danach einmal speichern und schließen. Ab jetzt werden alle vorhandenen Tabellenblätter beim Öffnen immer so bearbeitet, dass du den Filter trotz Blattschutz benutzen kannst !

Gruß Klaus


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Makro in mehreren Arb.-Blättern"