پروژه اکسل(42317)*
چهار سال پیش منتشر شده
تعداد بازدید: 339
کد پروژه: 345203
شرح پروژه
سلام وقت بخیر من یک پروژه ی کوچک برنامه نویسی در اکسل دارم
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c1 As Range
ActiveSheet.Unprotect Password:="@2560"
For Each c1 In Target
If c1.Value <> "" Then
Check = MsgBox("Motmaeen hastid?digar ghabel taghir nemibashad", vbYesNo, "Cell Lock")
If Check = vbYes Then
c1.Locked = True
Else
c1.Value = ""
End If
End If
Next c1
ActiveSheet.Protect Password:="@2560"
End Sub
داخل این فایلی که ارسال نمودم واستون،...دوتا ستون دارم که بنام های وضعیت تایید QC و وضعیت تایید AF ...اینجا من یک حالت کشویی درست کردم، که علامت تیک و ضربدر رو میشه انتخاب نمود من میخوام زمانیکه فقط در این دوتا ستون بودیم، و مثلا علامت تیک رو انتخاب نمودم، اون سلول قفل گردد، و پیغامی رو نشان بدهد که مطمئن هستی؟دیگر قابل تغییر نمیباشد، البته به فارسی، بعدش اگر که Yes رو زدیم قفل کنه، و اگرم No رو زدیم پاک کنه طرف علامت مورد نظرش رو انتخاب بکنه من توی اینجا تونستم اون پیغام رو بزارم، و حتی قفل هم بکنه، ولی کل صفحه قفل میشه، من نمیخوام مثلا ستون محصولات و یا سریال قفل بشن،...فقط اون دوتا ستون قفل بشن و با پسورد بشه که تصحیحش کنیم،.... البته اون کد هم در داخل خود فایل هم گنجانده بشه، و ذخیره گردد، و با بستن فایل اکسل و دوباره باز کردنش اون عملیات ها اجرا بشن،
ولی من نتونستم اون کد رو ذخیره کنم در فایل اکسل، و زمانیکه فایل اکسل رو میبندم و دوباره بازش میکنم، اصلا کدی در محیط VBA نیست، و اون عملکرد هایی که واسش گذاشتم، انجام نمیشن
اون دوتا ستون فقط قفل بشن..زمانیکه تیک و یاضربدر رو انتخاب نمودیم و اون پیغام رو اونجا بده ولی ستون های دیگر آزاد باشن، و بشه تایپ کرد راحت
1522*
این پروژه شامل 1 فایل مهم است، لطفا قبل از ارسال پیشنهاد حتما نسبت به بررسی این فایل اقدام فرمایید.
مهارت ها و تخصص های مورد نیاز
مهلت برای انجام
2روز
وضعیت مناقصه
بسته
درباره کارفرما
عضویت سیزده سال پیش
