مشاركة عبر

كيفية القيام بما يلي: عرض معرّف تسجيل دخول المستخدم الحالي في خلية ما

  • مقالة

ينطبق على

تنطبق المعلومات الموجودة في هذا الموضوع فقط على أنواع المشاريع وإصدارات Microsoft Office التالية: لمزيد من المعلومات، راجع الميزات المتوفرة بواسطة تطبيقات Office و نوع المشروع.

نوع المشروع

  • مشروعات على مستوى المستند

  • مشروعات على مستوى التطبيق

إصدار Microsoft Office

  • Excel 2007

  • Excel 2010

يمكنك قراءة معرف تسجيل الدخول للمستخدم باستخدام أسلوب GetCurrent للكائن WindowsIdentity لتمثيل المستخدم الحالى. يمكنك حينئذٍ عرض معرف تسجيل الدخول الخاص بالمستخدم في نطاق مسمى في ورقة عمل Microsoft Office Excel.

لعرض النص في خلية ، استخدم عنصر التحكم NamedRange أو النطاق ألأصلي لكائن Excel.

استخدام عنصر تحكم NamedRange (نطاق مسمى)

هذا مثال لتخصيصات على مستوى المستند. يجب وضع التعليمات البرمجية التالية في فئة ورقة، وليس في فئة ThisWorkbook.

لعرض معرف تسجيل الدخول الخاص بالمستخدم في نطاق مسمى

  1. قم بالحصول على تسجيل الدخول الخاص بالمستخدم .

    Dim user As System.Security.Principal.WindowsIdentity
user = System.Security.Principal.WindowsIdentity.GetCurrent()

    System.Security.Principal.WindowsIdentity user;
user = System.Security.Principal.WindowsIdentity.GetCurrent();

  2. قم بإنشاء عنصر التحكم NamedRange المسمى userID و عرض معرف تسجيل الدخول الخاص للمستخدم .

    Dim userID As Microsoft.Office.Tools.Excel.NamedRange
userID = Me.Controls.AddNamedRange(Me.Range("A1"), "userID")

userID.Value2 = user.Name

    Microsoft.Office.Tools.Excel.NamedRange userID;
userID = this.Controls.AddNamedRange(this.Range["A1", missing], "userID");

userID.Value2 = user.Name;

استخدام نطاقات Excel الأصلية

لعرض معرف تسجيل الدخول للمستخدم الحالي في نطاق Excel الأصلي

  1. قم بالحصول على تسجيل الدخول الخاص بالمستخدم .

    Dim user As System.Security.Principal.WindowsIdentity
user = System.Security.Principal.WindowsIdentity.GetCurrent()

    System.Security.Principal.WindowsIdentity user;
user = System.Security.Principal.WindowsIdentity.GetCurrent();

  2. قم بإنشاء عنصر التحكم Range المسمى userID و عرض معرف تسجيل الدخول الخاص للمستخدم.

    Dim userID As Excel.Range = Me.Application.Range("A1")

userID.Value2 = user.Name

    Excel.Range userID = this.Application.get_Range("A1", missing);

userID.Value2 = user.Name;

برمجة نشطة

قد تتسبب الحالات التالية في حدوث استثناء:

راجع أيضًا:

المهام

كيفية القيام بما يلي: الإشارة إلى نطاقات ورقة العمل في التعليمات البرمجية

كيفية: إنشاء كائن WindowsPrincipal

المبادئ

العمل مع الخلايا

المعلمات الاختيارية في حلول Office