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



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





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

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



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
المشاركات : 747
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 395
قوة السمعة : 5128
الاعجاب : 1327
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif حماية الشيت أو ملف العمل
اذا كانت الحماية من الخارج فمن الممكن عمل كلمة مرور معقدة تتكون من حروف وارقام وعلامات وبكدا تتأكد ان فكها هيكون صعب
اما من الداخل فهناك حمايات مختلفة منها التحويل الى ملف تنفيذي او استخدام برامج لتشفير الدخول الى محرر الاكواد واغلب البرامج غير مجانية


 

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


توقيع :Yasser Elaraby
663013020



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

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اضافة عمودين بأول الشيت نصر الإيمان
10 121 YasserKhalil
ترحيل من الشيت إلى Listbox بناء على شرط Haneen Amr
6 135 زيزو العجوز
اخفاء الشيت واظهار اليوزر فورم كا برنامج تنفيذي amaar
0 112 amaar
معادلة جلب بيانات من الشيتات حارثة ابو زيد1
9 104 YasserKhalil
استفسار عن الترحيل مع حماية الشيت mohamed.fawzy
1 60 mohamed.fawzy

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


 







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



الساعة الآن 08:53 صباحا

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