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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil استخراج القيم المكررة والفريدة معا اكسيل اسئله واجابات


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


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

Preview




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

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



13-02-2018 02:46 صباحا
ظفر الله عسكر
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-12-2017
رقم العضوية : 2747
المشاركات : 117
الجنس : ذكر
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 427
الاعجاب : 1
 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
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 627
الاعجاب : 3
 offline 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
اللهم ارزق اخي الكريم ظفر الله عسكر
باحد الاحبه في الله من الذين افاض الله عليهم بالعلم




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




16-02-2018 05:34 مساء
مشاهدة مشاركة منفردة [3]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 734
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 69
يتابعهم : 9
يتابعونه : 665
قوة السمعة : 7731
الاعجاب : 37
 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 مرات التحميل :(6)
الحجم :(16.053) KB





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




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




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




17-02-2018 09:31 مساء
مشاهدة مشاركة منفردة [7]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 734
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 69
يتابعهم : 9
يتابعونه : 665
قوة السمعة : 7731
الاعجاب : 37
 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
المشاركات : 117
الجنس : ذكر
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 427
الاعجاب : 1
 offline 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
اشكر استجابتك استاذي الكريم اتمنى ان يكتمل بمساعيك
عند اللصق  والتشغيل ظهر معي الصوره توضح
المشكله ليس لدي خبره وافيه بالاكواد وعملها اتمنى ان اجد الحل بارك الله بك
MzY2NDc0MQ7373%D8%A7%D9%84%D8%AA%D9%82%D8%A7%D8%B7
 
  التقاط.PNG   تحميل png التقاط.PNG مرات التحميل :(4)
الحجم :(23.568) KB
 





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




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




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





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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ايقاف خاصية حماية الملف من الخارج fathy
0 82 fathy
حماية ملف اكسيل برقم الهارد ديسك الثابت وعلى اكثر من جهاز fathy
3 99 YasserKhalil
سؤال عند حماية الورقة لايقوم بنقل البيانات ابوبكر المتولي
13 203 YasserKhalil
تعديل على كود حماية الصفحات ليتم حماية صفحات ماعدا صفحات محددة كما هو بالمرفق ابو طيبه
15 550 ابو طيبه
هل ممكن عمل حماية للخلايا من تغير تنسيقها عند اللصق والنسخ عبد الله السعيد
0 141 عبد الله السعيد

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


 








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

الساعة الآن 09:35 مساء

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