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



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





كود فك حماية ورقة معلومه كلمة مرورها

السلام عليكم اساتذتنا الكبار اكرمكم الله وزادكم من فضله ارجو ان تتفضلوا كرما منكم بالحل ان تكرمتم المجلد اسمه 55 ..



13-02-2018 02:46 صباحا
ظفر الله عسكر
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-12-2017
رقم العضوية : 2747
المشاركات : 80
الجنس : ذكر
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 315
الاعجاب : 77
 Online 





السلام عليكم  اساتذتنا الكبار اكرمكم الله وزادكم من فضله ارجو ان تتفضلوا كرما منكم بالحل
ان تكرمتم  المجلد اسمه 55 فيه ملفان الأول اسمه 1 والثاني اسمه 2 موجود على القرص E مباشرة
الورقه التي اسمها جلاء في الملف الثاني محمية بكلمة مرور هي 222
المطلوب اذا فتحت الملف 1 وضغطت على زر تغيير ان يتم التالي
ان يتم فتح الملف الذي اسمه 2
فك حماية الورقة التي اسمها جلاء فيه (فك الحمايه هو  222 )
نسخ الخلية B3 من الملف الأول والذهاب الى الملف الثاني ولصقها في صفحة اداريون في الخليه B3 ثم الذهاب الى صفحة جلاء ولصقها في الخلية Z3
إعادة حماية الورقة (جلاء) بكلمة مرور 222
حفظ الملف واغلاقه
الذهاب الى الملف الأول وكتابة تم التغيير في الخلية C10
الف شكر بارك الله بكم
 
 
  55.zip   تحميل zip مرات التحميل :(10)
الحجم :(17.001) KB







15-02-2018 01:07 صباحا
مشاهدة مشاركة منفردة [1]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 425
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 437
الاعجاب : 164
 offline 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
اللهم ارزق اخي الكريم ظفر الله عسكر
باحد الاحبه في الله من الذين افاض الله عليهم بالعلم





16-02-2018 06:34 صباحا
مشاهدة مشاركة منفردة [2]
ظفر الله عسكر
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-12-2017
رقم العضوية : 2747
المشاركات : 80
الجنس : ذكر
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 315
الاعجاب : 77
 Online 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
بارك الله بك اخي ناصر جزاك الله كل خير
ننتظر الاجابه مع الشكر للجميع





16-02-2018 05:34 مساء
مشاهدة مشاركة منفردة [3]
محمد الدسوقى
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 312
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 37
يتابعهم : 7
يتابعونه : 200
قوة السمعة : 2107
الاعجاب : 497
 offline 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
الأخ الكريم / ظفر الله عسكر
تفضل المرفق به الكود المطلوب  لعله يفى بالغرض المطلوب
مع ملاحظة أن امتداد الملف المطلوب فتحه هو .xls ، ويجب أن يكون فى البارتشن E

Sub export_data()
'-----------------------------------------------------
Dim WS As Workbook
Dim WB As Workbook
   
Set WS = ActiveWorkbook
Set WB = Workbooks.Open("E:\2.xls")
'==================================================================
Application.ScreenUpdating = False
WB.Activate
'-----------
             Sheets("جلاء").Activate
             ActiveSheet.Unprotect Password:="222"
     
WS.Activate
'-----------
     Sheets("ورقة1").Range("B3").Activate
       ActiveCell.Copy

WB.Activate
'-----------
Sheets("جلاء").Range("Z3").Activate
            ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                  :=False, Transpose:=False
                      Range("A1").Select
                   
Sheets("جلاء").Range("Z3").Activate
            ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                  :=False, Transpose:=False
                      Range("A1").Select
    
Application.CutCopyMode = False
Sheets("جلاء").Select
     ActiveSheet.Protect Password:="222"
'--------------------------------------
WB.Save
       WB.Close
'--------------------------------------
 WS.Activate
         Sheets("ورقة1").Range("C10").Value = "تم التغيير"
WS.Save
'--------------------------------------
Application.ScreenUpdating = True
End Sub


-------------------------

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
-------------------------

تقبل تحياتى
 
 
  1.rar   تحميل rar مرات التحميل :(4)
الحجم :(16.053) KB


أثارت هذه المشاركة إعجاب: ناصر سعيد1، الصقر، ظفر الله عسكر، Yasser Elaraby،




16-02-2018 11:23 مساء
مشاهدة مشاركة منفردة [4]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 425
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 437
الاعجاب : 164
 offline 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
لقد رزقك الله باخ فاضل جزاه الله خيرا
شكرا استاذ محمد
وادعو الله ان يكون هذا مبتغاك اخي ظفر الله

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




17-02-2018 01:27 صباحا
مشاهدة مشاركة منفردة [5]
محمد الدسوقى
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 312
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 37
يتابعهم : 7
يتابعونه : 200
قوة السمعة : 2107
الاعجاب : 497
 offline 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
بارك الله فيك أخى / ناصر سعيد
وجزاكم الله خيرا 
وادعو الله أن يكون هذا هو مبتغى أخونا / ظفر الله عسكر

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




17-02-2018 06:08 مساء
مشاهدة مشاركة منفردة [6]
ظفر الله عسكر
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-12-2017
رقم العضوية : 2747
المشاركات : 80
الجنس : ذكر
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 315
الاعجاب : 77
 Online 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
جزاك الله كل خير جزاك الله كل خير جزاك الله كل خير
سلمت يداك
استاذي الغالي تم الامر لكن هذا الامر لم ينفذ
نسخ الخلية B3 من الملف الأول والذهاب الى الملف الثاني ولصقها في صفحة اداريون في الخليه B3 
وسؤال اخر اذا كان امتداد الملف الثاني xlsm هل يكفي اضافة m في الكود لامتداد الملف ام تتغير الطريقه
بارك الله بك وفتح عليك ابواب رحمته وعلمه





17-02-2018 09:31 مساء
مشاهدة مشاركة منفردة [7]
محمد الدسوقى
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 312
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 37
يتابعهم : 7
يتابعونه : 200
قوة السمعة : 2107
الاعجاب : 497
 offline 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
أخى الكريم
بالفعل نسيت فى الكود السابق وأعطيت عملية اللصق نفس الورقة ( جلاء ) ونسيت أنه هناك ورقة أخرى ( اداريون )
تفضل تعديل الكود
Sub export_data()
'-----------------------------------------------------
Dim WS As Workbook
Dim WB As Workbook
   
Set WS = ActiveWorkbook
Set WB = Workbooks.Open("E:2.xls")
'==================================================================
Application.ScreenUpdating = False
WB.Activate
'-----------
             Sheets("جلاء").Activate
             ActiveSheet.Unprotect Password:="222"
     
WS.Activate
'-----------
     Sheets("ورقة1").Range("B3").Activate
       ActiveCell.Copy

WB.Activate
'-----------
Sheets("جلاء").Range("Z3").Activate
            ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                  :=False, Transpose:=False
                      Range("A1").Select
                   
Sheets("اداريون").Activate
                          Range("B3").Activate
            ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                  :=False, Transpose:=False
                      Range("A1").Select
    
Application.CutCopyMode = False
Sheets("جلاء").Select
     ActiveSheet.Protect Password:="222"
'--------------------------------------
WB.Save
       WB.Close
'--------------------------------------
 WS.Activate
         Sheets("ورقة1").Range("C10").Value = "تم التغيير"
WS.Save
'--------------------------------------
Application.ScreenUpdating = True
End Sub




أما امتداد الملف .xls وضعته فى الكود بناء على الملف المرسل منكم ويمكن تغيير هذا الامتداد كما تشاء


تم تحرير المشاركة بواسطة :محمد الدسوقى
بتاريخ:17-02-2018 09:32 مساء






17-02-2018 10:29 مساء
مشاهدة مشاركة منفردة [8]
ظفر الله عسكر
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-12-2017
رقم العضوية : 2747
المشاركات : 80
الجنس : ذكر
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 315
الاعجاب : 77
 Online 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
اشكر استجابتك استاذي الكريم اتمنى ان يكتمل بمساعيك
عند اللصق  والتشغيل ظهر معي الصوره توضح
المشكله ليس لدي خبره وافيه بالاكواد وعملها اتمنى ان اجد الحل بارك الله بك
MzY2NDc0MQ7373%D8%A7%D9%84%D8%AA%D9%82%D8%A7%D8%B7
 
  التقاط.PNG   تحميل png التقاط.PNG مرات التحميل :(3)
الحجم :(23.568) KB
 






20-02-2018 10:43 مساء
مشاهدة مشاركة منفردة [9]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 425
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 437
الاعجاب : 164
 offline 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
للرفع رفع الله مقداركم

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




21-02-2018 06:21 صباحا
مشاهدة مشاركة منفردة [10]
ظفر الله عسكر
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-12-2017
رقم العضوية : 2747
المشاركات : 80
الجنس : ذكر
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 315
الاعجاب : 77
 Online 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
ربي يرفع مقامك بالجنه استاذ ناصر 
انت ومن يقرأ ومن يجيب
بارك الله بكم

أثارت هذه المشاركة إعجاب: ناصر سعيد1،




23-02-2018 10:18 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3121
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 258
قوة السمعة : 8757
الاعجاب : 2935
 offline 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
السلام عليكم أخي الكريم ظفر الله
حاول دراسة الكود الذي قدمه أخونا الغالي محمد الدسوقي لتتعلم كيف يمكنك التعديل عليه فيما بعد ..
عموماً قمت بكتابة الكود بهذا الشكل عله يفي بالغرض .. سيلزمك فقط أن تقوم بتغيير المسار في الكود من السطر الخاص بالمسار
Sub Change_In_Closed_Workbook()
    Dim wb As Workbook
    Dim ws As Worksheet
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\2.xls")
        
        wb.Sheets(3).Unprotect "222"
            wb.Sheets(2).Range("B3").Value = ThisWorkbook.Sheets(1).Range("B3").Value
            wb.Sheets(3).Range("Z3").Value = ThisWorkbook.Sheets(1).Range("B3").Value
        wb.Sheets(3).Protect "222"
        wb.Close True
        
        ThisWorkbook.Sheets(1).Range("C10").Value = "Changes Completed"
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub


وسطر المسار يمكنه أن يكون بهذا الشكل إذا كان الملف المسمى 2 موجود في الدرايف E ..
Set wb = Workbooks.Open("E:\2.xls")


وإليك الملف المرفق فيه تطبيق الكود ، قم بفك الضغط وافتح الملف المسمى 1 ثم قم بالنقر على زر "تغيير" لتحصل على النتائج التي تريدها إن شاء الله
 
 
  55.rar   تحميل rar مرات التحميل :(2)
الحجم :(21.074) KB


أثارت هذه المشاركة إعجاب: ناصر سعيد1،




23-02-2018 11:29 صباحا
مشاهدة مشاركة منفردة [12]
ظفر الله عسكر
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-12-2017
رقم العضوية : 2747
المشاركات : 80
الجنس : ذكر
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 315
الاعجاب : 77
 Online 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
يسر الله امرك ورفع مقامك اشكرك جزيل الشكر تم الامر بسلام بعد العمل بالتوجيهات التي ذكرت
بارك الله بك
استاذي معرفتي بالاكواد لاتتجاوز تاريخ انتسابي للموقع وقد استفدت من الموقع اشكر الجميع دون استثناء
اتمنى ان تتحملوا عدم معرفتي واسئلتي التي تبدو بسيطه بالنسبة لكم 
كنت استخدم المعادلات وكانت مرهقه
والان العمر والنظر عوامل سلبيه في متابعتي اطال الله بقاءكم ومتعنا بإنجازاتكم
دمت بخير على الدوام انت ومن تحب
 

أثارت هذه المشاركة إعجاب: YasserKhalil، ناصر سعيد1،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
الغاء حماية ورقة tameryakout8483
2 40 YasserKhalil
الهدية الثالثة طريقة لحماية ال VBE محمود الشريف
9 103 نصر الإيمان
استفسار عن الترحيل مع حماية الشيت mohamed.fawzy
1 43 mohamed.fawzy
اختبار كسر حماية VBA من خلال 3 ملفات ذات مستوى حماية مختلف أباالحسن
19 354 أباالحسن
كسر حماية ملف او شيت او جزء من الشيت ashraf.hassane9
6 113 الصقر

الكلمات الدلالية
حماية ، ورقة ، معلومه ، كلمة ، مرورها ،


 







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



الساعة الآن 06:01 مساء

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