انتقل إلى المحتوى الرئيسي

كيفية تعيين كلمة مرور لحماية الورقة المخفية في إكسيل؟

إذا كان لديك مصنف يحتوي على بعض أوراق العمل المخفية المهمة ، ولا تسمح للآخرين بإظهارها. الآن ، تحتاج إلى تعيين كلمة مرور لحماية أوراق العمل المخفية تمامًا ، عندما يقوم المستخدمون الآخرون بإخفائها ، يجب عليهم إدخال كلمة المرور. هل لديك أي طرق للتعامل مع هذه المهمة بسرعة وسهولة في Excel؟

قم بتعيين كلمة مرور لحماية الأوراق المخفية باستخدام وظيفة VeryHidden

قم بتعيين كلمة مرور لحماية الورقة المخفية برمز VBA

قم بحماية أوراق عمل متعددة في وقت واحد باستخدام Kutools for Excel


قم بتعيين كلمة مرور لحماية الأوراق المخفية باستخدام وظيفة VeryHidden

عادة ، يمكنك استخدام وظيفة VeryHidden لإخفاء أوراق العمل أولاً ، ثم تعيين كلمة مرور لها ، يرجى القيام بالخطوات التالية:

1. افتح المصنف الخاص بك ، واضغط باستمرار ALT + F11مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. في نافذة ميكروسوفت فيسوال باسيك للتطبيقات، اضغط هنا المزيد > مستكشف المشروع و نافذة خصائص tس عرض لوحاتهم.

دوك-حماية-أوراق-خفية -01

3. وبعد ذلك في مشروع- VBAProject في الجزء ، اختر ورقة العمل التي تريد إخفاءها ، وفي ملف عقارات ، انقر فوق القائمة المنسدلة من ملف مرئي لتحديد xlSheetVeryHidden الخيار ، انظر لقطة الشاشة:

دوك-حماية-أوراق-خفية -02

4. بعد جعل ورقة العمل مخفية تمامًا ، يمكنك تعيين كلمة مرور لحمايتها. في ال نافذة ميكروسوفت فيسوال باسيك للتطبيقات، اضغط هنا إدراج > وحدة لفتح وحدة فارغة ، ثم انقر فوق الأدوات > خصائص VBAProject، انظر لقطة الشاشة:

دوك-حماية-أوراق-خفية -03

5. ثم ظهرت في الخارج خصائص مشروع VBAProject مربع الحوار، انقر فوق حماية ثم انقر فوق مشروع قفل للعرض ، أخيرًا ، أدخل كلمة المرور وأكدها في ملف كلمة مرور لعرض خصائص المشروع القسم ، انظر لقطة الشاشة:

دوك-حماية-أوراق-خفية -04

6. ثم اضغط OK زر للخروج من مربع الحوار هذا وإغلاق ملف نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

7. احفظ المصنف باسم مصنف Excel ممكن بماكرو التنسيق وإغلاقه لجعل حماية كلمة المرور سارية المفعول.

دوك-حماية-أوراق-خفية -05

8. في المرة القادمة ، عندما تفتح هذا المصنف ، وترغب في جعل الأوراق المخفية مرئية ، يُطلب منك إدخال كلمة مرور. انظر لقطة الشاشة:

دوك-حماية-أوراق-خفية -06


عرض: تعيين كلمة المرور لحماية الأوراق المخفية


قم بتعيين كلمة مرور لحماية الورقة المخفية برمز VBA

لتعيين كلمة مرور لحماية الأوراق المخفية ، يمكنني أيضًا التحدث عن رمز VBA لك.

1. إخفاء ورقة العمل التي تريد حمايتها.

2. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

3. ثم اختر ThisWorkbook من اليسار مستكشف المشروع، انقر فوقه نقرًا مزدوجًا لفتح ملف وحدة، ثم انسخ والصق رمز فبا التالي في الوحدة النمطية الفارغة:

كود فبا: اضبط كلمة المرور لحماية الورقة المخفية

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
xSheetName = "Sheet1"
If Application.ActiveSheet.Name = xSheetName Then
    Application.EnableEvents = False
    Application.ActiveSheet.Visible = False
    xTitleId = "KutoolsforExcel"
    response = Application.InputBox("Password", xTitleId, "", Type:=2)
    If response = "123456" Then
        Application.Sheets(xSheetName).Visible = True
        Application.Sheets(xSheetName).Select
    End If
End If
Application.Sheets(xSheetName).Visible = True
Application.EnableEvents = True
End Sub

دوك-حماية-أوراق-خفية -07

ملاحظات: في الكود أعلاه ، Sheet1 ل xSheetName = "Sheet1" البرنامج النصي هو اسم ورقة العمل المخفية التي تريد حمايتها ، و 123456 في ال إذا كانت الإجابة = "123456" إذن البرنامج النصي هو كلمة المرور التي قمت بتعيينها للورقة المخفية. يمكنك تغييرها حسب حاجتك.

4. الآن ، عندما تريد إظهار الورقة المخفية ، سيظهر مربع موجه للسماح لك بإدخال كلمة المرور. وسيظهر مربع المطالبة هذا في كل مرة ، عند النقر لإظهار الورقة المخفية.

دوك-حماية-أوراق-خفية -08


قم بحماية أوراق عمل متعددة في وقت واحد باستخدام Kutools for Excel

إذا كنت ترغب في حماية أوراق العمل المتعددة المحددة أو جميعها لمصنف ما في وقت واحد ، فعادة ما تحتاج إلى حماية واحدة تلو الأخرى يدويًا في Excel. ولكن ، إذا كان لديك كوتولس ل إكسيل، بما لديها حماية ورقة العمل فائدة ، يمكنك حمايتهم بنقرة واحدة.

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30

بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:

1. انقر كوتولس بلس > حماية ورقة العمل، انظر لقطة الشاشة:

2. في حماية ورقة العمل في مربع الحوار ، يتم سرد جميع أوراق العمل الموجودة في المصنف في مربع القائمة ، يرجى اختيار أوراق العمل التي تريد حمايتها. انظر لقطة الشاشة:

دوك-حماية-أوراق-خفية -010

3. ثم انقر فوق OK، في مربع الحوار التالي ، يرجى إدخال كلمة المرور الخاصة بك وإعادة كتابتها مرة أخرى ، ثم النقر فوق OK، سيظهر مربع موجه آخر لتذكيرك بعدد أوراق العمل التي تمت حمايتها.

دوك-حماية-أوراق-خفية -011

4. ثم اضغط OK لإغلاق مربعات الحوار ، تمت حماية جميع أوراق العمل الموجودة في المصنف بنفس كلمة المرور.

ملحوظة: إذا كنت تريد إلغاء حماية جميع أوراق العمل مرة واحدة ، فما عليك سوى النقر فوق كوتولس بلس > إلغاء حماية ورقة العملواكتب كلمة المرور الخاصة بك لإلغاء الحماية.

 قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


مقالات ذات صلة:

كيف تحمي أوراق عمل متعددة في وقت واحد في إكسيل؟

كيفية تعيين كلمة مرور لحماية المصنف؟

كيفية حماية / قفل كود فبا في إكسيل؟

أفضل أدوات إنتاجية المكتب

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
jak ktoś ukrył arkusz jak w opisanym pierwszym sposobie, a nie znamy hasła to jak odkryć arkusz skoro hasło do visual basic jest w ukrytym arkuszu?
This comment was minimized by the moderator on the site
Hello, ciekawa

Sorry, at present, there is no good way for canceling the protect of the hidden sheet if you forget the password.

But, you can apply the Uhide all hidden sheets feature of Kutools for Excel to unhide all the hidden sheets without any password.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-unhide-sheets.png
You can download Kutools for Excel and use it freely for 30 days.
Please have a try. Thank you!
This comment was minimized by the moderator on the site
This is elegant. IF the person opening the spreadsheet does not enable macros (i.e. VBA) what happens? Is the hidden sheet a sitting duck? Or is it quite impossible to find?
This comment was minimized by the moderator on the site
Hi, David,
If you open the workbook without enabling the macro, the hidden sheet is displayed as normal. In this case, I recommend you to apply the first method for solving this job.
Thank you!
This comment was minimized by the moderator on the site
Your code allows users to view the sheet as long as they hold the left mouse button while the mouse pointer is on the tab. Try this to keep sheet hidden until correct password is entered: If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select Else Application.Sheets(xSheetName).Visible = False[/b][/b] End If End If Application.EnableEvents = True End Sub
This comment was minimized by the moderator on the site
I have a question about your password restricted worksheet code. You posted the following code which works....what I am looking for is code that will do this with multiple worksheets and multiple passwords within the same workbook. Is this possible? Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'Update 20140925 Dim xSheetName As String xSheetName = "sheet1" If Application.ActiveSheet.Name = xSheetName Then Application.EnableEvents = False Application.ActiveSheet.Visible = False xTitleId = "KutoolsforExcel" response = Application.InputBox("Password", xTitleId, "", Type:=2) If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select End If End If Application.Sheets(xSheetName).Visible = True Application.EnableEvents = True End Sub
This comment was minimized by the moderator on the site
Found a solution yet?

I am having the same problem
This comment was minimized by the moderator on the site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim aSheetName As String
Dim bSheetName As String
Dim cSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "123" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "456" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "789" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub
This comment was minimized by the moderator on the site
Thanks for the code, just have one question. When you open the sheet you are asked for question, then you enter it and the sheet is visible, but when you jump to next sheet and try to re-open previous sheet, you are asked for the same password again everytime. My question is can you bypass that and make excel ask for password once?
This comment was minimized by the moderator on the site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "1234" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "2345" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "3456" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations