اغلاق كتاب العمل


اغلاق كتاب العمل الحالى
ThisWorkBook.Close



اغلاق كتاب عمل عن طريق اسمه
Workbooks("db1.xlsx").Close



اغلاق كل كتب العمل ما عدا الذى به هذا الكود

Sub CloseWorkbooks()
Dim WbCount As Integer
WbCount = Workbooks.Count
For i = WbCount To 1 Step -1
If Workbooks(i).Name <> ThisWorkbook.Name Then
Workbooks(i).Close
End If
Next i
End Sub