çalışmanızda rastladığım tek sorun Workbook_BeforeClose olayında kullanmış olduğunuz
If Val(deg) = 0 Then 'Excel X kapatmayı engellemek
'MsgBox "Lütfen ÇIKIŞ Butonunu Kullanınız.", vbCritical
Cancel = True
End If
kodu bu kodu silince bende hata vermeden kapandıaşağıdaki örnek dün eklemiş olduğunuz çalış üzerinde yapılmıştır