Microsoft Excel

Herbers Excel/VBA-Archiv

Makro AutoClose

Betrifft: Makro AutoClose von: Maurer
Geschrieben am: 08.11.2012 15:26:28

Guten Tag

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!

  

Betrifft: AW: Makro AutoClose von: Rudi Maintaire
Geschrieben am: 08.11.2012 15:33:24

Hallo,
auto_Close ist schon seit XL2000 out.
In DieseArbeitsmappe:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Sheets("Tabelle1")
      .Select
      Calculate
      .Protect "test", DrawingObjects:=True, Contents:=True, Scenarios:=True
      .EnableAutoFilter = True
    End With
    ThisWorkbook.Close SaveChanges:=True
End Sub