پرسش ورود اطلاعات در اكسل و روش جلوگيري از حذف اطلاعات وارد شده

[roohalamin]

با سلام سوالم خيلي راحته البته يه چيزايي هم در رابطه با سوالم پيدا كردم در اينترنت اما خوب نتونستم مشكلمو حل كنم سوال اينه: چگونه ميتونم در اكسل اطلاعاتي وارد كنم اما نتونم اين اطلاعات رو پاك كنم يا حذف كنم يعني در يك فايل اكسل اطلاعات رو وارد كنم اما نتونم به هيچ وجه پاكشون كنم؟ با تشكر

[admin]

خب یه راهش قفل کردن است
از تب review گزینه protect sheet

[roohalamin]

خب یه راهش قفل کردن است
از تب review گزینه protect sheet

نه خدا خيرتون بدهد اونجور كه كلي قفل ميكنه و نميذاره اصن ورود اطلاعات باشه و اجازه ثبت اطلعات نميده

[admin]

نه خدا خيرتون بدهد اونجور كه كلي قفل ميكنه و نميذاره اصن ورود اطلاعات باشه و اجازه ثبت اطلعات نميده

خب فقط همون محدوده مورد نظر رو قفل کنید کار خاصی نداره

[roohalamin]

خب فقط همون محدوده مورد نظر رو قفل کنید کار خاصی نداره

خيلي عجيبه وقتي من يه جايي رو قفل كنم ديگه ميتونم اونجا چيزي بنويسم؟!!!!؟؟؟؟!!!!گفتم اين با vba و از اين دست حل ميشه تا يه جاهايي هم رفتم اما نشد گفتم ميخوام تو فايل بتونم بنويسم اما نتونم پاك كنم فك كنم سوال روشنه

[iranweld]

با سلام

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

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

پسورد:
در قسمت کدنویسی و 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]

با سلام

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

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

پسورد:
در قسمت کدنویسی و 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 

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