إخفاء زر في الفورمة

[Akram Galal]

السادة الأفاضل أعضاء المنتدى

كل عام وأنتم بخير

لدي ملف يوجد به عدد 2 UserForm

أريد كود يقوم بالأتي

عند الضغط علي زر إخفاء الموجود في UserForm1

يتم إخفاء الزر الموجود في 2UserForm

 

 

 

وعند الضغط علي زر إظهار الموجود في 1UserForm

يتم إظهار الزر الموجود في 2UserForm

 

 

ولكم جزيل الشكر

 

 

 

إخفاء زر.rar

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

ما الفائدة من تلك الحيلة ؟

إذا عرف السبب بطل العجب

[Akram Galal]

أ/ ياسر

أشكرك علي المرور

هي فكرة لكي للتحكم في زر معين في فورمة معينة

فمثلا الزر المراد اخفاءه هو زر لعرض بيانات معينة ولا اريد شخص اخر ان يرى هذا الزر عند استخدامه للبرنامج فأقوم بالضغط علي زر الإخفاؤ

وعند انتهائه من العمل أقوم بالضعط علي زر اظهار فيظهر لي الزر

أفدني بالحل بارك الله لك وجزاك خيرا

[أبو حنــــين]

اخي هناك الكثير من الطرق للتحايل على المستخدم بعدم الولوج الى  مكان معين

و على كل حال فالإخفاء و الاظهار يعتمد على السطرين التاليين

CommandButton1.Visible = False
CommandButton1.Visible = True

 

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

أخي الكرم أخونا في الله أسامة

السهل الممتنع ..بارك الله فيك وجزيت خيراً على مساهماتك الرائعة والمميزة بالمنتدى

 

[ياسر العربى]

تفضل اخي الكريم حل بطريقة سهلة ويعتمد على خلية في حالة التشغيل والايقاف

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

اما حاليا فسيتعامل مع الزر على انه موجود داخل الفورم النشط والكود هكذا

Private Sub CommandButton1_Click()
UserForm2.CommandButton1.Visible = False
End Sub
Private Sub CommandButton2_Click()
UserForm2.CommandButton1.Visible = True
End Sub

 

إخفاء زر.rar

[Akram Galal]

أ/ ياسر

بارك الله لك

كود رائع

وحل خطير

[ياسر العربى]

الحمد لله ان تم المطلوب

تقبل تحياتي

[رسول]

اذا اردنا اخفاء الزر ولكن حسب المستخدم

كيف يعني 

نجعل سعد يشاهد الزر اما عماد لايستطيع المشاهدة

[ياسر العربى]

اخي الكريم الموضع سهل باذن الله ولكن ستحتاج لعمل صلاحيات وشاشة دخول ودا انا شرحهتم قبل كدا

الا اذا كان عندك ملف تريد التطبيق عليه

سأرفق لك ملف ولكن بعد صلاة الجمعه باذن الله

 

[ياسر العربى]

تفضل مثال مع صلاحيات مستخدمين

صلاحيات - Copy.rar

اسم المستخدم	كلمة المرور
Yasser	123
aseel	111
mohamed	222

[رافت الهجان]

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

الساده الافاضل

عساكم بخير

لدي إستفسار

إذا عاوز أدخل عدد معين من الارقام داخل الخلية من خلال الفورم مثلا 10 ارقام فقط وغير كدا ما يرحل معاي ويجب لي رسالة بأنو الارقام أما ناقصة أو زائده

..

ولكم مني خالص التحايا

[ياسر العربى]

2 ساعات مضت, رافت الهجان said:

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

اخي الكريم رأفت مرحبا بك في منتدى اوفيسنا

يرجى قراءة توجيهات المنتدى لسهولة التعامل

وكما يرجى وضع موضوع جديد مستقل بسؤالك وفيه شرح وافي للمشكلة مع ارفاق ملف المشكلة

وشكرا

[رسول]

حاولت اخفي الازرار كما قلت لي في الفورم 2 اخي العزيز ياسر العربي لكن المشكلة انه لم استطيع ذلك كما في الملف المرفق

و اضافة التحكم في الازرار ضمن الصلاحيات في شيت mydate h`h  اذا كان الخيار مشاهدة وتعديل يمكن مشاهدة الزر واذا مخفي لايمكن ذلك

كلمة المرور 2014

 

شاشة دخول - - Copy - Copy.rar

[رسول]

ارجو الرد من الاخوان ذوي الاختصاص

[ياسر العربى]

1 ساعه مضت, رسول said:

ارجو الرد من الاخوان ذوي الاختصاص

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

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

تقبل تحياتي

 

 

 

شاشة دخول - - Copy - Copy.rar

[رسول]

شكرا جزيلا اخي العزيز ياسر العربي التوضيح لكن لدي مشكلة في قراءة اسم المستخدم اي الكود الذي يوضع لكي يظهر الزر

If ورقة11.Range("l6").Text = "مشاهدة وتعديل" Then

الكود ظهر مقلوب

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

لتظهر الأكواد بشكل منضبط يرجى النقر على هذه العلامة <> أثناء كتابة المشاركة ثم وضع الكود فيه

هذا الشكل

 

[رسول]

اقصد الكود ظهر في التعليق مقلوب لكن في محرر الاكواد لا يوجد مشكلة انقلاب الكود بل المشكلة في تحديد موقع الخلية التي يجلب منها (مشاهدة وتعديل) لكي يظهر الزر

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

أخي الكريم الملف متشابك .. ممكن توضح بالصور المطلوب بالضبط وفي أي جزء من الأكواد .. وهل يظهر معك خطأ معين أم أنه لا يتحقق الهدف ألا وهو الإخفاء للزر ؟ وما هو الزر المراد إخفاؤه ؟. وما هي شروط الإخفاء؟

أعتذر لكثرة الأسئلة لأنني غير متابع للموضوع من البداية .. يرجى التوضيح بالصور .. وارفاق الملف الذي تعمل عليه .. هل هو نفس الملف الأخير لأخونا ياسر العربي أم ملف آخر؟

 

[رسول]

يتحقق هدف الاخفاء ولا يظهر الزر عندي

شاشة دخول - - Copy - Copy.rar

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

هكذا تتضح الصورة ويرجى من جميع الأعضاء التوضيح بالصور ..لتتضح المشكلة بشكل أفضل

جرب الخطوات التالية :

-----------------------

في موديول رقم 1 على سبيل المثال أو أي موديول في قسم الإعلانات العامة ضع السطر التالي

في أول الموديول رقم 1

Public strUser As String

هذا السطر لتخزين اسم المستخدم الذي سجل الدخول

*******************

في حدث الفورم UserForm1 في السطر الذي تظهر فيه رسالة تفضل بالدخول أضف سطر آخر بعده لتخزين اسم المستخدم في المتغير

MsgBox "تفضل بالدخول", vbOKOnly, "تنبيه"
strUser = Me.ComboBox1.Value

*******************

في حدث الفورم المسمى Form2 عدل الأسطر التي أشرت إليها بهذا الشكل

    Dim xRow As Long
    xRow = Application.WorksheetFunction.Match(strUser, ورقة11.Columns(1), 0)

    If ورقة11.Range("L" & xRow).Text = "مشاهدة وتعديل" Then
        CommandButton1.Visible = True
    Else
        CommandButton1.Visible = False
    End If

أرجو أن أكون وفقت في حل المطلوب .. لأن الملف متشابك جداً

 

[رسول]

شكرا جزيلا على المجهود الرائع

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

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

تقبل تحياتي