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


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





اضافه جمله لكود بدون خطأ

هل يمكن اضافه هذه الجمله للكود بدون خطأ [code]U3ViICZJYWN1dGU7JmF0aWxkZTsmQ2NlZGlsOyZpYWN1dGU7JmFyaW5nOygpPGJyIC8+DQombm ..



18-12-2017 03:10 صباحا
ابوحنين
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-09-2017
رقم العضوية : 472
المشاركات : 53
الجنس : ذكر
تاريخ الميلاد : 26-10-1973
قوة السمعة : 601
 offline 

هل يمكن اضافه هذه الجمله للكود بدون خطأ
Sub ÍãÇíå()
   Dim a As Worksheet
      For Each a In Worksheets
          If a.ProtectScenarios = False Then
                 a.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True
        ActiveSheet.EnableSelection = xlNoRestrictions
                 End If
                Next a
End Sub

اضافه Allowdatavalidation:=True,
وجعل الكود على الخلايا التى بها معادلات فقط
دمتم بكل خير



18-12-2017 11:43 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif اضافه جمله لكود بدون خطأ
جرب هذا الكود 
Sub alsqr()
   Dim a As Worksheet
      For Each a In Worksheets
      a.Select
      ActiveCell.SpecialCells(xlCellTypeAllValidation).Select
    Selection.Locked = False
          If a.ProtectScenarios = False Then
                 a.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True
        ActiveSheet.EnableSelection = xlNoRestrictions
                 End If
                Next a
End Sub
توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



19-12-2017 12:38 صباحا
مشاهدة مشاركة منفردة [2]
ابوحنين
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-09-2017
رقم العضوية : 472
المشاركات : 53
الجنس : ذكر
تاريخ الميلاد : 26-10-1973
قوة السمعة : 601
 offline 
look/images/icons/i1.gif اضافه جمله لكود بدون خطأ
للأسف الشديد
151363666139241


19-12-2017 08:05 صباحا
مشاهدة مشاركة منفردة [3]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif اضافه جمله لكود بدون خطأ
الكود يعمل لدي بشكل جيد جدا ارفق ملفك للعمل عليه ربما يكون هناك اكود اخرى بالملف تتعارض مع هذا الكود 
توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



19-12-2017 08:17 صباحا
مشاهدة مشاركة منفردة [4]
karwan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-11-2017
رقم العضوية : 1785
المشاركات : 199
الجنس : ذكر
تاريخ الميلاد : 20-8-1989
قوة السمعة : 244
 offline 
look/images/icons/i1.gif اضافه جمله لكود بدون خطأ

جزاكم الله خيرا






الكلمات الدلالية
اضافه ، جمله ، لكود ، بدون ،


 










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

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