محمد الورفلي1 قام بنشر أبريل 6, 2015 مشاركة قام بنشر أبريل 6, 2015 السلام عليكم مفتاح المسح يعمل من نفس الصفحة فقط اريده يعمل من صفحة ورقة 1 مع وجود حماية الورقة الرقم السري 10 مسح.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 6, 2015 مشاركة قام بنشر أبريل 6, 2015 غير السطر التالي من الكود Set wks = jk الى set wks =activesheet رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر أبريل 6, 2015 الكاتب مشاركة قام بنشر أبريل 6, 2015 استناذ سليم لم تفلح معى رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر أبريل 6, 2015 أفضل إجابة مشاركة قام بنشر أبريل 6, 2015 أخي الفاضل محمد الخازمي جرب الكود بالشكل التالي .. Sub Chg() Dim wks As Worksheet Set wks = jk With wks .Unprotect Password:=10 On Error Resume Next prompt = "هل حقا تريد مسح البيانات *****انتبه لا يوجد تراجع عن المسح نهائياً" Command_buttons = vbYesNo + VbMsgBoxRt1Reading Title = "تحذير انتبه" project = MsgBox(prompt, Command_buttons, Title) If project = vbYes Then .Range("A9:C661,E9:AJ661").SpecialCells(xlCellTypeConstants, 23).ClearContents On Error GoTo 0 End If .Protect Password:=10 End With End Sub رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر أبريل 6, 2015 الكاتب مشاركة قام بنشر أبريل 6, 2015 السلام عليكم نسأل الله ان يكون كل حرف في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 6, 2015 مشاركة قام بنشر أبريل 6, 2015 الحمد لله الذي بنعمته تتم الصالحات جزيت خيرا يا خازمي على دعائك الطيب رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر أبريل 6, 2015 مشاركة قام بنشر أبريل 6, 2015 أخي الفاضل محمد الخازمي جرب الكود بالشكل التالي .. Sub Chg() Dim wks As Worksheet Set wks = jk With wks .Unprotect Password:=10 On Error Resume Next prompt = "هل حقا تريد مسح البيانات *****انتبه لا يوجد تراجع عن المسح نهائياً" Command_buttons = vbYesNo + VbMsgBoxRt1Reading Title = "تحذير انتبه" project = MsgBox(prompt, Command_buttons, Title) If project = vbYes Then .Range("A9:C661,E9:AJ661").SpecialCells(xlCellTypeConstants, 23).ClearContents On Error GoTo 0 End If .Protect Password:=10 End With End Sub جزاك الله خيرًا و بارك الله فيك أستاذنا الفاضل رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 6, 2015 مشاركة قام بنشر أبريل 6, 2015 مشكور أخي الحبيب عبد العزيز البسكري على دعائك وجزيت خيرا بمثل ما دعوت رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان