ভিবিএ ব্যবহার করে এক্সেলে সেলগুলি কীভাবে লক এবং আনলক করবেন

নিজে অনুশীলন করতে নিম্নলিখিত ওয়ার্কবুকটি ডাউনলোড করুন।

VBA ব্যবহার করে Excel এ সেল লক এবং আনলক করার জন্য 6 আদর্শ উদাহরণ

এক্সেল VBA অনেক জটিল কাজ খুব সহজে সম্পাদন করতে পারেন। আপনাকে শুধু একটি কোড ইনপুট করতে হবে বা একটি লিখতে হবে। এই নিবন্ধে, আমরা VBA প্রয়োগ করব লক করতে এবং কোষ আনলক করুন এক্সেল-এ . ব্যাখ্যা করার জন্য, আমরা একটি নমুনা ডেটাসেট ব্যবহার করব। উদাহরণস্বরূপ, নিম্নলিখিত ডেটাসেটে সেলসম্যান রয়েছে৷ , পণ্য , এবং নেট বিক্রয় কোষ পরিসরে B4:D10 . এখানে, আমরা বিভিন্ন সেল রেঞ্জ লক করব।

1. VBA

আমাদের প্রথম উদাহরণে, আপনি দেখতে পাবেন কিভাবে একটি এক্সেল ওয়ার্কশীটে সমস্ত সেল লক করতে হয়। অতএব, কাজটি সম্পাদন করতে নিচের ধাপগুলি অনুসরণ করুন৷

পদক্ষেপ:

• প্রথমে, ডেভেলপার ➤ ভিজ্যুয়াল বেসিক-এ যান .

• ফলে, VBA উইন্ডো পপ আউট হবে।
• এখন, ঢোকান ➤ মডিউল নির্বাচন করুন .

• ফলে, মডিউল ডায়ালগ বক্স আসবে।
• এরপর, নীচের কোডটি অনুলিপি করুন এবং এটি মডিউল বাক্সে আটকান৷

Sub AllCells()
Sheets("All Cells").Cells.Locked = True
Sheets("All Cells").Protect
End Sub

• ফাইলটি সংরক্ষণ করুন এবং F5 টিপুন কোড চালানোর জন্য কী।
• অতএব, আপনি যখন কোনো সেল সম্পাদনা বা পরিবর্তন করার চেষ্টা করবেন, আপনি নীচের দেখানো মত একটি সতর্কীকরণ ডায়ালগ বক্স পাবেন।

2. নির্দিষ্ট সেল লক করার জন্য এক্সেল VBA প্রয়োগ করুন

এখন, আমরা নির্দিষ্ট সেল লক করার কোড দেখাব। আমরা একটি চেক বক্সও সন্নিবেশ করব যা লকিং এবং আনলকিং নিয়ন্ত্রণ করবে। সুতরাং, অপারেশন চালানোর জন্য নিম্নলিখিত পদক্ষেপগুলি শিখুন।

পদক্ষেপ:

• প্রথমে, সেল রেঞ্জের নাম দিন B4:D10 সারণী1 হিসাবে .

• এরপর, ডেভেলপার ➤ সন্নিবেশ ➤ চেক বক্সে ক্লিক করুন .

• পরে, আপনি যেখানে চান সেখানে চেক বক্স রাখুন।
• তারপর, শীটের নামের উপর ডান-ক্লিক করুন।
• কোড দেখুন নির্বাচন করুন প্রসঙ্গ মেনু থেকে।

• পপ-আউট ডায়ালগ বক্সে নিচের কোডটি ইনপুট করুন।

Private Sub CheckBox1_Click()
Range("Table1").Select
On Error Resume Next
If CheckBox1.Value = True Then
    Selection.Locked = False
    MsgBox Selection.Address & " Cell Range is Unlocked", vbInformation, "ExcelDemy"
Else
    Selection.Locked = True
    MsgBox Selection.Address & " Cell Range is Locked", vbInformation, "ExcelDemy"
End If
End Sub

• ফাইলটি সংরক্ষণ করুন এবং F5 কী টিপে কোডটি চালান
• অতএব, বাক্সটি চেক করা ঘরগুলিকে আনলক করবে এবং নীচে প্রদর্শিত হিসাবে একটি ডায়ালগ বক্স ফিরিয়ে দেবে৷

• একইভাবে, বক্সটি আনচেক করলে ঘরগুলি লক হয়ে যাবে।

3. VBA

যাইহোক, আমরা কেবলমাত্র কোষগুলিকে লক করতে পারি যেখানে একটি সূত্র রয়েছে। সুতরাং, একটি সূত্র দিয়ে কোষ লক করার প্রক্রিয়াটি অনুসরণ করুন৷

পদক্ষেপ:

• প্রথমে, মডিউল পান উদাহরণ 1 ধাপগুলি অনুসরণ করে বক্স করুন .
• বক্সে নিচের কোডটি টাইপ করুন।

Sub LockCellsWithFormulas()
For Each Rng In ActiveSheet.Range("B5:D10")
If Rng.HasFormula Then
Rng.Locked = True
Else
Rng.Locked = False
End If
Next Rng
ActiveSheet.Protect "111"
End Sub

• এর পর, RunSub -এ ক্লিক করুন কোড চালানোর জন্য বোতাম।
• এখানে আমরা দেখতে পাচ্ছি যে এই কোডটি সেল লক করবে যেখানে আমরা একটি সূত্র ইনপুট করেছি।
• উদাহরণস্বরূপ, D7 একটি সূত্র আছে। তাই আমরা এই ঘরটি সম্পাদনা করতে পারি না।

4. কিছু সেল ছাড়া সম্পূর্ণ ওয়ার্কশীট লক করুন

তাছাড়া, আমরা নির্দিষ্ট কিছু ঘর ছাড়া পুরো ওয়ার্কশীটটি লক করতে পারি। নিচের কোডটি দেখুন যেখানে B5:D10 যে পরিসীমা আমরা আনলক রাখতে চাই। এই পরিসর ব্যতীত, কোডটি চালানোর পরে পুরো ওয়ার্কশীটটি লক হয়ে যাবে।

Sub WorksheetExceptFewCells()
Dim wb As Workbook
Set wb = ActiveWorkbook
wb.Sheets("Entire Worksheet Except Few").Range("B5:D10").Locked = False
wb.Sheets("Entire Worksheet Except Few").Protect passowrd = "111"
End Sub

5. Excel-এ ডেটা এন্ট্রির পরে সেল লক করুন

আবার, পছন্দসই পরিসরে ডেটা প্রবেশ করার পরে কোষগুলিকে লক করা প্রয়োজন। এই উদাহরণে, B4:D10 আমরা ডেটা ইনপুট করব সেই পরিসর। অতএব, এক্সেলে ডেটা এন্ট্রির পরে সেল লক করতে নীচের ধাপগুলি অনুসরণ করুন৷

পদক্ষেপ:

• প্রথমে, শীটের নামের উপর ডান-ক্লিক করুন এবং কোড দেখুন নির্বাচন করুন .
• নিম্নলিখিত কোডটি ডায়ালগ বক্সে ইনপুট করুন।

Dim rg As Range
Dim str As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("B4:D10"), Target) Is Nothing Then
    Set rg = Target.Item(1)
    str = rg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xg As Range
    On Error Resume Next
    Set xg = Intersect(Range("B4:D10"), Target)
    If xg Is Nothing Then Exit Sub
    Target.Worksheet.Unprotect Password:="111"
    If xg.Value <> str Then xg.Locked = True
    Target.Worksheet.Protect Password:="111"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("B4:D10"), Target) Is Nothing Then
    Set rg = Target.Item(1)
     str = rg.Value
End If
End Sub

• RunSub টিপে কোডটি চালান বোতাম বা F5 কী৷৷
• এর পর, পরিসরে আপনার ডেটা মান টাইপ করুন।
• এটি স্বয়ংক্রিয়ভাবে লক হয়ে যাবে।
• আপনি যদি সম্পাদনা করার চেষ্টা করেন, তাহলে নিচের চিত্রের মতো সতর্কীকরণ ডায়ালগ বক্স পাবেন।

6. VBA ব্যবহার করে এক্সেলে সেল আনলক করুন

এখন পর্যন্ত, আমরা ব্যাখ্যা করেছি কিভাবে কোষ লক করতে হয়। এখন, আপনি একটি এক্সেল ওয়ার্কবুকে সেল আনলক করতে নিচের কোডটি ব্যবহার করতে পারেন।

Sub UnlockCells()
Sheets("Unlock Cells").Cells.Locked = False
Sheets("Unlock Cells").Unprotect
End Sub

ভিবিএ ছাড়াই কিভাবে Excel এ সেল লক এবং আনলক করবেন

আপনি VBA ব্যবহার না করেও ঘর লক এবং আনলক করতে পারেন৷ . আমরা ফরম্যাট সেল ব্যবহার করতে পারি কক্ষ লক/আনলক করতে ডায়ালগ বক্স। আপনাকে লকড এর জন্য বাক্সটি চেক করতে হবে৷ আপনি কোষ লক করতে চান. একইভাবে, সেলগুলি আনলক করতে, বক্সটি আনচেক করা হবে। আবার, আপনি যদি আপনার ওয়ার্কশীট বা ওয়ার্কবুক সুরক্ষিত না করেন তাহলে আপনার সেল লক করার কোনো প্রভাব থাকবে না৷

পদক্ষেপ:

• প্রথমে, আপনার পছন্দসই পরিসর নির্বাচন করুন।
• তারপর, Ctrl টিপুন এবং 1 চাবি একসাথে।
• এটি ফরম্যাট সেল ফিরিয়ে দেবে ডায়ালগ বক্স।
• সুরক্ষা এর অধীনে ট্যাব, লক করা চেক/আনচেক করুন আপনার প্রয়োজনের উপর নির্ভর করে বক্স।

• আপনি যদি ওয়ার্কশীটটি সুরক্ষিত করতে চান তবে পর্যালোচনা ট্যাবে যান৷
• সেখানে, শীট সুরক্ষিত করুন নির্বাচন করুন সুরক্ষা থেকে ড্রপ-ওয়ান।
• এইভাবে, শীট সুরক্ষিত হবে।

উপসংহার

এখন থেকে, আপনি সেলগুলি লক এবং আনলক করতে সক্ষম হবেন৷ VBA ব্যবহার করে এক্সেল-এ উপরে বর্ণিত উদাহরণ অনুসরণ করে। এক্সেলে নির্দিষ্ট সেল লক করা আপনাকে অন্যদের থেকে আপনার ডেটা সুরক্ষিত করার স্বাধীনতা দেয়। এটি আপনাকে দুর্ঘটনাজনিত মুছে ফেলা রোধ করতে বা আপনার ডেটা নষ্ট করা থেকে অন্য কাউকে আটকাতে সহায়তা করে। সেগুলি ব্যবহার করা চালিয়ে যান এবং আপনার কাছে টাস্ক করার আরও উপায় থাকলে আমাদের জানান৷ The ExcelDemy অনুসরণ করুন এই মত আরো নিবন্ধের জন্য ওয়েবসাইট. নীচের মন্তব্য বিভাগে আপনার যদি কোনও মন্তব্য, পরামর্শ বা প্রশ্ন থাকে তবে তা জানাতে ভুলবেন না৷