اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





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

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



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

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






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


 

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


توقيع :Yasser Elaraby
663013020



18-01-2018 09:20 مساء
مشاهدة مشاركة منفردة [2]
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 196
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 9
قوة السمعة : 308
الاعجاب : 115
 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

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود حفظ نسخة من الشيت ayoub2007
1 46 ayoub2007
كيف جمع المبالغ من الشيتات التي سوف تضاف في المستقبل للملف ابوعلي الحبيب
28 318 YasserKhalil
كيفية اضافة عدد محدد من الشيتات الى الكومب بوكس abushuber
4 66 YasserKhalil
تحديد عدد الاعمدة في الشيت mahmod mahmod
5 82 Eslam Abdullah
ارجو من الاساتذة الكرام مساعدة في إكمال هذا الشيت عبدالله فتحى
11 197 YasserKhalil

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


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 05:54 صباحا

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