يوسف عطا قام بنشر يونيو 24, 2009 قام بنشر يونيو 24, 2009 الأخوة الأعزاءأريد تنفيذ أحد الإجراءات التالية1. إخفاء ورقة عمل أو عدة أوراق ضمن مصنف إيكسيل بينما تكون بعض الأوراق الأخرى ظاهرةأو2. حماية ورقة عمل برقم سرى بحيث لا تظهر بياناتها إلا بعد كتابة الباسووردشاكر لكم جميعاً افضالكم
عبدالله باقشير قام بنشر يونيو 24, 2009 قام بنشر يونيو 24, 2009 (معدل) السلام عليكم كود منقول اعجبني وتم التعديل عليه ليتناسب مع طلبك ===================================================== والذي اعجبني في هذا الكود انه لايمكنك الاطلاع على محتويات الورقة المغلقة اثناء الانتقال اليها لفتحها وذلك لاختفاء جميع اعمدة الورقة فيها وعند وضعك كلمة المرور الصحيحة يتم اظهار اعمدتها المخفية والا ستنتقل بعد محاولة ثلاث محاولات الى حيث كنت ====================================================== وايضا اذا اغلقت الملف والورقة مفتوحة اذا فتحه مرة اخرى سينقلك الى ورقة اخرى ========================= كلمة المرور للورقة "شيت مغلق" هي : kh ======================================== الكود موضوع في الوحدة النمطية ThisWoorkbook ======================================== Private Sub Workbook_SheetActivate(ByVal Sh As Object) On Error Resume Next Dim XX As String, S As String Dim K As Integer, N As Integer If Sh.CodeName <> "ورقة1" Then Sh_Name = Sh.Name Else ورقة1.Columns.Hidden = True For K = 1 To 3 XX = InputBox(Prompt:="فضلا ادخل كلمة المرور", Title:="المحاولة رقم:" & K) If XX = "" Then Sheets(Sh_Name).Select Exit Sub ElseIf XX <> "kh" Then N = 3 - K If N = 0 Then S = "" Else S = "متبقي عدد " & N & " محاولة" MsgBox "كلمة المرور ليست صحيحة" & Chr(13) & Chr(13) & S, vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight, "عفواً" Else Exit For End If Next K If K = 4 Then Sheets(Sh_Name).Select Exit Sub Else ورقة1.Columns.Hidden = False End If End If On Error GoTo 0 End Sub تفضل المرفق kh.rar تم تعديل يونيو 24, 2009 بواسطه خبور خير
خالد القدس قام بنشر يونيو 25, 2009 قام بنشر يونيو 25, 2009 السلام عليكم ما شاء الله كود رائع شكر لك أستاذ خبور وفتح الله عليك وبالله التوفيق
naderwatfa قام بنشر يونيو 25, 2009 قام بنشر يونيو 25, 2009 الله عليك .. أستاذ والله... الكود ده خطيييييييييييييييييييير في الكنترول شيت
يوسف عطا قام بنشر يونيو 26, 2009 الكاتب قام بنشر يونيو 26, 2009 أستاذى الغالى خبور بك صدقنى يا أخى العزيز لقد أعجبتنى كل المشاركات والموضوعات التى قرأتها لك فى هذا المنتدى العملاق اشكر لك فضلك وتفضلك بوضع هذا الكود الخطير والذى فعلاً كما قال زميلنا العزيز أرغب فى إستخدامه فى الشيت كونترول على ورقات العمل التى بها أسماء الطلاب والجلوس ومفتاح السرى والنتيجة بحيث لا يرى أحد إلا بيانات شيت الرصد فقط المهم عزيزى الغالى كيف أضع هذا الكود فى الملف أرجو الشرح بالتفصيل حيث أننى أول مرة استخدم أكواد فى ملفات الأوفيس مرة أخرى إسمحلى أن أنحنى لعبقريتك عزيزى الكريم
يوسف عطا قام بنشر يونيو 28, 2009 الكاتب قام بنشر يونيو 28, 2009 أستاذى الغالى خبور بك كيف أضع هذا الكود فى الملف أرجو الشرح بالتفصيل حيث أننى أول مرة استخدم أكواد فى ملفات الأوفيس مرة أخرى إسمحلى أن أنحنى لعبقريتك عزيزى الكريم أرجو الرد عزيزى الكريم خبور خير
يوسف عطا قام بنشر يونيو 29, 2009 الكاتب قام بنشر يونيو 29, 2009 السلام عليكم كود منقول اعجبني وتم التعديل عليه ليتناسب مع طلبك ===================================================== والذي اعجبني في هذا الكود انه لايمكنك الاطلاع على محتويات الورقة المغلقة اثناء الانتقال اليها لفتحها وذلك لاختفاء جميع اعمدة الورقة فيها وعند وضعك كلمة المرور الصحيحة يتم اظهار اعمدتها المخفية والا ستنتقل بعد محاولة ثلاث محاولات الى حيث كنت ====================================================== وايضا اذا اغلقت الملف والورقة مفتوحة اذا فتحه مرة اخرى سينقلك الى ورقة اخرى ========================= كلمة المرور للورقة "شيت مغلق" هي : kh ======================================== الكود موضوع في الوحدة النمطية ThisWoorkbook ======================================== Private Sub Workbook_SheetActivate(ByVal Sh As Object) On Error Resume Next Dim XX As String, S As String Dim K As Integer, N As Integer If Sh.CodeName <> "ورقة1" Then Sh_Name = Sh.Name Else ورقة1.Columns.Hidden = True For K = 1 To 3 XX = InputBox(Prompt:="فضلا ادخل كلمة المرور", Title:="المحاولة رقم:" & K) If XX = "" Then Sheets(Sh_Name).Select Exit Sub ElseIf XX <> "kh" Then N = 3 - K If N = 0 Then S = "" Else S = "متبقي عدد " & N & " محاولة" MsgBox "كلمة المرور ليست صحيحة" & Chr(13) & Chr(13) & S, vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight, "عفواً" Else Exit For End If Next K If K = 4 Then Sheets(Sh_Name).Select Exit Sub Else ورقة1.Columns.Hidden = False End If End If On Error GoTo 0 End Sub تفضل المرفق هى بس مش لو قفلت الورقة وهى ظاهرة لو فتحت تانى تفتح على ورقة غيرها دى كمان لو روحت لورقة غيرها وبعدين رجعتلها لازم تحط الباسوورد المهم عزيزى خبور أنا معرفتش ستفيد من الكود جربت الآتى ولم يفلح معى من ملف الإيكسيل دوست F11 ثم إنسرت ثم مديول ثم عملت لصق للكود ثم سيف ثم خروج من المديول ثم سيف للفايل ثم كلوس لكن برضه ماظبطش معايا ممكن مساعدة أكتر معلش أنا عارف إنى تقلت عليك يا استاذنا
أيسم إبراهيم قام بنشر يونيو 29, 2009 قام بنشر يونيو 29, 2009 السلام عليكم أستاذ يوسف بعد إذن أستاذنا الفاضل خبور بناءا على طلب الأستاذ يوسف شرح مبسط ( على قدي ) لطريقة إدراج الكود في ملف وكيفية تطبيقه على ملف خاصتي موضح بالصور أنمنى أن يفيد تحياتي أيسم إبراهيم kh.rar
يوسف عطا قام بنشر يونيو 30, 2009 الكاتب قام بنشر يونيو 30, 2009 الف شكر عزيزى الغالى أيسم بك بفضلك تم المطلوب والحمدلله شاكر جداً
يوسف عطا قام بنشر يونيو 30, 2009 الكاتب قام بنشر يونيو 30, 2009 أعزائى الكرام الأخ أيسم بك دام فضله الأخ خبور دام فضله هل يمكن تطبيق الكود على أكثر من ورقة داخل نفس المصنف ؟؟ أرجو الطريقة شاكر الأفضال
هشام شلبى قام بنشر يونيو 30, 2009 قام بنشر يونيو 30, 2009 السلام عليكم اخى الغالى فى اى مشاركة للاخ ابو تامر ستجد الادوات الذذكية انصحك بالاطلاع عليها ففيها كل ما تسأل عنه من نسخ اكواد وخلافه
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.