پرسش چطوری یک ستون در اکسل رو قفل کنم؟؟

[ali_gh1392]

سلام من یه فرم خام طراحی کردم برای یک ماه (به تعداد داده های ثبت شده برای هر ماه هم سطر ایجاد میشه و ممکنه از 10 تا 60 سطر بشه) که چند ستون اول عدد وارد میشه و چند ستون آخر هم خروجی اکسله (یعنی یک سری محاسبات روی اعداد ستون های اول انجام میشه و توی ستون های اخر نشون میده)
من می خوام ستون های آخر که توش فرمول نوشته شده قفل شن و قابلیت ویرایش نداشته باشند
اما از طرفی چون فرم خام هست، من 60 تا سطر پیش فرض ایجاد کردم که قطعا بیشتر از نیاز هر ماهه
حالا می خوام ستون های آخر قفل باشن ولی بشه یک کاربر سطرهایی که نیازش نبود رو ویرایش کنه

اگه سخت توضیح دادم بگید که بیشتر توضیح بدم

[ali_gh1392]

دوستان کسی نمیتونه کمک کنه؟؟؟؟؟؟

[مرتضی حسینی]

با سلام از تب review سلهایی که لازم است ویرایش شوند قبلا میتوانید انتخاب کنید و برای بقیه سلها پسورد و امکان انواع ویرایش تعیین کنید راه پیشنهادی اینه که ستون های محاسباتی را در یک شیت دیگر قرار بدهید و ان شیت را کلا قفل کنید
حسینی 21ر6ر1398

[misammisam]

دوستان کسی نمیتونه کمک کنه؟؟؟؟؟؟

سلام
میشه یه نمونه بزارید از کارتون .
خطهایی که کم و زیاد میکنید به چه شکله ، آیا از جدول استفاده میکنید و یا یه فرم ساده و ...

[ali_gh1392]

سلام
میشه یه نمونه بزارید از کارتون .
خطهایی که کم و زیاد میکنید به چه شکله ، آیا از جدول استفاده میکنید و یا یه فرم ساده و ...

سلام یه نمونه قرار دادم
فرم ساده هست و جدول نیست
و اینکه سلول های زرد رو میخوام قفل کنم ولی امکان حذف کل ردیف (مثلا از ردیف 20 تا ردیف 31) وجود داشته باشه و رمز نخواد

[s.313]

سلام یه نمونه قرار دادم
فرم ساده هست و جدول نیست
و اینکه سلول های زرد رو میخوام قفل کنم ولی امکان حذف کل ردیف (مثلا از ردیف 20 تا ردیف 31) وجود داشته باشه و رمز نخواد

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

[ali_gh1392]

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

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

[iranweld]

با سلام

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

در صورت نیاز به تغییر شرط این خط کد ماکرو را اصلاح کنید

If Range("A" & i) = "" Then 

پسورد شیت = xx

Sub test()

ActiveSheet.Unprotect Password:="xx"
  
 z1 = Cells(Rows.Count, "e").End(xlUp).Row - 1
 
 For i = z1 To 2 Step -1
 
 If Range("A" & i) = "" Then
 
 Rows(i & ":" & i).Delete
 
 End If
 
 Next

   ActiveSheet.Protect Password:="xx"

End Sub