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

[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 

[fotros12]

با تشکر از شما
من قفل فایل رو باز کردم خواستم داده های جدول رو پاک کنم و دوباره داده جدید وارد کنم ، مثلا سه سطر اول رو پر کردم با تاریخ های 1394/10/18 و 1394/10/19 و 1394/10/21 بعد فایل رو قفل کردم اما 10 سطر اول قفل بودند و نمیشد داده جدید وارد کرد(یعنی برنامه به تاریخ امروز توجهی نداشت و امروز رو هم قفل کرده بود)

[iranweld]

برای ویرایش سطرهای قفل شده قبلی، محدوده مورد نظر را انتخاب نموده و مطابق تصویر پیوست عمل کنید

[fotros12]

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

[iranweld]

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

در فایل جدید در صورت تغییر دادن در شیت اگر دوباره شیت رو قفل کنید تغییرات اعمال میگردد

[fotros12]

نمیشه تاریخ رو دستی وارد کنم؟