কথা না বলে সরাসরি কাজে আসি। কথা হবে সব কমেন্টে---------

(১) প্রথমে একটি এক্সেল ফাইল চালু করুন।
(২) Alt+F11 চেপে Visual Basic Code Window খুলুন। ThisWorkbook এ ডাবল ক্লিক করুনপ
(৩) নিচের কোড সমূহ কপি করে হুবহু পেষ্ট করুন।
Codes:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim HarunWorkSheet As Worksheet 'by this declared variable.
Dim HarunRange As Range 'by this declared variable.
Set HarunWorkSheet = Me.Worksheets("Sheet1")    'Sheet1 is selected for lock
On Error Resume Next
HarunWorkSheet.Unprotect Password:="harun24hr"  'password for unprotect, you may change it as your own wish
HarunWorkSheet.Cells.Locked = False ' By this all cells done unprotect
Set HarunRange = HarunWorkSheet.UsedRange.SpecialCells(xlCellTypeConstants) ' By this all used cells selected
If Not HarunRange Is Nothing Then
HarunRange.Locked = True    'use cells done locked
End If
Set HarunRange = HarunWorkSheet.UsedRange.SpecialCells(xlCellTypeFormulas)  ' By this all used (data by any function or formulas) cells selected
If Not HarunRange Is Nothing Then
HarunRange.Locked = True 'use cells done locked
End If
HarunWorkSheet.Protect Password:="harun24hr" 'password for protect sheet
End Sub
 

 
(৪) ফাইলটি Excel Macro-Enabled Workbook হিসেবে save করুন। File--> Save as---> Excel Macro-Enabled Workbook
(৫) কোন সেলে ডাটা এন্ট্রি করার পর save বাটনে ক্লিক করলেই সেই সেল লক হয়ে যাবে। শিট আনপ্রটেক্ট করে আবার ডাটা এন্ট্রি করতে পারবেন। তবে সেক্ষেত্রে password চাইবে।
 
 
Md. Harun-Or-Rashid
+8801785-675-102, +8801916-933-691
Harun24hr@gmail.com, harun24hr@hotmail.com