پروژه ویژوال بیسیک (108631)
سلام وقتتون بخیر Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim ws As Worksheet Set ws = ActiveSheet ws.Unprotect Password:="9092" Dim cell As Range For Each cell In Target If Not IsEmpty(cell.Value) Then cell.Locked = True Else cell.Locked = False End If Next cell ws.Protect Password:="9092" End Sub Dim NextSaveTime As Date Sub StartAutoSave() ScheduleNextSave End Sub Sub ScheduleNextSave() NextSaveTime = Now + TimeValue("00:00:10") Application.OnTime NextSaveTime, "AutoSaveWorkbook" End Sub Sub AutoSaveWorkbook() ThisWorkbook.Save ScheduleNextSave End Sub Sub StopAutoSave() On Error Resume Next Application.OnTime NextSaveTime, "AutoSaveWorkbook", , False End Sub ممنونم #مارال ایتا 2
امتیاز : 9.2 از 10
- اطلاعات پروژه
- 18438کد پروژه
-
کمک آموزشی
دسته بندی - 15 فروردین 1405تاریخ ثبت
- 2 روزمهلت اجرا
- 25,000 تومانحداقل بودجه
- 500,000 تومانحداکثر بودجه
- 5 درصد ضمانت اجرا
- آماده دریافت پیشنهادها وضعیت
تایم لاین پروژه
درخواست پشتیبانی-
در انتظار پرداخت
پرداخت تعرفه ثبت پروژه های غیر رایگان
-
در حال بررسی
برسی و تایید پروژه از طرف مدیرت سایت
-
آماده دریافت پیشنهادها
تایید پروژه و نمایش برای مجریان
-
در انتظار پرداخت هزینه پروژه
پرداخت هزینه اجرای پروژه توسط کارفرما
-
در انتظار پرداخت ضمانت اجرا
پرداخت مبلغ ضمانت اجرا توسط مجری
-
در حال انجام
پروژه شما درحال انجام می باشد
-
انجام شد
اتمام اجرای پروژه
لیست پیشنهادها
هیچ پیشنهادی ارسال نشده است
در حال بارگذاری...