Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Cancel Close action based on the A1 value

Sub Workbook_BeforeClose(Cancel As Boolean)          If ThisWorkbook.Sheets("Sheet1").Range("A1").Value <> True Then             Cancel = True          End If      End Sub