PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : پرسش: ورود اطلاعات در اكسل و روش جلوگيري از حذف اطلاعات وارد شده


roohalamin
2017/10/16, 14:08
با سلام سوالم خيلي راحته البته يه چيزايي هم در رابطه با سوالم پيدا كردم در اينترنت اما خوب نتونستم مشكلمو حل كنم سوال اينه: چگونه ميتونم در اكسل اطلاعاتي وارد كنم اما نتونم اين اطلاعات رو پاك كنم يا حذف كنم يعني در يك فايل اكسل اطلاعات رو وارد كنم اما نتونم به هيچ وجه پاكشون كنم؟ با تشكر
admin
2017/10/16, 14:27
خب یه راهش قفل کردن است
از تب review گزینه protect sheet
roohalamin
2017/10/16, 18:35
خب یه راهش قفل کردن است
از تب review گزینه protect sheet

نه خدا خيرتون بدهد اونجور كه كلي قفل ميكنه و نميذاره اصن ورود اطلاعات باشه و اجازه ثبت اطلعات نميده
admin
2017/10/16, 18:42
نه خدا خيرتون بدهد اونجور كه كلي قفل ميكنه و نميذاره اصن ورود اطلاعات باشه و اجازه ثبت اطلعات نميده
خب فقط همون محدوده مورد نظر رو قفل کنید کار خاصی نداره
roohalamin
2017/10/17, 08:33
خب فقط همون محدوده مورد نظر رو قفل کنید کار خاصی نداره

خيلي عجيبه وقتي من يه جايي رو قفل كنم ديگه ميتونم اونجا چيزي بنويسم؟!!!!؟؟؟؟!!!!گفتم اين با vba و از اين دست حل ميشه تا يه جاهايي هم رفتم اما نشد گفتم ميخوام تو فايل بتونم بنويسم اما نتونم پاك كنم فك كنم سوال روشنه
iranweld
2017/10/17, 11:58
با سلام

و کسب اجازه از مدیر محترم سایت

فایل پیوست را بررسی بفرمایید

پسورد:
در قسمت کدنویسی و viwe sheet
654321


Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Unprotect Password:="654321"

Cells.Locked = False

For Each Cell In Sheet1.UsedRange

If Cell <> "" And Cell.Locked = False Then

Cell.Locked = True

End If

Next

ActiveSheet.Protect Password:="654321"

End Sub
roohalamin
2017/10/17, 13:18
با سلام

و کسب اجازه از مدیر محترم سایت

فایل پیوست را بررسی بفرمایید

پسورد:
در قسمت کدنویسی و viwe sheet
654321


Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Unprotect Password:="654321"

Cells.Locked = False

For Each Cell In Sheet1.UsedRange

If Cell <> "" And Cell.Locked = False Then

Cell.Locked = True

End If

Next

ActiveSheet.Protect Password:="654321"

End Sub


با تشكر فراوان ممنون از اين كه منو فهميديد