Note: The other languages of the website are Google-translated. Back to English

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

إذا كان لديك مصنف يحتوي على بعض أوراق العمل المخفية المهمة ، ولا تسمح للآخرين بإظهارها. الآن ، تحتاج إلى تعيين كلمة مرور لحماية أوراق العمل المخفية تمامًا ، عندما يقوم المستخدمون الآخرون بإخفائها ، يجب عليهم إدخال كلمة المرور. هل لديك أي طرق للتعامل مع هذه المهمة بسرعة وسهولة في 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 والإصدار التجريبي المجاني الآن!


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

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

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

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


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (10)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي سؤال حول رمز ورقة العمل المقيدة بكلمة المرور الخاصة بك. لقد قمت بنشر الكود التالي الذي يعمل .... ما أبحث عنه هو رمز يقوم بذلك باستخدام أوراق عمل متعددة وكلمات مرور متعددة داخل نفس المصنف. هل هذا ممكن؟ Private Sub Workbook_SheetActivate (ByVal Sh As Object) تحديث 20140925 Dim xSheetName كسلسلة xSheetName = "sheet1" If Application.ActiveSheet.Name = xSheetName ثم Application.EnableEvents = False Application.ActiveSheet.Visible = False xTitleId = "KutoolsforEx .InputBox ("كلمة المرور" ، xTitleId ، "" ، اكتب: = 2) إذا كانت الاستجابة = "123456" ثم Application.Sheets (xSheetName) .Visible = True Application.Sheets (xSheetName). حدد End If End If Application.Sheets ( xSheetName) .Visible = True Application.EnableEvents = True End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
وجدت حلا حتى الآن؟

أواجه نفس المشكلة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مصنف فرعي خاص _SheetActivate (ByVal Sh ككائن)
خافت xSheetName كسلسلة
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

إذا كان Application.ActiveSheet.Name = aSheetName ثم
Application.EnableEvents = خطأ
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox ("كلمة المرور" ، xTitleId ، "" ، النوع: = 2)
إذا كانت الإجابة = "1234" إذن
Application.Sheets (aSheetName) .Visible = True
Application.Sheets (aSheetName) .Select
آخر
Application.Sheets (aSheetName) .Visible = False
إنهاء حالة
إنهاء حالة
Application.EnableEvents = صحيح

إذا كان Application.ActiveSheet.Name = bSheetName ثم
Application.EnableEvents = خطأ
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox ("كلمة المرور" ، xTitleId ، "" ، النوع: = 2)
إذا كانت الإجابة = "2345" إذن
Application.Sheets (bSheetName) .Visible = True
Application.Sheets (bSheetName)
آخر
Application.Sheets (bSheetName) .Visible = False
إنهاء حالة
إنهاء حالة
Application.EnableEvents = صحيح

إذا كان Application.ActiveSheet.Name = cSheetName ثم
Application.EnableEvents = خطأ
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox ("كلمة المرور" ، xTitleId ، "" ، النوع: = 2)
إذا كانت الإجابة = "3456" إذن
Application.Sheets (cSheetName) .Visible = True
Application.Sheets (cSheetName)
آخر
Application.Sheets (cSheetName) .Visible = False
إنهاء حالة
إنهاء حالة
Application.EnableEvents = صحيح

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مصنف فرعي خاص _SheetActivate (ByVal Sh ككائن)
تعتيم aSheetName كسلسلة
خافت bSheetName كسلسلة
خافت cSheetName كسلسلة
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

إذا كان Application.ActiveSheet.Name = aSheetName ثم
Application.EnableEvents = خطأ
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox ("كلمة المرور" ، xTitleId ، "" ، النوع: = 2)
إذا كانت الإجابة = "123" إذن
Application.Sheets (aSheetName) .Visible = True
Application.Sheets (aSheetName) .Select
آخر
Application.Sheets (aSheetName) .Visible = False
إنهاء حالة
إنهاء حالة
Application.EnableEvents = صحيح

إذا كان Application.ActiveSheet.Name = bSheetName ثم
Application.EnableEvents = خطأ
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox ("كلمة المرور" ، xTitleId ، "" ، النوع: = 2)
إذا كانت الإجابة = "456" إذن
Application.Sheets (bSheetName) .Visible = True
Application.Sheets (bSheetName)
آخر
Application.Sheets (bSheetName) .Visible = False
إنهاء حالة
إنهاء حالة
Application.EnableEvents = صحيح

إذا كان Application.ActiveSheet.Name = cSheetName ثم
Application.EnableEvents = خطأ
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox ("كلمة المرور" ، xTitleId ، "" ، النوع: = 2)
إذا كانت الإجابة = "789" إذن
Application.Sheets (cSheetName) .Visible = True
Application.Sheets (cSheetName)
آخر
Application.Sheets (cSheetName) .Visible = False
إنهاء حالة
إنهاء حالة
Application.EnableEvents = صحيح

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على الكود ، لديك سؤال واحد فقط. عندما تفتح الورقة ، يُطلب منك سؤالاً ، ثم تدخلها وتكون الورقة مرئية ، ولكن عندما تقفز إلى الورقة التالية وتحاول إعادة فتح الورقة السابقة ، يُطلب منك كلمة المرور نفسها مرة أخرى في كل مرة. سؤالي هو هل يمكنك تجاوز ذلك وجعل Excel يسأل عن كلمة المرور مرة واحدة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يسمح الرمز الخاص بك للمستخدمين بعرض الورقة طالما أنهم يضغطون على زر الماوس الأيسر أثناء وجود مؤشر الماوس على علامة التبويب. جرب هذا لإبقاء الورقة مخفية حتى يتم إدخال كلمة المرور الصحيحة: إذا كانت الاستجابة = "123456" ثم Application.Sheets (xSheetName) .Visible = True Application.Sheets (xSheetName). حدد Else Application.Sheets (xSheetName) .Visible = False [/ b] [/ b] End If End If Application.EnableEvents = True End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا أنيق. إذا لم يقم الشخص الذي يقوم بفتح جدول البيانات بتمكين وحدات الماكرو (مثل VBA) ، فماذا يحدث؟ هل الملاءة المخفية بطة جالسة؟ أم أنه من المستحيل العثور عليه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ديفيد،
إذا فتحت المصنف دون تمكين الماكرو ، فسيتم عرض الورقة المخفية كالمعتاد. في هذه الحالة ، أوصيك بتطبيق الطريقة الأولى لحل هذه الوظيفة.
شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
jak ktoś ukrył arkusz jak w opisanym pierwszym sposobie ، nie znamy hasła to jak odkryć arkusz skoro hasło do visual basic jest w ukrytym arkuszu؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا سيكاوا

عذرًا ، في الوقت الحالي ، لا توجد طريقة جيدة لإلغاء حماية الورقة المخفية إذا نسيت كلمة المرور.

ولكن ، يمكنك تطبيق إخفاء كل الأوراق المخفية سمة من سمات كوتولس ل إكسيل لإظهار جميع الأوراق المخفية دون أي كلمة مرور.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-unhide-sheets.png
يمكنك تحميل كوتولس ل إكسيل واستخدمه بحرية لمدة 30 يومًا.
يرجى المحاولة. شكرًا لك!
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL