[حل شده] کمک . . . . . . . .

[saeed bagheri]

سلام
وقت به خیر وخسته نباشید جانانه
قبلا از تمامی دوستانی که صادقانه کمک میکنند تشکر میکنم
آیا کسی از دوستان و اساتید میتونه کدی روبنویسه که از Save As کردن فایل در اکسل جلوگیری کنه

با تشکر

[rasools13]

سلام
وقت به خیر وخسته نباشید جانانه
قبلا از تمامی دوستانی که صادقانه کمک میکنند تشکر میکنم
آیا کسی از دوستان و اساتید میتونه کدی روبنویسه که از Save As کردن فایل در اکسل جلوگیری کنه

با تشکر

سلام این کد رو در ناحیه ThisWorkBook قرار بدین

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Application.Sheets("Sheet1").Range("A1").Value = "" Then
        Cancel = True
        MsgBox "امکان ذخيره کردن وجود ندارد:-)"
    End If
End Sub 

در این کد کافیه بجای sheet1 و سلول A1 ، سلولی را مشخص کنید که در صورت نداشتن یک مقدار خاص از ذخیره کردن جلوگیری کند