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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil تجزئة الاسماء المركبة وفصلها عن الاسماء العادية اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





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

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



13-02-2018 02:46 صباحا
ظفر الله عسكر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-12-2017
رقم العضوية : 2747
المشاركات : 116
الجنس : ذكر
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 425
الاعجاب : 3
 offline 

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







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





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





16-02-2018 05:34 مساء
مشاهدة مشاركة منفردة [3]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 595
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 514
قوة السمعة : 6694
الاعجاب : 163
 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






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





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





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





17-02-2018 09:31 مساء
مشاهدة مشاركة منفردة [7]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 595
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 514
قوة السمعة : 6694
الاعجاب : 163
 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]
ظفر الله عسكر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-12-2017
رقم العضوية : 2747
المشاركات : 116
الجنس : ذكر
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 425
الاعجاب : 3
 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
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 611
الاعجاب : 8
 offline 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
للرفع رفع الله مقداركم





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





23-02-2018 10:18 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 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 مرات التحميل :(3)
الحجم :(21.074) KB






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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حماية اكسس بدون اكواد abdulrahman kalari
1 27 abdulrahman kalari
برنامج حماية محرر الاكواد VBA protection Yasser Elaraby
31 2039 عبدالقادر محمد مهدى
شرح عن كيفية كسر حماية محرر الاكواد VBA malik
9 1365 محمد الدسوقى
الهدية الثالثة طريقة لحماية ال VBE محمود الشريف
38 2170 كريم نظيم
حماية اعمدة معينة takydeen
5 294 salim

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


 







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



الساعة الآن 02:46 صباحا

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