DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
ActiveWorkbook.Close False
End If
End Sub
Sayın uzmanamelemerhaba
excel2007 den bahsettiğinize göre klasör değil çalışma kitabını kastediyor olmalısınız.
bu kod işinizi görür mü?
Kod:Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI Then ActiveWorkbook.Close False End If End Sub