راهنمايي جهت عدم تغيير پس از پرشدن سلول

[moein306]

باسلام.مشکل من اینجاست که فرض کنیدکاربراول اطلاعات رودرسطر1وsheet1واردکنه ومیخواداین اطلاعات روقفل کنه تانفربعدی امکان تغییراین اطلاعات رونداشته باشه.حال اگه protect sheetروبزنه وپسوردکلی شیت رووارد کنه،نفردوم برای وارد کردن اطلاعات مثلادرسطردوم باید شیت روunprotectکنه تابتونه اطلاعات روواردکنه که دراین صورت امکان تغییر اطلاعات واردشده توسط کاربراول ممکن میشه.همین اتفاق درباره کاربرسوم می افته.مشکل مااینجاست که محل واردکردن اطلاعات هرنفردرشیت های مختلف تغییرمیکنه.خلاصه کلام اینطوربگم میخواهیم درهرشیت هرکاربری هرکجاخواست(بجزخانه هایی که قبلااطلاعات واردوقفل شده)بتونه اطلاعات واردکنه وباپسوردخودش اون خونه روقفل کنه.بازهم ازشکیبایی تان ممنونم.

[generalsamad]

با سلام
این خواسته شما فکر کنم با vba قابل حل باشه
چون فرمودید محدوده برای کاربران مشخص نیست (یعنی ممکنه توی هر شیت و در هر سلولی کاربران اطلاعاتی وارد کنند بجز سلولهائی که دارای مقدار باشند)
یعنی محدودیت برای کاربران سلولهای پر میشه

شاید دوستان که vba کار میکنند بتونند راهنمائی کنند

پست 22 رو نگاه کنید
http://forum.exceliran.com/showthrea...88%D9%84/page3

[moein306]

باسلام وتشکرازبذل توجه تان واینکه درحل مشکلات کاربران صبوری میکنید.
درپناه لطف حق باشید.

[hoseiny.m]

چرا جواب نگرفتی ، مفصل در موردش تو سایت بحث شده .
این فرمولو تو شیتی که میخوای بعد از تایپ درون هر سلول دیگر اون سلول قابل ویرایش نباشه کپی بکنید .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value <> "" Then
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
End If
End Sub 

سلام
ببخشيد ميشه لطفا قدم به قدم بفرماييد كه اين دستورات رو كجا و چه طور بايد در شيت مورد نظر كپي كرد؟
ممنون

[khakzad]

سلام
دوست عزیز وارد محیط کد نویسی بشیدAlt+F11
روی شیتی که میخواید دبل کلیک کنید
این کد رو اونجا قرا بدید

[hoseiny.m]

سلام
دوست عزیز وارد محیط کد نویسی بشیدAlt+F11
روی شیتی که میخواید دبل کلیک کنید
این کد رو اونجا قرا بدید

سلام و ممنون از توجهتون
من همين كار رو انجام دادم ولي همچنان اطلاعات قابل تغييرند!
فايل رو جهت اطلاع پيوست كردم، لطفا ملاحظه كنيد
دو تا سوال هم داشتم
1-بعد از درست شدن اين دستور ، اگر بخواهيم براي دادن اجازه ويرايش پسورد خاصي داده شود چكار بايد بكنيم؟
2-علاوه بر اين دستور ميشود براي ستونهايي از صفحه هم محافظت مازاد ايجاد كرد؟ (ّراي بخشهايي از صفحه از protect sheet استفاده كرد)

[generalsamad]

با سلام
دوست عزیز موقع ذخیره کردن با چه پسوندی فایلتون رو ذخیره میکنید؟

[misammisam]

سلام و ممنون از توجهتون
من همين كار رو انجام دادم ولي همچنان اطلاعات قابل تغييرند!
فايل رو جهت اطلاع پيوست كردم، لطفا ملاحظه كنيد
دو تا سوال هم داشتم
1-بعد از درست شدن اين دستور ، اگر بخواهيم براي دادن اجازه ويرايش پسورد خاصي داده شود چكار بايد بكنيم؟
2-علاوه بر اين دستور ميشود براي ستونهايي از صفحه هم محافظت مازاد ايجاد كرد؟ (ّراي بخشهايي از صفحه از protect sheet استفاده كرد)

با سلام
دوست عزیز فایلتونو باید با پسنوند xlsm ذخیره کنید ، که ماکروها در فایلتون ذخیره بشن ، در حال حاضر ماکرویی در فایل نیست .
برای گذاشتن رمز جهت ویرایش هم باید به شکل زیر تغییرش بدهید ( اینجا الان رمز 123 هست )

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value <> "" Then
ActiveSheet.Protect "123"
Else
ActiveSheet.Unprotect "123"
End If
End Sub 

فایل هم براتون ضمیمه کردم

[hoseiny.m]

با سلام
دوست عزیز فایلتونو باید با پسنوند xlsm ذخیره کنید ، که ماکروها در فایلتون ذخیره بشن ، در حال حاضر ماکرویی در فایل نیست .
برای گذاشتن رمز جهت ویرایش هم باید به شکل زیر تغییرش بدهید ( اینجا الان رمز 123 هست )

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value <> "" Then
ActiveSheet.Protect "123"
Else
ActiveSheet.Unprotect "123"
End If
End Sub 

فایل هم براتون ضمیمه کردم

سلام مجدد
بسيار ممنون از راهنماي هاي دوستان عزيز
من مجدد دستور رو وارد كردم و فايل رو با پسوند

xlsm هم ذخيره كردم اما در اين شيت (شيت .P.R) اعمال نشد!
جالبه كه در همين فايل شيت جديدي باز كردم (sheet1)و براي آن دستور رو ايجاد كردم فعال بود!
فايل رو جهت بررسي دوستان فرستادم (البته فايل فرمت xlsm بود ولي چون نميشد با اون فرمت آپلود كرد با فرمت xls فرستادم)
متشكر

[iranweld]

با سلام

با توجه به تصویر پیوست بر روی قسمت نشان داده شده کلیک کنید تا کل سلولهای شیت انتخاب گردد و در همان قسمت راست کلیک و سایر مراحل نشان داده شده را انجام دهید