Supportnet / Forum / Tabellenkalkulation
Auto_Close funktioniert nicht?!
Frage
Hallo,
ich habe eine Excel-Mappe, die ich mit dem Makro Auto_Close beim Beenden automatisch schützen möchte, um zu verhindern, dass mit dem ersten Makro (von coros kopiert) der Schutz aufgehoben wird und beim nächsten Starten mit der Abfrage Makros deaktivieren komplett bearbeitet werden kann.
siehe hier:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Zelle As Range
For Each Zelle In Target.Cells
If Zelle.HasFormula Then
ActiveSheet.Protect password:="geheim"
Exit Sub
Else
ActiveSheet.Unprotect ("geheim")
End If
Next Zelle
End Sub
Private Sub Auto_close()
MsgBox "in autoclose"
ActiveSheet.Protect password:="geheim"
End Sub
..... das Auto_Close scheint gar nicht abgearbeitet zu werden.
ups - ist schwierig zu erklären - hat es jemand verstanden?
Danke
Jörg.
Antwort 1 von joergschade
... ist doch schön, wenn man selber eine Lösung findet:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "in autoclose"
ActiveSheet.Protect "geheim"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "in autoclose"
ActiveSheet.Protect "geheim"
End Sub