Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: DieseArbeitsmappe

Sub Workbook_BeforeClose(Cancel As Boolean)
   Dim nme As Name
   On Error Resume Next
   Set nme = ThisWorkbook.Names("OK")
   If Err > 0 Or nme Is Nothing Then Cancel = True
End Sub

Private Sub Workbook_Open()
   On Error Resume Next
   ThisWorkbook.Names("OK").Delete
   On Error GoTo 0
End Sub

StandardModule: basMain

Sub Schliessen()
   ThisWorkbook.Names.Add "OK", _
      RefersTo:=Range("A1"), Visible:=False
   ThisWorkbook.Close
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen VBE und Schließen