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

آخر المشاركات

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

الرئيسية

اكسيل اسئله واجابات

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

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

: لا يمكنك الرد على هذا الموضوع لا يمكنك إضافة موضوع جديد

الصفحة 1 من 2

الأخيرة »

أدوات الموضوع

أدوات الموضوع

تحميل محتوى الموضوع

عرض نسخة صالحة للطباعة

أرسل هذا الموضوع إلى صديق

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

13-02-2018 02:46 صباحا

ظفر الله عسكر

عضو نشيط

تاريخ الإنضمام : 22-12-2017

رقم العضوية : 2747

المشاركات : 80

الجنس :

يتابعهم : 0

يتابعونه : 4

قوة السمعة : 315

الاعجاب : 77

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

ان تكرمتم المجلد اسمه 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

عضو ماسي

تاريخ الإنضمام : 26-09-2017

رقم العضوية : 705

المشاركات : 425

الجنس :

تاريخ الميلاد : 2-2-1990

يتابعهم : 0

يتابعونه : 4

قوة السمعة : 437

الاعجاب : 164

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

: اللهم ارزق اخي الكريم ظفر الله عسكر
باحد الاحبه في الله من الذين افاض الله عليهم بالعلم

أعجبني أعجبك هذاإلغ اعجابي 0

: 16-02-2018 06:34 صباحا

[2]

ظفر الله عسكر

عضو نشيط

تاريخ الإنضمام : 22-12-2017

رقم العضوية : 2747

المشاركات : 80

الجنس :

يتابعهم : 0

يتابعونه : 4

قوة السمعة : 315

الاعجاب : 77

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

: بارك الله بك اخي ناصر جزاك الله كل خير
ننتظر الاجابه مع الشكر للجميع

أعجبني أعجبك هذاإلغ اعجابي 0

: 16-02-2018 05:34 مساء

[3]

محمد الدسوقى

عضو محترف

تاريخ الإنضمام : 22-08-2017

رقم العضوية : 47

المشاركات : 312

الجنس :

تاريخ الميلاد : 14-10-1973

الدعوات : 37

يتابعهم : 7

يتابعونه : 200

قوة السمعة : 2107

الاعجاب : 497

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

الأخ الكريم / ظفر الله عسكر
تفضل المرفق به الكود المطلوب لعله يفى بالغرض المطلوب
مع ملاحظة أن امتداد الملف المطلوب فتحه هو .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

عضو ماسي

تاريخ الإنضمام : 26-09-2017

رقم العضوية : 705

المشاركات : 425

الجنس :

تاريخ الميلاد : 2-2-1990

يتابعهم : 0

يتابعونه : 4

قوة السمعة : 437

الاعجاب : 164

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

: لقد رزقك الله باخ فاضل جزاه الله خيرا
شكرا استاذ محمد
وادعو الله ان يكون هذا مبتغاك اخي ظفر الله

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

: 17-02-2018 01:27 صباحا

[5]

محمد الدسوقى

عضو محترف

تاريخ الإنضمام : 22-08-2017

رقم العضوية : 47

المشاركات : 312

الجنس :

تاريخ الميلاد : 14-10-1973

الدعوات : 37

يتابعهم : 7

يتابعونه : 200

قوة السمعة : 2107

الاعجاب : 497

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

: بارك الله فيك أخى / ناصر سعيد
وجزاكم الله خيرا
وادعو الله أن يكون هذا هو مبتغى أخونا / ظفر الله عسكر

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

: 17-02-2018 06:08 مساء

[6]

ظفر الله عسكر

عضو نشيط

تاريخ الإنضمام : 22-12-2017

رقم العضوية : 2747

المشاركات : 80

الجنس :

يتابعهم : 0

يتابعونه : 4

قوة السمعة : 315

الاعجاب : 77

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

: جزاك الله كل خير جزاك الله كل خير جزاك الله كل خير
سلمت يداك
استاذي الغالي تم الامر لكن هذا الامر لم ينفذ
نسخ الخلية B3 من الملف الأول والذهاب الى الملف الثاني ولصقها في صفحة اداريون في الخليه B3
وسؤال اخر اذا كان امتداد الملف الثاني xlsm هل يكفي اضافة m في الكود لامتداد الملف ام تتغير الطريقه
بارك الله بك وفتح عليك ابواب رحمته وعلمه

أعجبني أعجبك هذاإلغ اعجابي 0

: 17-02-2018 09:31 مساء

[7]

محمد الدسوقى

عضو محترف

تاريخ الإنضمام : 22-08-2017

رقم العضوية : 47

المشاركات : 312

الجنس :

تاريخ الميلاد : 14-10-1973

الدعوات : 37

يتابعهم : 7

يتابعونه : 200

قوة السمعة : 2107

الاعجاب : 497

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

أخى الكريم
بالفعل نسيت فى الكود السابق وأعطيت عملية اللصق نفس الورقة ( جلاء ) ونسيت أنه هناك ورقة أخرى ( اداريون )
تفضل تعديل الكود

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]

ظفر الله عسكر

عضو نشيط

تاريخ الإنضمام : 22-12-2017

رقم العضوية : 2747

المشاركات : 80

الجنس :

يتابعهم : 0

يتابعونه : 4

قوة السمعة : 315

الاعجاب : 77

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

: اشكر استجابتك استاذي الكريم اتمنى ان يكتمل بمساعيك
عند اللصق والتشغيل ظهر معي الصوره توضح
المشكله ليس لدي خبره وافيه بالاكواد وعملها اتمنى ان اجد الحل بارك الله بك

التقاط.PNG تحميل png مرات التحميل :(3)
الحجم :(23.568) KB

أعجبني أعجبك هذاإلغ اعجابي 0

: 20-02-2018 10:43 مساء

[9]

ناصر سعيد1

عضو ماسي

تاريخ الإنضمام : 26-09-2017

رقم العضوية : 705

المشاركات : 425

الجنس :

تاريخ الميلاد : 2-2-1990

يتابعهم : 0

يتابعونه : 4

قوة السمعة : 437

الاعجاب : 164

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

: للرفع رفع الله مقداركم

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

: 21-02-2018 06:21 صباحا

[10]

ظفر الله عسكر

عضو نشيط

تاريخ الإنضمام : 22-12-2017

رقم العضوية : 2747

المشاركات : 80

الجنس :

يتابعهم : 0

يتابعونه : 4

قوة السمعة : 315

الاعجاب : 77

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

: ربي يرفع مقامك بالجنه استاذ ناصر
انت ومن يقرأ ومن يجيب
بارك الله بكم

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

: 23-02-2018 10:18 صباحا

[11]

YasserKhalil

مراقب عام

تاريخ الإنضمام : 21-08-2017

رقم العضوية : 3

المشاركات : 3121

الجنس :

تاريخ الميلاد : 1-10-1978

الدعوات : 11

يتابعهم : 0

يتابعونه : 258

قوة السمعة : 8757

الاعجاب : 2935

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

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

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]

ظفر الله عسكر

عضو نشيط

تاريخ الإنضمام : 22-12-2017

رقم العضوية : 2747

المشاركات : 80

الجنس :

يتابعهم : 0

يتابعونه : 4

قوة السمعة : 315

الاعجاب : 77

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

: يسر الله امرك ورفع مقامك اشكرك جزيل الشكر تم الامر بسلام بعد العمل بالتوجيهات التي ذكرت
بارك الله بك
استاذي معرفتي بالاكواد لاتتجاوز تاريخ انتسابي للموقع وقد استفدت من الموقع اشكر الجميع دون استثناء
اتمنى ان تتحملوا عدم معرفتي واسئلتي التي تبدو بسيطه بالنسبة لكم
كنت استخدم المعادلات وكانت مرهقه
والان العمر والنظر عوامل سلبيه في متابعتي اطال الله بقاءكم ومتعنا بإنجازاتكم
دمت بخير على الدوام انت ومن تحب

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

لا يمكنك الرد على هذا الموضوع لا يمكنك إضافة موضوع جديد

الصفحة 1 من 2

الأخيرة »

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

الكلمات الدلالية

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

« مساعدة من خبراء الاكسيل فى الترحيل بالماكرو | كلمه مرور لفتح شيت »

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

سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

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