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

[mmahdih]

سلام و درود خدمت اساتيد محترم انجمن
من يك فايل دارم كه ميخوام بعد از پر شدن هر سلول بطور اتومات اون سلول قفل بشه و كسي نتونه اطلاعات سلولهاي پر شده رو تغيير بده
در اين خصوص دستور داريم ؟؟

فرضا اگر هم نياز به اصلاح بود فقط افراد تعريف شده خاصي بتونند فايل رو باز كنند و تغييرات لازمه رو بدهند و اين موردرو چجوري ميشه انجام داد

ممنونم از دوستاني كه در اين رابطه من رو راهنمايي ميكنند

[komeilex]

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

[align=justify]سلام. من قبلا یه نمونه فایل از همین تالار دانلود کردم ولی خاطرم نیست چه کسی زحمتشو کشیدن. براتون قرار می دم تا کارتون راه بیفته. [/align]
[attachment=862]

[mmahdih]

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

دوستان ميشه بفرمائيد

چطوري ميشه اين رو براي يك شيت فعال كرد؟؟

[~M*E*H*D*I~]

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

سلام
در تب review قسمت protect sheet رو انتخاب کنید در باکس اول پسورد وارد میشه و در قسمت allow all users... شما به کار بر با تیک زدن هر گزینه اجازه دسترسی میدید یعنی با برداشتن تیک کاربر قادر به انجام بعضی کار ها نیست

[shamsololama]

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

سلام و درود خدمت اساتيد محترم انجمن
من يك فايل دارم كه ميخوام بعد از پر شدن هر سلول بطور اتومات اون سلول قفل بشه و كسي نتونه اطلاعات سلولهاي پر شده رو تغيير بده
در اين خصوص دستور داريم ؟؟

فرضا اگر هم نياز به اصلاح بود فقط افراد تعريف شده خاصي بتونند فايل رو باز كنند و تغييرات لازمه رو بدهند و اين موردرو چجوري ميشه انجام داد

ممنونم از دوستاني كه در اين رابطه من رو راهنمايي ميكنند

با درود فراوان

این فایل رو قبلا هم تو سایت قرار داده بودم

فایل نمونه:
[attachment=863]

[mmahdih]

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

سلام و درود خدمت اساتيد محترم انجمن
من يك فايل دارم كه ميخوام بعد از پر شدن هر سلول بطور اتومات اون سلول قفل بشه و كسي نتونه اطلاعات سلولهاي پر شده رو تغيير بده
در اين خصوص دستور داريم ؟؟

فرضا اگر هم نياز به اصلاح بود فقط افراد تعريف شده خاصي بتونند فايل رو باز كنند و تغييرات لازمه رو بدهند و اين موردرو چجوري ميشه انجام داد

ممنونم از دوستاني كه در اين رابطه من رو راهنمايي ميكنند

با درود فراوان

این فایل رو قبلا هم تو سایت قرار داده بودم

فایل نمونه:

ممنونم دوست عزيز
من منظورم اين بود بعد از نوشتن اطلاعات داخل يك سلول بدون اينكه شيت رو قفل كنيم اپراتور نتونه اطلاعات وارده رو اصلاح يا پاك كنه هر چند هم غلط وارد كرده باشه
نميدونم منظورم رو رسوندم يانه

[MEYTI]

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

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

[shamsololama]

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

[ممنونم دوست عزيز
من منظروم اين بود بعد از نوشتن اطلاع اتداخل يك سلول بدون اينكه شيت رو قفل كنيم اپراتور نتونه اطلاعات وارده رو اصلاح يا پاك كنه هر چند هم غلط وارد كرده باشه
نميدونم منظورم رو رسوندم يانه
[/quote]


با درود فراوان

این راه هم به ذهن من رسیده ببین منظور شما همین بوده یا نه

امیدوارم به کار شما بیاد
در این نمونه بدون قفل کردن صفحه سل هایپر غیز فعال میشه و برای تغییرات با زدن کنترل و کلید e فرمی باز میشه که با وارد کردن پسورد = exceliran می توانید تغییرات رو اعمال کنید

[alisabet]

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

ولي بدون استفاده از پسورد با يه ماكرو به شكل زير ميتوان محتواي خانه هاي مورد نظر را تغيير داد
Sheets("sheet1").Cells(9, 2).Value = 1

[shamsololama]

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

ولي بدون استفاده از پسورد با يه ماكرو به شكل زير ميتوان محتواي خانه هاي مورد نظر را تغيير داد
Sheets("sheet1").Cells(9, 2).Value = 1

با درود فراوان

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

[~M*E*H*D*I~]

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

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

[mmahdih]

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

[ممنونم دوست عزيز
من منظروم اين بود بعد از نوشتن اطلاع اتداخل يك سلول بدون اينكه شيت رو قفل كنيم اپراتور نتونه اطلاعات وارده رو اصلاح يا پاك كنه هر چند هم غلط وارد كرده باشه
نميدونم منظورم رو رسوندم يانه

با درود فراوان

این راه هم به ذهن من رسیده ببین منظور شما همین بوده یا نه

امیدوارم به کار شما بیاد
در این نمونه بدون قفل کردن صفحه سل هایپر غیز فعال میشه و برای تغییرات با زدن کنترل و کلید e فرمی باز میشه که با وارد کردن پسورد = exceliran می توانید تغییرات رو اعمال کنید

[/quote]
ممنون
منظورم من همین بود
اما چطور میشه این کار رو انجام داد؟؟؟

[mstfatata]

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

با درود فراوان

این راه هم به ذهن من رسیده ببین منظور شما همین بوده یا نه

امیدوارم به کار شما بیاد
در این نمونه بدون قفل کردن صفحه سل هایپر غیز فعال میشه و برای تغییرات با زدن کنترل و کلید e فرمی باز میشه که با وارد کردن پسورد = exceliran می توانید تغییرات رو اعمال کنید

با سلام

لطفا می تونید طریقه این کارو توضیح بدید تا ما بتونیم کارو انجام بدیم
ممنون می شم:blush:

[shamsololama]

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

با سلام

لطفا می تونید طریقه این کارو توضیح بدید تا ما بتونیم کارو انجام بدیم
ممنون می شم:blush:


[/quote]


بادرود فراوان

در این روش توی رویداد سلکشن چنج نوشتیم که اگر خونهای که سلکت میکنیم پر باشه برو یه خونه خالی رو پیدا کن و آن ر سلکت کن در نتیجه خونه های پر رو نمی تونیم انتخاب کنیم که بخوایم چیز توش بنویسیم
واین به شرطی گذاشتیم که یوزر فرم یک باز نباشه و تکستش هم برابر با پسورد مورد نظر ما نباشه و اگر این شرط بر قرار باشه یعین پسورد رو نوشته باشیم میشه تو اون سلها نوشت



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If UserForm1.Visible = True And UserForm1.TextBox1.Text = "exceliran" Then


Else
If Selection.Count > 1 Then
Application.ActiveCell.Select

End If
If Target <> "" Then

Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End If
End If
End Sub

[sad_badal]

سلام دوستان
سوال بنده نیز تا حدودی شبیه سوال های قبلی می باشد ، برفرض تعدادی از سلول ها با تابع if پر شده و سلول ها در حال حاضر خالی می باشد، راهی هست که به عنوان مثال در فایل پیوست وقتی سلول a1 به حرف "b" تغییر کرد ، علاوه بر اینکه در c2 ، عدد 8 ظاهر شود سلول c1 نیز 8 باقی بماند و تغییر نکند ؟ یعنی در حقیقت وقتی عددی در سلول نشست دیگر تغییر نکند و وابستگی به فرمول از بین رود .