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



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





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

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



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

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







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





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





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


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




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

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




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

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




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





17-02-2018 09:31 مساء
مشاهدة مشاركة منفردة [7]
محمد الدسوقى
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 221
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 33
يتابعهم : 7
يتابعونه : 172
قوة السمعة : 1667
الاعجاب : 337
 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
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 22-12-2017
رقم العضوية : 2747
المشاركات : 8
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 26
الاعجاب : 3
 offline 
look/images/icons/i1.gif كود فك حماية ورقة معلومه كلمة مرورها
اشكر استجابتك استاذي الكريم اتمنى ان يكتمل بمساعيك
عند اللصق  والتشغيل ظهر معي الصوره توضح
المشكله ليس لدي خبره وافيه بالاكواد وعملها اتمنى ان اجد الحل بارك الله بك
MzY2NDc0MQ7373%D8%A7%D9%84%D8%AA%D9%82%D8%A7%D8%B7
 
  التقاط.PNG   تحميل png التقاط.PNG مرات التحميل :(0)
الحجم :(23.568) KB
 






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

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




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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اختبار كسر حماية VBA من خلال 3 ملفات ذات مستوى حماية مختلف أباالحسن
8 121 الصقر
كسر حماية ملف او شيت او جزء من الشيت ashraf.hassane9
6 63 الصقر
شرح عن كيفية كسر حماية محرر الاكواد VBA malik
6 71 Yasser Elaraby
حماية الشيت أو ملف العمل nasri
2 68 أباالحسن
حماية VBA من الاختراق أباالحسن
0 63 أباالحسن

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


 








الساعة الآن 11:26 صباحا

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