پاسخ : قفل اتوماتیک سطر

[esrafil2006]

با سلام
من در فایل پیوست میخوام که به محضی که در ستون ab در هر سلول گزینه (فعال) بود سطر مربوطه قفل بشه اگه عبارت (غیر فعال) بود سطر باز باشه و بشه اطلاعات اون را ویرایش کرد
تشکر (رمز 123)

[Amir Ghasemiyan]

سلام
فايلتون پيوست نشده دوست عزيز. لطفا مجددا تلاش كنيد

[esrafil2006]

مجددا فرستادم

[esrafil2006]

123.xlsx

[Ali Parsaei]

اگر در سل ستون ab هر سطر عبارت "فعال" نوشته شود خانه هاي سطر فعال و اگر "غير فعال" نوشته شود خانه هاي سطر غير فعال گردد؟ منظورتان همين است؟
اين کار با data validation انجام مي گردد ولي براي تمام خانه ها بايد اعمال گردد و احتمالا" حجم فايل خيلي زياد مي شود!
با توجه به اينکه در تالار ويژوال بيسيک سوال را مطرح کرده ايد آيا راه حل معمولي مي خواهيد؟ يا با vba؟

[esrafil2006]

اگر حجم فایل زیاد میشود لطفا با vb توضیح دهید ممنون ضمنا میشه معمولی اون هم توی دیتا ولیدیشن توضیح بدید چون من نتونستم

[Ali Parsaei]

حالت معمولي اش بايد ديتاوليديشن را در حالت custum قرار داده و شرط مربوطه را (فرضا" براي سطر نهم) اينچنين بنويسيد:

=if(ab9="فعال";true;false)

[esrafil2006]

ببخشید در حالت معمولی که گفتید چه جوری سطر مربوطه بعد از عملیاتی که گفتید قفل میشه؟

[Ali Parsaei]

به فرض اگر در خانه a9 ديتاوليديشني با فرمول فوق اعمال کنيد، اگر در خانه ab9 نوشته شده باشد "غيرفعال" ديگر خانه a9 را نمي توانيد ويرايش کنيد، پيغام خطا دريافت خواهيد کرد.
ضمنا" آيا شما با vba آشنايي داريد؟

[Ali Parsaei]

کد VBA آن هم به صورت زير مي شود:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(ActiveCell.Row, 28).Value = "غير فعال" And ActiveCell.Row < 617 And ActiveCell.Row > 8 And ActiveCell.Column < 28 Then
MsgBox "سطر قفل شده", vbOKOnly
Cells(ActiveCell.Row, 28).Select
End If
End Sub

فقط مشکلي که هست اينه که حرف "ي" که شما در ديتاوليديشن ستون AB به کاربرده ايد با اين "ي" که من در کد به کار برده ام فرق مي کند. و احتمالا" کد کار نخواهد کرد!
در اين صورت لغت "غير فعال" را از کد من کپي و در ديتاوليديشن خود PASTE کنيد تا کار کند.
البته چون اين کد هم در رويداد SelectionChange نوشته شده باز هم يک مقدار شايد فايل را کند کند.
ضمنا" فقط خانه هاي سمت راست ستون AB را قفل مي کند.

[esrafil2006]

لطفا عاجزانه روی فایل پیوست اجرا بشه که مفهومی تر بشه کار چون امتحان کردم نشد تشکر

[esrafil2006]

حل شد دوست عزیز مشکل توی vb خودم بود سپاس

فقط اگر ممکنه من در یک قسمت دیگه مشکل دارم لطفا کمکم کنید تلاش کردم ولی نشد
من میخوام برای شیت ثبت تخصیص یک فرم ورود اطلاعات بسازم با این شرط که در شیت welcome به محض زدن دکمه ثبت تخصیص فرم مربوطه باز بشه و حتما تمام آیتمهاش از نام واحد تا شماره رایان نظم در ستون v الزامی پر بشه توسط کاربر و قبل از ذخیره هر مورد ثبت سوال بشه از کاربر که آیا اطلاعات تخصیص درست است یا خیر ؟ با این حساب ستون ad دیگه نیازی نخواهد بود و برای حفاظت سطر هم توی فرم قابل پیش بینی باشه که با زدن تیک" فعال" در فرم سطر مربوطه اتوماتیک قفل بشه

خیلی ممنون میشم از اساتید کمکم کنند .
فایل پیوست است

[esrafil2006]

اساتید ؟؟

[khakzad]

دوست عزیز این سوال شما که پروژه است!!!!
انتظار ندارید که فایل کامل با مشخصاتی که می خواید در اختیارتون قرار بگیره

زحمت بکشید شروع کنید. مرحله به مرحله سوال بپرسید (بخش به بخش)

از تالارویژوال بیسیک کمک بگیرید.
فرم زیاد داره