VBA Autofilter und Blattschutz
01.12.2014 14:28:15
Guido
ich verzweifele gerade am folgenden Problem. Ich habe ein VBA um bei angeschaltetem Blattschutz einen Autofilter zu nutzen. Dieser funktioniert auch so weit.
Private Sub Workbook_Open()
With Tabelle2
.Protect Password:="123", UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub
Eingefügt habe ich es unterhalb von "diese Arbeitsmappe". Nun möchte ich das Arbeitsblatt kopieren und in der gleichen Mappe als Kopie einfügen. Leider wirkt sich VBA nicht auf das kopierte Arbeitsblatt aus. Wenn das VBA auf Tabelle3 ändere, gehts auf Tabelle3 aber nicht mehr auf Tabelle2. Ich habe auch schon ein zweites VBA ein gleicher Stelle mit Tabelle3 eingefügt. Aber es geht immer nur in einem Blatt. Auch Ich habe auch schon mit folgenden VBA gearbeitet:
Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="123"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub
In diesem Fall funktioniert es zwar beim kopierten Arbeitsblatt aber es funktioniert nicht mehr beim ursprünglichen Arbeitsblatt.
Wie bei meinem Level abgegeben Verfüge ich nur über Basiskenntnisse und beim VBA benutzte häufig die Suche im Internet und dann "Copy and Paste", sorry
Kann mit jemand helfen?
Danke schon mal vorab
Guido