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



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





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

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



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





السلام عليكم  اساتذتنا الكبار اكرمكم الله وزادكم من فضله ارجو ان تتفضلوا كرما منكم بالحل
ان تكرمتم  المجلد اسمه 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
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
اللهم ارزق اخي الكريم ظفر الله عسكر
باحد الاحبه في الله من الذين افاض الله عليهم بالعلم





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





16-02-2018 05:34 مساء
مشاهدة مشاركة منفردة [3]
محمد الدسوقى
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 360
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 40
يتابعهم : 7
يتابعونه : 225
قوة السمعة : 2379
الاعجاب : 592
 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
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
لقد رزقك الله باخ فاضل جزاه الله خيرا
شكرا استاذ محمد
وادعو الله ان يكون هذا مبتغاك اخي ظفر الله

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




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

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




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





17-02-2018 09:31 مساء
مشاهدة مشاركة منفردة [7]
محمد الدسوقى
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 360
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 40
يتابعهم : 7
يتابعونه : 225
قوة السمعة : 2379
الاعجاب : 592
 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
المشاركات : 83
الجنس : ذكر
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 318
الاعجاب : 78
 offline 
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
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
للرفع رفع الله مقداركم

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




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

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




23-02-2018 10:18 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3572
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 281
قوة السمعة : 9880
الاعجاب : 3396
 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
المشاركات : 83
الجنس : ذكر
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 318
الاعجاب : 78
 offline 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
يسر الله امرك ورفع مقامك اشكرك جزيل الشكر تم الامر بسلام بعد العمل بالتوجيهات التي ذكرت
بارك الله بك
استاذي معرفتي بالاكواد لاتتجاوز تاريخ انتسابي للموقع وقد استفدت من الموقع اشكر الجميع دون استثناء
اتمنى ان تتحملوا عدم معرفتي واسئلتي التي تبدو بسيطه بالنسبة لكم 
كنت استخدم المعادلات وكانت مرهقه
والان العمر والنظر عوامل سلبيه في متابعتي اطال الله بقاءكم ومتعنا بإنجازاتكم
دمت بخير على الدوام انت ومن تحب
 

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
سؤال لخبراء الاكسل ماهي الطريقة الصحيحة لحماية ملف فية مجموعة اوراق عمل فيه اكواد ومعادلات  ابوعلي الحبيب
16 328 ابوعلي الحبيب
لماذا محرر الاكواد برفض قبول كلمه السر لفك الحماية عن الورقة قبل تنفيذ الامر ابوعلي الحبيب
1 69 ابوعلي الحبيب
الهدية الثالثة طريقة لحماية ال VBE محمود الشريف
10 449 fodele
الغاء حماية ورقة tameryakout8483
2 92 YasserKhalil
استفسار عن الترحيل مع حماية الشيت mohamed.fawzy
1 83 mohamed.fawzy

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


 







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



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

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