Excel में उपयोगकर्ताओं द्वारा व्यक्तिगत कार्यपत्रकों की सुरक्षा के लिए पासवर्ड कैसे सेट करें?
एक्सेल में, आप अलग-अलग शीट के लिए अलग-अलग पासवर्ड सेट कर सकते हैं, इसका मतलब है कि एक उपयोगकर्ता एक पासवर्ड का उपयोग करके एक वर्कशीट में बदलाव कर सकता है, और दूसरा उपयोगकर्ता किसी अन्य वर्कशीट में बदलाव करने के लिए एक अलग पासवर्ड का उपयोग कर सकता है। लेकिन, कभी-कभी, आप केवल यह चाहते हैं कि प्रत्येक उपयोगकर्ता अपनी शीट को देख और उस तक पहुंच सके। क्या एक्सेल में इसका समाधान संभव है?
प्रत्येक वर्कशीट को व्यक्तिगत रूप से सुरक्षित रखने और उपयोगकर्ताओं द्वारा वर्कशीट तक पहुंच को सीमित करने के लिए, कृपया नीचे दिया गया VBA कोड लागू करें:
1. एक नई कार्यपुस्तिका खोलें, और "मुख्य" नाम से एक नई शीट बनाएं, स्क्रीनशॉट देखें:
2। फिर दबायें ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, डबल क्लिक करें यह बाएं से परियोजना-वीबीएपरियोजना एक रिक्त कोड मॉड्यूल खोलने के लिए फलक, और फिर निम्नलिखित VBA कोड को कोड विंडो में कॉपी और पेस्ट करें, स्क्रीनशॉट देखें:
वीबीए कोड: उपयोगकर्ताओं द्वारा अलग-अलग शीट की सुरक्षा के लिए पासवर्ड सेट करें
Option Explicit
Dim gUserName As String
Dim gUserPass As String
Private Sub Workbook_Open()
'Updateby ExtendOffice
Dim xWShs As Sheets
Dim xWSh As Worksheet
Dim xUserName As String
Dim xPass As String
Dim xBolH As Boolean
GTINPUT:
xUserName = InputBox("Enter the user name")
If TypeName(xUserName) = "String" Then
If xUserName = "" Then
Exit Sub
End If
End If
xUserName = LCase(xUserName)
xPass = InputBox("User name:" & xUserName & Chr(13) & Chr(10) & "Enter the password:")
If TypeName(xPass) = "String" Then
If xPass = "" Then
MsgBox "The password is incorrect, please enter the user name and password again."
GoTo GTINPUT
End If
Else
MsgBox "The password is incorrect, please enter the user name and password again."
GoTo GTINPUT
End If
Set xWShs = Worksheets
xBolH = False
For Each xWSh In Worksheets
If xWSh.Name = xUserName Then
xBolH = True
Exit For
End If
Next
If xBolH Then
Set xWSh = xWShs(xUserName)
On Error GoTo GTINPUT2
xWSh.Unprotect (xPass)
xWSh.Visible = True
xWSh.Activate
Else
Set xWSh = xWShs.Add
xWSh.Name = xUserName
xWSh.Activate
End If
gUserName = xUserName
gUserPass = xPass
Exit Sub
GTINPUT2:
MsgBox "The password is incorrect, please enter the user name and password again."
GoTo GTINPUT
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xWSh As Worksheet
On Error Resume Next
Set xWSh = Worksheets(gUserName)
xWSh.Protect Password:=gUserPass, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
For Each xWSh In Worksheets
If xWSh.Name <> "Main" Then
xWSh.Visible = xlSheetVeryHidden
End If
Next xWSh
ActiveWorkbook.Save
End Sub
3. फिर, कर्सर को के अंत में रखें निजी उप कार्यपुस्तिका_खुला() स्क्रिप्ट, और दबाएँ F5 इस कोड को चलाने की कुंजी. अब, पॉप आउट प्रॉम्प्ट बॉक्स में, वह उपयोगकर्ता नाम दर्ज करें जिसे आप इस उपयोगकर्ता के लिए एक शीट बनाना चाहते हैं, स्क्रीनशॉट देखें:
4. और फिर, क्लिक करें OK बटन, निम्नलिखित प्रॉम्प्ट बॉक्स में, इस शीट की सुरक्षा के लिए एक पासवर्ड दर्ज करें, स्क्रीनशॉट देखें:
5. क्लिक करते जाइये OK बटन, और उपयोगकर्ता नाम के साथ एक नई शीट तुरंत बनाई जाती है, और आप उस उपयोगकर्ता के लिए अपनी आवश्यकतानुसार डेटा बना सकते हैं। स्क्रीनशॉट देखें:
6. अन्य शीट जिन्हें आप उपयोग करना चाहते हैं, बनाने के लिए उपरोक्त चरण 3 - चरण 5 को एक-एक करके दोहराएं।
7. शीट बनाने के बाद वर्तमान वर्कबुक को क्लिक करके सेव करें पट्टिका > इस रूप में सहेजें।, में इस रूप में सहेजें संवाद बॉक्स में, फ़ाइल नाम निर्दिष्ट करें और फिर चुनें एक्सेल मैक्रो-सक्षम कार्यपुस्तिका (* .xlsm) से प्रारूप प्रकार के रूप में सहेजें ड्रॉप डाउन सूची, स्क्रीनशॉट देखें:
8. फिर इस फाइल को सेव करने के लिए सेव बटन पर क्लिक करें।
9. और फिर कार्यपुस्तिका को बंद करके दोबारा खोलें, फिर क्लिक करें सामग्री को सक्षम करें कोड को सक्रिय करने के लिए फॉर्मूला बार के शीर्ष पर स्क्रीनशॉट देखें:
10. अब, एक प्रॉम्प्ट बॉक्स आपको यह याद दिलाने के लिए निकलेगा कि किसी निश्चित उपयोगकर्ता द्वारा विशिष्ट शीट खोलने के लिए उपयोगकर्ता नाम और पासवर्ड दर्ज करें।
11. अंत में, इस कार्यपुस्तिका को अन्य उपयोगकर्ताओं को भेजते समय, आपको उपयोगकर्ता को उपयोगकर्ता नाम और पासवर्ड भेजना चाहिए। वे केवल अपनी स्वयं की शीट खोलेंगे और संपादित करेंगे, और उनके पास अन्य वर्कशीट देखने का अधिकार नहीं होगा।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल आपकी अधिकांश समस्याओं का समाधान करता है, और आपकी उत्पादकता को 80% तक बढ़ाता है
- सुपर फॉर्मूला बार (पाठ और सूत्र की अनेक पंक्तियों को आसानी से संपादित करें); लेआउट पढ़ना (बड़ी संख्या में सेल को आसानी से पढ़ें और संपादित करें); फ़िल्टर की गई रेंज में चिपकाएँ...
- कक्षों/पंक्तियों/स्तंभों को मर्ज करें और डेटा रखना; विभाजित कोशिकाओं की सामग्री; डुप्लिकेट पंक्तियों और योग/औसत को संयोजित करें... डुप्लिकेट सेल रोकें; रेंज की तुलना करें...
- डुप्लिकेट या अद्वितीय का चयन करें पंक्तियाँ; रिक्त पंक्तियाँ चुनें (सभी कोशिकाएँ खाली हैं); सुपर फाइंड और फ़ज़ी फाइंड कई कार्यपुस्तिकाओं में; यादृच्छिक चयन...
- सटीक प्रति सूत्र संदर्भ बदले बिना एकाधिक कक्ष; स्वतः संदर्भ बनाएँ एकाधिक शीट्स के लिए; बुलेट डालें, चेक बॉक्स और बहुत कुछ...
- पसंदीदा और त्वरित रूप से सम्मिलित सूत्र, रेंज, चार्ट और चित्र; कोशिकाओं को एन्क्रिप्ट करें पासवर्ड के साथ; मेलिंग सूची बनाएं और ईमेल भेजें...
- पाठ निकालें, टेक्स्ट जोड़ें, स्थिति के अनुसार हटाएँ, अंतरिक्ष निकालें; पेजिंग सबटोटल बनाएं और प्रिंट करें; सेल सामग्री और टिप्पणियों के बीच कनवर्ट करें...
- सुपर फ़िल्टर (फ़िल्टर योजनाओं को अन्य शीटों पर सहेजें और लागू करें); उन्नत सॉर्ट महीने/सप्ताह/दिन, आवृत्ति और अधिक के अनुसार; विशेष फ़िल्टर बोल्ड, इटैलिक द्वारा...
- वर्कबुक और वर्कशीट को मिलाएं; प्रमुख स्तंभों के आधार पर तालिकाएँ मर्ज करें; डेटा को एकाधिक शीट में विभाजित करें; बैच कनवर्ट xls, xlsx और पीडीएफ...
- पिवोट टेबल ग्रुपिंग द्वारा सप्ताह संख्या, सप्ताह का दिन और बहुत कुछ... अनलॉक, लॉक किए गए सेल दिखाएँ विभिन्न रंगों से; उन कक्षों को हाइलाइट करें जिनमें सूत्र/नाम हो...
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!