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

[moein306]

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

[generalsamad]

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

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

پست 22 رو نگاه کنید

http://forum.exceliran.com/showthread.php/1514-%D8%B1%D8%A7%D9%87%D9%86%D9%85%D8%A7%D9%8A%D9%8A-%D8%AC%D9%87%D8%AA-%D8%B9%D8%AF%D9%85-%D8%AA%D8%BA%D9%8A%D9%8A%D8%B1-%D9%BE%D8%B3-%D8%A7%D8%B2-%D9%BE%D8%B1%D8%B4%D8%AF%D9%86-%D8%B3%D9%84%D9%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]

با سلام

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

[hoseiny.m]

بسيار از لطف و پاسخ همه دوستان سپاسگذارم
خدارو شكر انجام شد

[fotros12]

دوستان سلام
من یک فایل فروش روزانه دارم که در اولین سلول هر سطر تاریخ فروش ثبت میشه.میخوام وقتی کاربر فروش امروز را با درج تاریخ امروز ثبت کرد فردا نتونه ثبتی های امروز رو تغییربده، به عبارتی دیگر سطر هایی که دارای تاریخ دیروز به قبل هستن قفل بشوند.و فقط خودم با وارد کردن رمز بتونم فایل رو ویرایش کنم.راهی داره؟ممنون

[amir_ts]

با سلام
لینک زیر را ملاحظه کنید.
راهنمايي جهت عدم تغيير پس از پرشدن سلول

[fotros12]

ممنون ولی من میخوام کابر بتونه فروش همون روز رو ویرایش کنه،از فرداش قفل بشه

یا اینکه بعد از سیو کردن, سلول های پر شده قفل شوند و برای تغییر آنها رمز نیاز باشد

[iranweld]

با سلام

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

Sub test()

Application.ScreenUpdating = False
Dim X1, X2, X3, Y1, Y2, Y3 As string

k1 = Cells(Rows.Count, "A").End(xlUp).Row

ActiveSheet.Unprotect "password"

X = J_TODAY(1)

X1 = Left(X, 4)
X2 = Mid(X, 5, 2)
X3 = Right(X, 2)


For i = 2 To k1

Y1 = Left(Range("A" & i), 4)
Y2 = Mid(Range("A" & i), 5, 2)
Y3 = Right(Range("A" & i), 2)

If X1 & X2 & X3 > Y1 & Y2 & Y3 Then

For j = 1 To 7

Cells(i, j).Select

    Selection.Locked = True
    Selection.FormulaHidden = False
    
    
    Next
    
End If

Next

ActiveSheet.Protect "password"

Application.ScreenUpdating = True

Cells(k1 + 1, 1).Select

End Sub