Excel - सभी शीट एक साथ कैसे प्रोटेक्ट करें

अगर आप Excel मे कोई एसा जटिल लिंक और फोर्म्यूला के साथ पत्रक बनाते है तो जरुरी है कि आप इसकी सभी शीट प्रोटेक्ट करना चाहेंगे। यहां पर एसी ट्रीक दी गई है जिससे आप एकसाथ सभी शीट एक ही पासवर्ड के साथ प्रोटेक्ट कर सकते है।







[code]
Option Explicit
Sub ProtectAll()
    Dim wSheet   As Worksheet
    Dim Pwd As String
    Pwd = InputBox("Enter your password to protect all worksheets", "Password Input")
    For Each wSheet In Worksheets
        wSheet.Protect Password:=Pwd
    Next wSheet
End Sub

Sub UnProtectAll()
    Dim wSheet As Worksheet
    Dim Pwd  As String
    Pwd = InputBox("Enter your password to unprotect all worksheets", "Password Input")
    On Error Resume Next
    For Each wSheet In Worksheets
        wSheet.Unprotect Password:=Pwd
    Next wSheet
    If Err <> 0 Then
        MsgBox "You have entered an incorect password. All worksheets could not " & _
        "be unprotected.", vbCritical, "Incorect Password"
    End If
    On Error Goto 0
End Sub
[/code]

इस्तेमाल का तरीका:

1.     उपरोक्त Code कोपी करें 2.     MS Excel ओपन करें 3.     Alt + F11 दबाकर Visual Basic Editor (VBE) ओपन करें 4.     Insert मेनु मे से Module सिलेक्ट करें 5.     दांयी ओर विन्डो मे पेस्ट करें 6.     VBE बंध करें 7.     Save As क्लिक करके Excel Macro-Enabled Workbook के रुप मे Save करें 8.     अब जब भी सभी शीट एकसाथ प्रोटेक्ट करनी हो तो View मेनु पर से Macros पर क्लिक करें .ProtectAll या UnProtectAll पर क्लिक करके प्रक्रिया को आगे बढायें