اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
أعلن هنا
أعلن هنا



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





حماية الشيت أو ملف العمل

السلام عليكم لي سؤال و هو كيف لي ان أضع حماية للشيت او الملف حيث لا يستطيع أحد فك الحماية مهما مايستعمله لفكها



17-01-2018 08:12 مساء
nasri
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 237
المشاركات : 4
الجنس : ذكر
تاريخ الميلاد : 18-6-1986
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 13
الاعجاب : 1
 offline 

السلام عليكم لي سؤال و هو كيف لي ان أضع حماية للشيت او الملف  حيث لا يستطيع أحد فك الحماية مهما مايستعمله لفكها  sadsadblink






18-01-2018 08:00 صباحا
مشاهدة مشاركة منفردة [1]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
العضو غائب مشغول هذه الايام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 675
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 335
قوة السمعة : 4337
الاعجاب : 1086
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif حماية الشيت أو ملف العمل
اذا كانت الحماية من الخارج فمن الممكن عمل كلمة مرور معقدة تتكون من حروف وارقام وعلامات وبكدا تتأكد ان فكها هيكون صعب
اما من الداخل فهناك حمايات مختلفة منها التحويل الى ملف تنفيذي او استخدام برامج لتشفير الدخول الى محرر الاكواد واغلب البرامج غير مجانية


 

أثارت هذه المشاركة إعجاب: nasri، YasserKhalil،


توقيع :Yasser Elaraby
663013020



18-01-2018 09:20 مساء
مشاهدة مشاركة منفردة [2]
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 143
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 8
قوة السمعة : 196
الاعجاب : 72
 offline 
look/images/icons/i1.gif حماية الشيت أو ملف العمل
جرب هذا الكود 
لحماية الاوراق من الداخل
ويعتمد على وضع كلمة مرور ويتم تغييرها باستمرار



------------------
كود حماية أوراق العمل 
Sub Protect_Sheet()
Dim P As Worksheet
For Each P In Worksheets
If P.ProtectScenarios = False Then
t = WorksheetFunction.RandBetween(1000, 3000)
Range("aa1") = t
P.Protect t
End If
Next P
End Sub

أثارت هذه المشاركة إعجاب: فتحي سلام،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تحديد اسم الشيت واسم الملف بدوال جديده مستحدثه - حسام خطاب الصقر
11 745 salim5d
كسر حماية ملف او شيت او جزء من الشيت ashraf.hassane9
6 62 الصقر
كيف ارحل بيانات من الليست بوكس الى شيت اخر بعد ازالته من الشيت الاصلي mmagedmemo
12 113 الصقر
ايه سبب ظهور الرمز#REF بعد عمل المعادلة وغلق الشيت وفتحه بودى مورا
2 41 أباالحسن
مجموعه اكواد بسيطه لتحديد نطاق العمل على الشيت - Scroll_Area_Alsqr الصقر
5 265 YasserKhalil

الكلمات الدلالية
حماية ، الشيت ، العمل ،


 








الساعة الآن 01:31 صباحا

أعلن هنا
أعلن هنا
أعلن هنا