I think this is what your after

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
With ThisWorkbook
.Save
.Close
End With
Application.DisplayAlerts = True
End Sub

"Jim" wrote:

That was the code in sheet 2, and the code in ThisWorkbook is as follows:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Data").Activate
Columns("A:J").Select

If Selection.EntireColumn.Hidden < True Then
Selection.EntireColumn.Hidden = True
End If

sheetprot 'subroutine that protects all sheets
ThisWorkbook.Save
ThisWorkbook.Close
End Sub