بسيار از لطف و پاسخ همه دوستان سپاسگذارم
خدارو شكر انجام شد
بسيار از لطف و پاسخ همه دوستان سپاسگذارم
خدارو شكر انجام شد
دوستان سلام
من یک فایل فروش روزانه دارم که در اولین سلول هر سطر تاریخ فروش ثبت میشه.میخوام وقتی کاربر فروش امروز را با درج تاریخ امروز ثبت کرد فردا نتونه ثبتی های امروز رو تغییربده، به عبارتی دیگر سطر هایی که دارای تاریخ دیروز به قبل هستن قفل بشوند.و فقط خودم با وارد کردن رمز بتونم فایل رو ویرایش کنم.راهی داره؟ممنون
ممنون ولی من میخوام کابر بتونه فروش همون روز رو ویرایش کنه،از فرداش قفل بشه
یا اینکه بعد از سیو کردن, سلول های پر شده قفل شوند و برای تغییر آنها رمز نیاز باشد
ویرایش توسط fotros12 : 2016/01/11 در ساعت 09:58
با سلام
در فایل پیوست بمحض باز شدن فایل ماکرویی اجرا میگردد که سطرهای تاریخ قبل از روز جاری را قفل مینماید
کد PHP:
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
ویرایش توسط iranweld : 2016/01/11 در ساعت 12:23
با تشکر از شما
من قفل فایل رو باز کردم خواستم داده های جدول رو پاک کنم و دوباره داده جدید وارد کنم ، مثلا سه سطر اول رو پر کردم با تاریخ های 1394/10/18 و 1394/10/19 و 1394/10/21 بعد فایل رو قفل کردم اما 10 سطر اول قفل بودند و نمیشد داده جدید وارد کرد(یعنی برنامه به تاریخ امروز توجهی نداشت و امروز رو هم قفل کرده بود)
این کار رو کردم
ویرایش رو انجام دادم
روی بازکردن قفل شیت کلیک کردم بعد سیو کردم دوباره فایل رو باز کردم اما همه سلول ها باز بودند و تاریخ های قبل امروز قفل نشده بودند
برای قفل شدن سطرها ، فایل رو ببندید و مجددا باز کنید یا فایل اصلاحی خود را ضمیمه پست کنید
در فایل جدید در صورت تغییر دادن در شیت اگر دوباره شیت رو قفل کنید تغییرات اعمال میگردد
ویرایش توسط iranweld : 2016/01/11 در ساعت 12:42
نمیشه تاریخ رو دستی وارد کنم؟
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)