Makro AutoClose
08.11.2012 15:26:28
Maurer
Komme bei untenstehendem Makro nicht weiter.
Ziel ist es, dass beim Schliessen des Excel Files automatisch gespeichert wird und der Blattschutz mit Passwort eingeschaltet wird. Wichtig ist, dass nach dem Blattschutz der Autofilter bedient werden kann ohne das Blatt zu entsperren.
Ich bitte um Hilfe / Anregungen zum letzten erwähnten Punkt betr. dem Autofilter.
Hier mein bisheriger Versuch, welcher - bis auf den Autofilter - funktioniert.
Sub Auto_Close()
Dim WS As Worksheet
Sheets("Tabelle1").Select
Calculate
ActiveSheet.Protect "test", DrawingObjects:=True, Contents:=True, Scenarios:=True
ThisWorkbook.Close SaveChanges:=True
End Sub
Vielen Dank im Voraus!