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

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


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





مطلوب تأمين المعادلات دون تأمين و حماية ورقة العمل

السلام عليكم عاوز اعمل حماية للخايا اللى فيها معادلات بس بمجرد كتابة المعادلة بس من غير معمل حماية للورقة عشان اعرف اعم ..


موضوع مغلق


23-11-2021 06:50 مساء
صلاح الصغير
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 355
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 297
عدد الإجابات: 1
 offline 

السلام عليكم

عاوز اعمل حماية للخايا اللى فيها معادلات بس بمجرد كتابة المعادلة بس من غير معمل حماية للورقة
عشان اعرف اعمل فلترة او اضافة عمود او ما الى ذلك
فهل ده ينفع ؟
مرفق ملفين للاستفادة أو التعديل أو للجديد فى ال vba
و شكرا لحضراتكم
 
 
 
  Protect Formulas Only.rar   تحميل rar مرات التحميل :(5)
الحجم :(11.548) KB
  حماية المعادلات فى جميع اوراق العمل.rar   تحميل rar مرات التحميل :(5)
الحجم :(18.414) KB



أفضل إجابة مقدمة من خالد الشاعر وهي:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim rFormulaCheck As Range

    Application.ScreenUpdating = False
    On Error Resume Next
    If Target.HasFormula Then
    With Target
    .Locked = True
    .FormulaHidden = True
    End With
    Sh.Protect Password:="123", UserInterFaceOnly:=True
    End If

    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub
 
 

 
عرض الإجابة




23-11-2021 09:17 مساء
مشاهدة مشاركة منفردة [1]
صلاح الصغير
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 355
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 297
عدد الإجابات: 1
 offline 
look/images/icons/i1.gif مطلوب تأمين المعادلات دون تأمين و حماية ورقة العمل
انا لقيت الملف ده فى مكتبتى
بس للاسف حاسس بطيء حبتين
و ذلك للاستفادة
و شكرا
 
 
  حماية للورقة عند الوقوف على المعادلة فقط(هايل).xlsm   تحميل xlsm مرات التحميل :(12)
الحجم :(17.872) KB


24-11-2021 03:43 مساء
مشاهدة مشاركة منفردة [2]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif مطلوب تأمين المعادلات دون تأمين و حماية ورقة العمل
وعليكم السلام ورحمة الله وبركاته 
تفضل اخى الكريم 
 
 
 
  Protect_Cells_Without_Protect_Sheet(.txt   تحميل txt مرات التحميل :(14)
الحجم :(0.564) KB


24-11-2021 05:49 مساء
مشاهدة مشاركة منفردة [3]
صلاح الصغير
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 355
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 297
عدد الإجابات: 1
 offline 
look/images/icons/i1.gif مطلوب تأمين المعادلات دون تأمين و حماية ورقة العمل
اشكرك استاذ حسونة للاهتمام و الرد
بس هو بيمنع الكتابة على المعادلة و لكن لا يمنع حذفها
و شكرا

24-11-2021 06:03 مساء
مشاهدة مشاركة منفردة [4]
صلاح الصغير
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 355
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 297
عدد الإجابات: 1
 offline 
look/images/icons/i1.gif مطلوب تأمين المعادلات دون تأمين و حماية ورقة العمل
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim rFormulaCheck As Range

    
    On Error Resume Next
    Sh.Unprotect Password:="123"
    With Selection
    .Locked = False
    .FormulaHidden = False
    End With
    If Target.Cells.Count = 1 Then
    If Target.HasFormula Then
    With Target
    .Locked = True
    .FormulaHidden = True
    End With
    Sh.Protect Password:="123", UserInterFaceOnly:=True
    End If
    ElseIf Target.Cells.Count > 1 Then
    Set rFormulaCheck = Selection.SpecialCells(xlCellTypeFormulas)
    If Not rFormulaCheck Is Nothing Then
    With Selection.SpecialCells(xlCellTypeFormulas)
    .Locked = True
    .FormulaHidden = True
    End With
    Sh.Protect Password:="123", UserInterFaceOnly:=True
    End If
    End If
    On Error GoTo 0
    
End Sub


هو ده كويس بس فيه سنة بطء لو امكن تسريعه شويه
و شكرا

26-11-2021 11:41 صباحا
مشاهدة مشاركة منفردة [5]
خالد الشاعر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 180
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
الدعوات : 1
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 302
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif مطلوب تأمين المعادلات دون تأمين و حماية ورقة العمل
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim rFormulaCheck As Range

    Application.ScreenUpdating = False
    On Error Resume Next
    If Target.HasFormula Then
    With Target
    .Locked = True
    .FormulaHidden = True
    End With
    Sh.Protect Password:="123", UserInterFaceOnly:=True
    End If

    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub
 
 

 

28-11-2021 08:29 صباحا
مشاهدة مشاركة منفردة [6]
صلاح الصغير
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 355
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 297
عدد الإجابات: 1
 offline 
look/images/icons/i1.gif مطلوب تأمين المعادلات دون تأمين و حماية ورقة العمل
اكيد شكرا استاذ خالد 
حضراتكم اساتذة بمعنى الكلمة و عندكم حلول كتير
بس هو الكود فى مشاركتى السايقة بيفى بالغرض و كمان بيسمحلى بالفلترة و اضافة اعمدة طول ما نا مش واقف على خلية معادلة
يعنى بيلغى الحماية و انا واقف على المعادلة و بيسمح بحل حاجة فى الورقة و لما ارجع اقف على معادلة بيحمى الورقى بالكامل
بس هو نسبيا فيه بطْ فخايف بس لما اشتغل على ملف كبير يكون بطيْ اكتر
و لا ايه راى حضراتكم
لو ينفع اسرع الكود اللى موجود فى مشاركة 4
و جزاكم الله خيرا



الكلمات الدلالية
المعادلات ، مطلوب ، تأمين ، تأمين ، حماية ، ورقة ، العمل ،


 










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

الساعة الآن 08:58 صباحا