صلاحيات للوصول لشيتات

بسم الله الرحمن الرحيم

اليوم هنعرف ازاي نعمل صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل

بعد ما راجعنا الدرس السابق نبدأ من حيث انتهينا

الأساسيات

الشاشة الرئيسية

الصفحات الأخرى

وأخيرا صفحة  معلومات الدخول والصلاحيات

ودي أسماء الصفحات داخل الشيتات وبرمجيا

نقوم بتصميم نفس الصفحات السابقة

أظن سهلة العملية لحد دلوقتي

حان دور الاكواد

نبدأ بالاكواد السهلة

في كل صفحة غير الرئيسية بها زر رجوع نضع الاكواد كالاتي

صفحة ادخال البيانات في زر الرجوع

 




Sub yasser1()

index.Activate

sheet1.Visible = xlSheetVeryHidden

End Sub

السطر الاول للرجوع للصفحة الرئيسية

السطر الثاني لاخفاء صفحة ادخال البيانات وهي شيت1

وتكرر في الصفحات المتبقية

صفحة الاستعلام




Sub yasser2()

index.Activate

sheet2.Visible = xlSheetVeryHidden

End Sub

صفحة قاعدة البيانات




Sub yasser3()

index.Activate

sheet3.Visible = xlSheetVeryHidden

End Sub

صفحة المستخدمون users




Sub mohamed1()

index.Select

users.Visible = xlSheetVeryHidden

End Sub

 

 

وقبل ان نترك صفحة اليوزرز

 

نضع هذه المعادلات

 

 

 

=IF(J2="";"";VLOOKUP(J2;A2:E8;3;FALSE))

 

=IF(J2="";"";VLOOKUP(J2;A2:E8;4;FALSE))

 

=IF(J2="";"";VLOOKUP(J2;A2:E8;5;FALSE))

 

هذه الدوال تجلب بيانات المستخدم من جدول المستخدمين ومنها نقوم بالتحكم في صلاحياته

 

الآن حان دور الصفحة الرئيسية

نضع في اول زر وهو زر ادخال البيانات الكود التالي

 

 




Sub aseel1()

If users.Range("k2") = "yes" Then

Application.ScreenUpdating = False

sheet1.Visible = xlSheetVisible

sheet1.Select

Else

MsgBox "انت لا تمتلك الصلاحية لدخول هذه الصفحة ", vbCritical, "elmalak_elhazen_yasser@yahoo.com"


Application.ScreenUpdating = True

End If

End Sub

 

زر الصفحة الثانية صفحة الاستعلام

 




Sub aseel2()

If users.Range("L2") = "yes" Then

Application.ScreenUpdating = False

sheet2.Visible = xlSheetVisible

sheet2.Select

Else

MsgBox "انت لا تمتلك الصلاحية لدخول هذه الصفحة ", vbCritical, "elmalak_elhazen_yasser@yahoo.com"


Application.ScreenUpdating = True

End If

End Sub

زر الصفحة الثالثة صفحة قاعدة البيانات

 

Sub aseel3()

If users.Range("m2") = "yes" Then

Application.ScreenUpdating = False

sheet3.Visible = xlSheetVisible

sheet3.Select

Else

MsgBox "انت لا تمتلك الصلاحية لدخول هذه الصفحة ", vbCritical, "elmalak_elhazen_yasser@yahoo.com"

Application.ScreenUpdating = True

End If

End Sub

زر الصفحة الرابعة صفحة صلاحيات اليوزرز

 

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

 




Sub mohamed()

Dim x

    x = InputBox("يرجى ادخال كلمة المرور.", "Password Required")

    If x = "123" Then

users.Visible = xlSheetVisible

users.Select

        Else

        MsgBox "كلمة المرور خطأ يرجى اعداة المحاولة"


    End If

End Sub

 

  

اكواد الصفحات تعتمد علي

اول سطر يقوم بمقارنة  الخلية الخاصة بالصفحة اذا كانت بها كلمة yes

فيسمح بالدخول اما غير ذلك لا يمكن الدخول

والجزء الثان من الكود يقوم باظهار الصفحة عند تحقق الشرط والذهاب اليها

ينقصنا سطر صغير لاتمام الموضوع

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

وتتم كالاتي

يتم وضع الكود في حدث زر الدخول

users.Range("j2") = ComboBox1.Value

وبكدا يكون انتهى الدرس
لتحميل مثال اضغط هنا  

تقبلوا تحياتي

ياسر العربي
اعادة نشر

مرفق الملف
صلاحيات.rar

ومرفق اخر معدل ليسع اكبر قدر من الشيتات

منقول للأمانة

شكرا للأخ ياسر

Résuméabuiyad

ربط الصور بقائمة منسدلة على ورقة العمل

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

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

 

منقول للأمانة

Résuméabuiyad

شرح دمج المراسلات بين الإكسل و الوورد

منقول للأمانة
 

Résuméabuiyad

مجموعة من الأمثلة عن ماكرو إكسل VBAXL

Excel و WEB

إرسال بريد إلكتروني: عنوان في الخلية D1 و D2 في هذا الموضوع، والنص في D3

'اختبار مع Outlook Express 5.

فرعية EnvoiUnMail ()
الشمس Mailad كسلسلة
جي اس قاتمة وسلسلة
Subj خافت كسلسلة
الشمس URLto كسلسلة
Mailad = المدى ( "D1")
Subj = المدى ( "D2")
جي اس جي اس = والمدى ( "D3")
URLto = "ميلتو:" Mailad & & & & Subj "والجسم =" & MSG "؟ الموضوع ="
ActiveWorkbook.FollowHyperlink العنوان: = URLto
نهاية الفرعية

يرسل ورقة 1 عن طريق البريد

فرعية EnvoiFeuilMail ()
كما مصنف خافت WBK

ThisWorkbook.Sheets ( "SHEET1"). نسخة
تعيين WBK = ActiveWorkbook
SendKeys "{E}"
Wbk.SendMail "dj@free.fr"، "ورقة العقد للتوقيع"، صحيح
"صحيح لاستلام إشعار

savechanges Wbk.Close: = خطأ
تعيين WBK = لا شيء
نهاية الفرعية

يرسل المستند النشط إلى عدة مستلمين. A1: A10

يمكنك إضافة عناوين، فقط تغيير:
وA1 مرجع: A11
حلقة 1 إلى 11
والجدول صفيف (myadress (11) الخ ..

فرعية EnvoiClasseurAd ()
الشمس myadress (1 إلى 10)

تعيين mylst = ActiveSheet.Range ( "A1: A10")
عدد = 1

إرسال للكل في mylst
إذا ليون (إرسال) ثم myadress (عدد) = إرسال: عدد = عدد + 1
التالي

ActiveWorkbook.SendMail المستلمين: = صفيف (myadress (1) myadress (2) _
myadress (3)، myadress (4)، myadress (5) myadress (6) myadress (7)، _
myadress (8) myadress (9) myadress (10)) الموضوع: = "هذا هو المصنف يسمى"
نهاية الفرعية

تصدر رسم صورة JPG

فرعية GraphJPG ()
كما مخطط خافت MyChart
تعيين MyChart ActiveSheet.ChartObjects = (1) .chart
MyChart.Export اسم الملف: = "C: \ ajeter \ Graph1.jpg" FILTERNAME: = "JPG"
نهاية الفرعية

. GIF تصدير مجموعة مختارة - بما في ذلك الرسم.

لورانس لام

فرعية exportgif ()
الشمس بيتش والمدى
تعيين المدى = Application.InputBox (موجه: = "اختر منطقتك: (خروج A1 B10)" _
العنوان: = "تحديد المنطقة"، رد: = "$ A $ 1"، النوع: = 8)
Application.ScreenUpdating = خطأ
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
ActiveSheet.ChartObjects.Add مع (0، 0، _
Selection.Width، Selection.Height) .chart
.Paste
.export "C: \ ajeter \ Test.gif"، "GIF"
ينتهي مع
خطأ ActiveWorkbook.Close
نهاية الفرعية

يحفظ ملف أتش تي أم أل شاطئ تشارلي بالش

http://charlie.balch.org/hdoc/exceltohtml.html

رؤية تشارلي الكلي

اختبارات إذا كان اتصال نشط

مؤلف مجهول

الجمهور CONST ERROR_SUCCESS = 0 &
CONST الجمهور APINULL = 0 &
الجمهور CONST HKEY_LOCAL_MACHINE = & H80000002
طالما رمز النتيجة العامة

إعلان وظيفة RegCloseKey ليب "advapi32.dll" (الأساسية ByVal HKEY وونغ) وونغ
إعلان وظيفة RegOpenKey ليب "advapi32.dll" الاسم المستعار "RegOpenKeyA" _
(الأساسية ByVal HKEY وطويل، الأساسية ByVal كسلسلة lpSubKey، phkResult وونغ) طالما
إعلان وظيفة RegQueryValueEx ليب "advapi32.dll" الاسم المستعار "RegQueryValueExA" _
(الأساسية ByVal HKEY طالما، الأساسية ByVal lpValueName وسلسلة، _
LpReserved الأساسية ByVal وطويل، lpType وطويل، _
lpData وأي، lpcbData وطويل) وطويل
أعلن خاصة وظيفة InternetAutodial ليب "WININET" _
(الأساسية ByVal dwFlags وطويل، الأساسية ByVal hwndParent وونغ) وونغ
أعلن خاصة وظيفة InternetAutodialHangup ليب "WININET.DLL" _
(الأساسية ByVal dwReserved وونغ) وونغ

ActiveConnection وظيفة عامة () ومنطقية
طالما خافت HKEY
الشمس lpSubKey كسلسلة
طالما خافت phkResult
الشمس lpValueName كسلسلة
طالما خافت lpReserved
طالما خافت lpType
طالما خافت lpData
طالما خافت lpcbData

ActiveConnection = خطأ
lpSubKey = "نظام \ نقرا \ خدمات \ ريموت"
رمز النتيجة = RegOpenKey (HKEY_LOCAL_MACHINE، lpSubKey، phkResult)

إذا رمز النتيجة = ERROR_SUCCESS ثم
HKEY = phkResult
lpValueName = "اتصال عن بعد"
lpReserved = APINULL
lpType = APINULL
lpData = APINULL
lpcbData = APINULL
رمز النتيجة _ = RegQueryValueEx
(HKEY، lpValueName، lpReserved، lpType، الأساسية ByVal lpData، lpcbData)
lpcbData = لين (lpData)
رمز النتيجة _ = RegQueryValueEx
(HKEY، lpValueName، lpReserved، lpType، lpData، lpcbData)

إذا رمز النتيجة = ERROR_SUCCESS ثم
إذا = lpData 0 ثم
ActiveConnection = خطأ
آخر
ActiveConnection = صحيح
إنهاء حالة
إنهاء حالة
RegCloseKey (HKEY)
إنهاء حالة
وظيفة نهاية

اختبار الاتصال

دون اختبار ()
إذا = ActiveConnection صحيح ثم
استدعاء MsgBox ( "أن يكون لديك اتصال نشط." VbInformation)
آخر
استدعاء MsgBox ( "ليس لديك اتصال نشط." VbInformation)
إنهاء حالة
نهاية الفرعية

مع XP

أعلن خاصة وظيفة InternetGetConnectedState ليب "WININET.DLL" _
(الأساسية ByRef lpSFlags وطويل، dwReserved الأساسية ByVal وونغ) وونغ

وظيفة عامة IsConnectedToInternet (اختياري ConnectMode وعدد صحيح) ومنطقية
طالما خافت LRESULT
IsConnectedToInternet = InternetGetConnectedState (LRESULT، 0 &)
ConnectMode = LRESULT
وظيفة نهاية

جنوب TEST2 ()
إذا IsConnectedToInternet = صحيح ثم
استدعاء MsgBox ( "أن يكون لديك اتصال نشط." VbInformation)
آخر
استدعاء MsgBox ( "ليس لديك اتصال نشط." VbInformation)
إنهاء حالة
نهاية الفرعية

يبدأ اتصال

أعلن خاصة وظيفة InternetAutodial ليب "WININET" _
(الأساسية ByVal dwFlags وطويل، الأساسية ByVal hwndParent وونغ) وونغ
أعلن خاصة وظيفة InternetAutodialHangup ليب "WININET.DLL" _
(الأساسية ByVal dwReserved وونغ) وونغ

دون دخول ()
InternetAutodial 1، 0
نهاية الفرعية

يتوقف اتصال

من الباطن حاليا ()
InternetAutodialHangup (0 &)
نهاية الفرعية

إرسال رسالة مع Outlook Express (اختبار مع Excel 2003)

دست يحتوي متغير عنوان البريد الإلكتروني.
يحتوي على متغير Sujt سطر الموضوع.
يحتوي جي اس متغير نص الرسالة.

فرعية MailAvecOE ()
دست كسلسلة خافت
الشمس Sujt كسلسلة
جي اس قاتمة وسلسلة
دست = "dj@free.fr"
Sujt = "إرسال اختبار مع Excel"
جي اس = "مرحبا، يرسل إكسل رسالة مع عمر الفاروق"
قذيفة "C: \ ملفات البرنامج \ برنامج Outlook Express \ msimn.exe لها" & _
"/ Mailurl: ميلتو:" عنوان & & & & Sujt "والجسم =" & رسائل و"" "؟ الموضوع ="
نهاية الفرعية

إرسال رسالة مع ملف مرفق المصنف (اختبار مع Excel 2003)

فرعية MailAvecOEClasseur ()
الشمس دست، Sujt، جي اس كسلسلة
الشمس theFile
TheFile = "C: \ TEMP \ monfich.xls"
دست = "dj@free.fr"
Sujt = "إرسال اختبار مع Excel"
جي اس = "مرحبا، يرسل إكسل رسالة ومصنف مع عمر الفاروق"
قذيفة "C: \ ملفات البرنامج \ برنامج Outlook Express \ msimn.exe لها" & _
"/ Mailurl: ميلتو:" عنوان & & & & Sujt "والجسم =" & رسائل و"" "؟ الموضوع ="
SendKeys "٪ I" و "ص" وtheFile و"~" & "٪ ق"
نهاية الفرعية

معنى الأحرف بعد "SendKeys"
*٪ I و P = إدخال المرفق في Outlook Express. (٪ = البديل)
* ~ = التحقق. (~ = أدخل)
* =٪ إرسال S.

كيفية إرسال ورقة رسالة في VBA؟ (اختبار مع Excel 2003)

فرعية MailFeuilleOE ()
الشمس دست، Sujt، جي اس كسلسلة
الشمس RepName
ActiveSheet.Copy
ActiveWorkbook.SaveAs اسم الصورة: = "C: \ مؤقت \ Test.xls"
RepName = "C: \ مؤقت \ Test.xls"
دست = "dj@free.fr"
Sujt = "اختبار بإرسال ورقة مع Excel"
جي اس = "مرحبا، إكسل يرسل لك ورقة مع عمر الفاروق"
قذيفة "C: \ ملفات البرنامج \ برنامج Outlook Express \ msimn.exe لها" & _
"/ Mailurl: ميلتو:" عنوان & & & & Sujt "والجسم =" & رسائل و"" "؟ الموضوع ="
SendKeys "٪ I" و "ص" وRepName و"~" & "٪ ق"
ActiveWorkbook.Close
نهاية الفرعية

كيفية إرسال مجموعة من الخلايا في رسالة في VBA؟ (اختبار مع Excel 2003)

هذا الماكرو يرسل النطاق A1: A10، يمكنك تغيير من الواضح أن هذا الخط المدى. ( "A1: A10") نسخة
لإرسال مجموعة خلية أخرى.

فرعية EnvoiSelectionparMail ()
الشمس دست، Sujt، جي اس كسلسلة
الشمس theFile
مجموعة ( "A1: A10") نسخ.
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs اسم الصورة: = "C: \ مؤقت \ Test.xls"
TheFile = "C: \ مؤقت \ Test.xls"
دست = "dj@free.fr"
Sujt = "إرسال اختبار مع Excel"
جي اس = "مرحبا، إكسل يرسل لك مجموعة من الخلايا مع عمر الفاروق"
قذيفة "C: \ ملفات البرنامج \ برنامج Outlook Express \ msimn.exe لها" & _
"/ Mailurl: ميلتو:" عنوان & & & & Sujt "والجسم =" & رسائل و"" "؟ الموضوع ="
SendKeys "٪ I" و "ص" وtheFile و"~" & "٪ ق"
ActiveWorkbook.Close
نهاية الفرعية

رسالة إلى عدة مستلمين (اكسل 2003)

قائمة المستلمين هي في النطاق A1: A10

فرعية Mailingliste ()
دست كسلسلة خافت
الشمس Sujt كسلسلة
جي اس قاتمة وسلسلة
لكل Lescellules في نطاق ( "A1: A10")
دست = Lescellules.Value
Sujt = "إرسال اختبار مع Excel"
جي اس = "مرحبا، يرسل إكسل رسالة مع عمر الفاروق" _
VbNewLine وو"Daniel.j"
قذيفة "C: \ ملفات البرنامج \ برنامج Outlook Express \ msimn.exe لها" & _
"/ Mailurl: ميلتو:" عنوان & & & & Sujt "والجسم =" & رسائل و"" "؟ الموضوع ="
SendKeys "٪ ق"
التالي

'ونص الرسالة موجود في مربع النص:
جي اس = أوراق العمل ( "اسم الورقة"). الأشكال ( "مربع نص 1"). TextFrame.Characters.Text

نهاية الفرعية

يفتح صفحة على شبكة الإنترنت مع المتصفح الافتراضي

أعلن خاصة الدالة ShellExecute ليب "SHELL32.DLL" الاسم المستعار _
"ShellExecuteA" (الأساسية ByVal hWnd عنصر وطويل، الأساسية ByVal lpOperation وسلسلة الأساسية ByVal _
lpFile وسلسلة الأساسية ByVal lpParameters وسلسلة الأساسية ByVal _ كما lpDirectory
سلسلة الأساسية ByVal nShowCmd وونغ) طالما
خاصة CONST SW_SHOWNORMAL وطويل = 1

فرعية LanceNavigateurPardefaut ()
عنوان URL وسلسلة خافت
عنوان URL = "http://dj.joss.free.fr/sommaire.htm"
ShellExecute HWND "فتح"، وعنوان الموقع، vbNullString، vbNullString، SW_SHOWNORMAL
نهاية الفرعية

يفتح صفحة على شبكة الإنترنت وحفظها في مصنف جديد

أعلن خاصة وظيفة InternetAutodial ليب "WININET" _
(الأساسية ByVal dwFlags وطويل، الأساسية ByVal hwndParent وونغ) وونغ
أعلن خاصة وظيفة InternetAutodialHangup ليب "WININET.DLL" _
(الأساسية ByVal dwReserved وونغ) وونغ

فرعية OuvreHTM ()
InternetAutodial 1، 0
على خطأ استئناف التالي
Workbooks.OpenText "HTTP: /dj.joss.free.fr/sommaire.htm" xlWindows، _
1 xlDelimited، ConsecutiveDelimiter: = كاذبة، تبويب: = صحيح
إذا خطأ ثم MsgBox Err.Description: إنهاء الفرعية
على خطأ الانتقال إلى 0
تشدر "C: \ ajeter \" لم يتغير
ActiveWorkbook.SaveAs اسم الصورة: = "lapage.xls"
نهاية الفرعية

"أوقفوا اتصال
من الباطن حاليا ()
InternetAutodialHangup (0 &)
نهاية الفرعية

Résuméabuiyad

القوائم وأشرطة الأدوات

سوف تجد هنا أمثلة لإنشاء أو تعديل أو تخصيص قائمة Excel. إضافة عنصر إلى القائمة أدوات. 1 - إضافة يحق سبيل المثال البند في المركز الأخير في القائمة أدوات. "رمز لتثبيت هذا البند في القائمة أدوات AddItemInMenuOutils الفرعية () مع Application.CommandBars ( "أدوات") .Controls.Add (msoControlButton) .Caption = "مثال" .OnAction = "يعرض" .FaceId = 343 ينتهي مع نهاية الفرعية "رمز لحذف هذا البند من القائمة أدوات فرعية EffaceItem () الأوامر ( "أدوات") .Controls ( "مثال") .Delete نهاية الفرعية "كود العمل المرتبطة مع هذا البند مثال جنوب العرض () خافت MSG، ستايل، عنوان جي اس = "لقد قمت بإضافة عنصر في القائمة أدوات يسمى" النمط = vbYes عنوان = "إضافة عناصر إلى القائمة أدوات - © اريك RENAUD - 11/1999" استجابة = MsgBox (MSG، ستايل، عنوان) نهاية الفرعية 2 - إضافة البند المعنون حماية مثال بعد البند في القائمة أدوات. "رمز لتثبيت هذا البند في القائمة أدوات، حماية فرعية AddItemInMenuOutilsProtection () مع Application.CommandBars ( "حماية") .Controls.Add (msoControlButton) .Caption = "مثال" .OnAction = "يعرض" .FaceId = 343 ينتهي مع نهاية الفرعية "رمز لحذف هذا البند من القائمة أدوات، حماية فرعية EffaceItem () الأوامر ( "أدوات") .Controls ( "حماية") .Controls (4) .Delete نهاية الفرعية "كود العمل المرتبطة مع هذا البند مثال جنوب العرض () خافت MSG، ستايل، عنوان جي اس = "لقد قمت بإضافة عنصر يسمى القائمة أدوات." النمط = vbYes عنوان = "إضافة عناصر إلى القائمة أدوات، حماية - © اريك RENAUD - 11/1999" استجابة = MsgBox (MSG، ستايل، عنوان) نهاية الفرعية إضافة عنصر إلى القائمة أدوات، حماية. إضافة عنصر مثال بعنوان القائمة أدوات الحماية الفرعية. "رمز لتثبيت هذا البند في القائمة أدوات، حماية فرعية AddItemInMenuOutilsProtection () مع Application.CommandBars ( "حماية") .Controls.Add (msoControlButton) .Caption = "مثال" .OnAction = "يعرض" .FaceId = 343 ينتهي مع نهاية الفرعية "رمز لحذف هذا البند من القائمة أدوات، حماية فرعية EffaceItem () الأوامر ( "أدوات") .Controls ( "حماية") .Controls (4) .Delete نهاية الفرعية "كود العمل المرتبطة مع هذا البند مثال جنوب العرض () خافت MSG، ستايل، عنوان جي اس = "لقد قمت بإضافة عنصر يسمى القائمة أدوات." النمط = vbYes عنوان = "إضافة عناصر إلى القائمة أدوات، حماية - © اريك RENAUD - 11/1999" استجابة = MsgBox (MSG، ستايل، عنوان) نهاية الفرعية إضافة قائمة جديدة. 1 - اضافة القائمة عينة في شريط القوائم بعد القائمة؟ "رمز لإضافة القائمة عينة. فرعية InserenouveauMenu () مع الأوامر (1) .Controls.Add (msoControlPopup) .Caption = "مثال" مع .Controls.Add (msoControlButton) .Caption = "تصاعديا" .FaceId = 210 .BeginGroup = صحيح .OnAction = "يعرض" ينتهي مع مع .Controls.Add (msoControlButton) .Caption = "تنازلي" .FaceId = 211 .BeginGroup = صحيح .OnAction = "يعرض" ينتهي مع ينتهي مع نهاية الفرعية "رمز لإزالة القائمة عينة. فرعية SupprimeNouveauMenu () الأوامر (1) .Controls ( "مثال") .Delete نهاية الفرعية "كود العمل المرتبطة باستخدام الأدوات مثال جنوب العرض () خافت MSG، ستايل، عنوان جي اس = "لقد قمت بإضافة قائمة جديدة في شريط القوائم" النمط = vbYes عنوان = "إضافة قائمة جديدة - © اريك RENAUD - 11/1999" استجابة = MsgBox (MSG، ستايل، عنوان) نهاية الفرعية 2 - إضافة القائمة في مثال القائمة قبل شريط القائمة تنسيق. "رمز لإضافة القائمة عينة قبل القائمة تنسيق. "هذا الرمز هو مطابق للمثال السابق إلا أنه يجب إضافة قبل: = 5، 5 كونه رقم القائمة قبل أي واحد "يريد إدراج القائمة عينة. "إن سطر من التعليمات البرمجية: مع الأوامر (1) .Controls.Add (msoControlPopup) "يصبح: مع الأوامر (1) .Controls.Add (msoControlPopup قبل: = 5) إضافة عناصر إلى قائمة السياق (انقر على الحق). 1 - اضافة مثال عنصر في قائمة السياق (زر الماوس الأيمن). "رمز لإضافة القائمة. فرعية InsereMenuContextuel () مع Application.CommandBars ( "خلية") .Controls.Add (msoControlButton) .Caption = "مثال" .BeginGroup = صحيح .FaceId = 343 .OnAction = "يعرض" ينتهي مع نهاية الفرعية "رمز لإزالة القائمة. فرعية SupprimeMenuContextuel () Application.CommandBars ( "خلية") .Reset نهاية الفرعية "كود العمل المرتبطة مع هذا البند مثال جنوب العرض () خافت MSG، ستايل، عنوان جي اس = "لقد قمت بإضافة عنصر في القائمة أدوات يسمى" النمط = vbYes عنوان = "إضافة بند في قائمة السياق - © اريك RENAUD - 11/1999" استجابة = MsgBox (MSG، ستايل، عنوان) نهاية الفرعية 2 - إضافة عنصر القائمة المنبثقة من قائمة السياق في مثال (الحق على زر الماوس). "رمز لإضافة القائمة. فرعية InsereMenuContextuePopUp () مع Application.CommandBars ( "خلية") مع .Controls.Add (msoControlPopup) .Caption = "مثال" .BeginGroup = خطأ "القائمة الفرعية 1 (مثال 1.1) .Controls.Add (MsoControlButton) .Controls (1) .Caption = "مثال 1.1" مع .Controls (1) .OnAction = "يعرض" .FaceId = 351 ينتهي مع "القائمة الفرعية 2 (مثال 1.2) .Controls.Add (MsoControlButton) .Controls (2) .Caption = "مثال 1.2" مع .Controls (2) .OnAction = "يعرض" .FaceId = 352 ينتهي مع ينتهي مع ينتهي مع نهاية الفرعية "رمز لإزالة القائمة. فرعية SupprimeMenuContextuel () Application.CommandBars ( "خلية") .Reset نهاية الفرعية "كود العمل المرتبطة مع هذا البند مثال جنوب العرض () خافت MSG، ستايل، عنوان جي اس = "لقد قمت بإضافة عنصر في القائمة أدوات يسمى" النمط = vbYes عنوان = "إضافة بند في قائمة السياق - © اريك RENAUD - 11/1999" استجابة = MsgBox (MSG، ستايل، عنوان) نهاية الفرعية إخفاء العناصر في القائمة (أو إعادة عرض). 1 - جعل الوصول إليها من القائمة أدوات. "رمز لجعله لا يمكن الوصول إليها في البند أدوات. InhibeMenuOutils الفرعية () الأوامر (1) .Controls (6) .Enabled = كاذبة نهاية الفرعية "رمز لجعل الوصول إليها في البند أدوات. AfficheMenuOutils الفرعية () الأوامر (1) .Controls (6) .Enabled = صحيح نهاية الفرعية 2 - جعل الوصول إليها من القائمة أدوات، حماية. "رمز لجعله لا يمكن الوصول إليها في البند أدوات والحماية. فرعية InhibeOutilsProtection () الأوامر (1) .Controls (6) .Controls (6) .Enabled = خطأ نهاية الفرعية "رمز لجعل الوصول إلى أدوات البند، حماية. فرعية AfficheOutilsProtection () الأوامر (1) .Controls (6) .Controls (6) .Enabled = صحيح نهاية الفرعية منع عرض من القائمة (أو إعادة عرض). حذف شريط العنوان القائمة أدوات. "رمز لإزالة العنوان من أدوات شريط القوائم. SupprimeIntituleOutils الفرعية () الأوامر (1) .Controls (6) .Visible = خطأ نهاية الفرعية "رمز لإعادة عرض أدوات العنوان في شريط القوائم. ReinstalleIntituleOutils الفرعية () الأوامر (1) .Controls (6) .Visible = صحيح نهاية الفرعية

Résuméabuiyad