مسح قائمة Review من ملف الاكسيل

[محمد عبد الناصر]

السلام عليكم ورحمة الله وبركاته ؛

كنت عايز طريقة مسح قائمة Review من ملف الاكسيل بحيث ان محدش يقدر يغير الباسورد بتاع الملف الا عن طريق كود قفل الصفحه

او طريقة اقفل بيها data Validation بباسورد مش عايز حد يقدر يغير فيها حاجه

وعايز طريقة ازاى اقفل البرينت Print فى ملف الاكسيل يعنى مقدرش اطبع الصفحه الى انا واقف فيها الا عن طريق كود انا احوطه

تم تعديل مايو 3, 2016 بواسطه محمد عبد الناصر

[ياسر خليل أبو البراء]

وعليكم السلام ورحمة الله وبركاته

أخي الكريم لا أعتقد أنه يوجد طريقة لحذف التبويب Review >> يمكن إخفاء الريبون ككل وهذا ليس بأمر صعب على المستخدم أن يظهره ...

واعلم أن الحماية في الإكسيل ليست حماية مطلقة ..

أما بخصوص قفل البرينت أي منع الطباعة فهل تريد منع الطباعة في ورقة عمل محددة أم في كل أوراق العمل بالمصنف؟؟؟ مع العلم أنه يمكن لمن لديه خبرة بالأكواد تعطيل الكود والطباعة ... يعني الأمر ليس بحل كامل كما يمكن أن تعتقد

[محمد عبد الناصر]

10 ساعات مضت, ياسر خليل أبو البراء said:

وعليكم السلام ورحمة الله وبركاته

أخي الكريم لا أعتقد أنه يوجد طريقة لحذف التبويب Review >> يمكن إخفاء الريبون ككل وهذا ليس بأمر صعب على المستخدم أن يظهره ...

واعلم أن الحماية في الإكسيل ليست حماية مطلقة ..

أما بخصوص قفل البرينت أي منع الطباعة فهل تريد منع الطباعة في ورقة عمل محددة أم في كل أوراق العمل بالمصنف؟؟؟ مع العلم أنه يمكن لمن لديه خبرة بالأكواد تعطيل الكود والطباعة ... يعني الأمر ليس بحل كامل كما يمكن أن تعتقد

عابز اقفل الطباعة فى ملف اكسيل بالكامل  الا عن طريق كود مخصص انا عامله  الى هايتعامل على ملف الاكسيل  مش هايعرف يعنى ايه كود

تم تعديل مايو 3, 2016 بواسطه محمد عبد الناصر

[محمد عبد الناصر]

18 ساعات مضت, ياسر خليل أبو البراء said:

وعليكم السلام ورحمة الله وبركاته

أخي الكريم لا أعتقد أنه يوجد طريقة لحذف التبويب Review >> يمكن إخفاء الريبون ككل وهذا ليس بأمر صعب على المستخدم أن يظهره ...

واعلم أن الحماية في الإكسيل ليست حماية مطلقة ..

أما بخصوص قفل البرينت أي منع الطباعة فهل تريد منع الطباعة في ورقة عمل محددة أم في كل أوراق العمل بالمصنف؟؟؟ مع العلم أنه يمكن لمن لديه خبرة بالأكواد تعطيل الكود والطباعة ... يعني الأمر ليس بحل كامل كما يمكن أن تعتقد

استاذ ياسر عايز اقفل الطباعه فى الملف بالكامل الا عن طريق كود مخصص للطباعه 

[عبدالسلام ابوالعوافي]

السلام عليكم

المرفق يمنع الطباعة الا عن طريق الكود .. اضف كود الطباعة فيه وجرب 

بالنسبة لاخفاء التبويبات .. يجب اخفاء التبويب والخيارات وشريط المهام السريع QAT لمنع المستخدم من ارجاع التبويب 

http://www.rondebruin.nl/win/s2/win001.htm

هذا الموقع قد يفيدك 

Prevent Print.rar

[محمد عبد الناصر]

منذ ساعه, عبدالسلام ابوالعوافي said:

السلام عليكم

المرفق يمنع الطباعة الا عن طريق الكود .. اضف كود الطباعة فيه وجرب 

بالنسبة لاخفاء التبويبات .. يجب اخفاء التبويب والخيارات وشريط المهام السريع QAT لمنع المستخدم من ارجاع التبويب 

http://www.rondebruin.nl/win/s2/win001.htm

هذا الموقع قد يفيدك 

Prevent Print.rar

تمام حضرتك اشتغل صح اوى اوى اوى اوى شكراااااااااااااااااا

تم تعديل مايو 4, 2016 بواسطه محمد عبد الناصر

[عبدالسلام ابوالعوافي]

[محمد عبد الناصر]

1 دقيقه مضت, عبدالسلام ابوالعوافي said:

تمااااااااااااااااااااااااام جداااااا جداااااااااااااااااااا
اخر حاجه ربنا يعزك عايز اكتب المعادله دى بالكود
 

=If(D6:D1000>=0;D6:D1000;1)

 

[عبدالسلام ابوالعوافي]

4 دقائق مضت, محمد عبد الناصر said:

=If(D6:D1000>=0;D6:D1000;1)

    ActiveSheet.Range("E6:E1000").FormulaArray = "=IF(RC[-1]:R[994]C[-1]>=0,RC[-1]:R[994]C[-1],1)"

 

[محمد عبد الناصر]

17 دقائق مضت, عبدالسلام ابوالعوافي said:

    ActiveSheet.Range("E6:E1000").FormulaArray = "=IF(RC[-1]:R[994]C[-1]>=0,RC[-1]:R[994]C[-1],1)"

 

مش عارف مش فاهم اطبقها عندى ازاى
بص دى المعادله الى انا عايز اعملها عندى في المكرو بس مش عارف فيها حاجه غلط
 

Sub D()
If Range("F6:F1000").Value > 0 Then Range("BF6:BF1000").Value = Range("F6:F1000").Value then Range ("BF6:BF1000").Value = 1 
End If
End Sub

 

[عبدالسلام ابوالعوافي]

    ActiveSheet.Range("BF6:BF1000").FormulaArray = "=IF(RC[-52]:R[994]C[-52]>=0,RC[-52]:R[994]C[-52],1)"

 

[محمد عبد الناصر]

والله بص حضرتك بيجبلى ايه

 

9 دقائق مضت, عبدالسلام ابوالعوافي said:

    ActiveSheet.Range("BF6:BF1000").FormulaArray = "=IF(RC[-52]:R[994]C[-52]>=0,RC[-52]:R[994]C[-52],1)"

 

 

تم تعديل مايو 4, 2016 بواسطه محمد عبد الناصر

[عبدالسلام ابوالعوافي]

اخي الفاضل .. الكود لا يوجد بيه End if .. احذف السطر

 

[محمد عبد الناصر]

8 دقائق مضت, عبدالسلام ابوالعوافي said:

اخي الفاضل .. الكود لا يوجد بيه End if .. احذف السطر

 

تمام حضرتك واسف انى بزعجك بس بيكتب في الخليه 0 لو مفهاش ارقام ومش عايزوا يكتب الداله في الخليه يكتب الأرقام بس

تم تعديل مايو 4, 2016 بواسطه محمد عبد الناصر

[عبدالسلام ابوالعوافي]

    ActiveSheet.Range("BF6:BF1000").FormulaArray = _
    "=IF(RC[-52]:R[994]C[-52]="""","""",IF(RC[-52]:R[994]C[-52]>=0,RC[-52]:R[994]C[-52],1))"

 

[محمد عبد الناصر]

6 دقائق مضت, عبدالسلام ابوالعوافي said:

    ActiveSheet.Range("BF6:BF1000").FormulaArray = _
    "=IF(RC[-52]:R[994]C[-52]="""","""",IF(RC[-52]:R[994]C[-52]>=0,RC[-52]:R[994]C[-52],1))"

 

والله انا مش عارف أقول لحضرتك ايه لانى مكسوف من نفسى انا مش عارف أوصل لحضرتك انا عايز ايه ببساطه انا عايز لو الخليه فيها رقم يكتب الرقم لو مفهاش يكتب 1 ومش عايز يكتب الداله في الخليه  يكتب الرقم عادى من غير مايكون في داله في الخليه

[عبدالسلام ابوالعوافي]

قم بحذف المعادلات في العمود BF وجرب هذا الكود

    Dim i As Integer
    For i = 6 To 1000
        If Cells(i, "f") > 0 Then
            Cells(i, "bf") = Cells(i, "f")
        Else
            Cells(i, "bf") = 1
        End If
    Next

 

[محمد عبد الناصر]

شكراااااااااااااااااااااااااااااااااااااااا على مجهود حضرتك وتعبك أستاذ عبد السلام أبو العوافى