ActiveWorkbook.Close upon closing book it opens a blank excel book

[0 Agios]

here is the code

ActiveSheet.Protect Password:="7863396789", DrawingObjects:=True, Contents:=True, Scenarios:=True _


ActiveSheet.EnableSelection = xlUnlockedCells
Unload Me
ActiveWorkbook.Save
ActiveWorkbook.Close

 

[diddi]

are you sure you did not already have a blank sheet created and it has just reappeared? (eg you copied a sheet to a new book)

 

[0 Agios]

It was because the vba page was open thanks

 

[0 Agios]

I was wrong. This is what happens. No matter what i do, if i have other workbooks open it closes them also.
here is the code i tried

Private Sub CommandButton35_Click()
' ActiveSheet.Protect Password:="7863396789", DrawingObjects:=True, Contents:=True, Scenarios:=True _


'ActiveSheet.EnableSelection = xlUnlockedCells

'ActiveWorkbook.Save
Workbooks("Bid Schedule.xlsm").Close SaveChanges:=True
'ActiveWorkbook.Close
' Unload Me
End Sub