كيفية القيام بما يلي: تعيين كلمات المرور الخاصة بالمصنف و مسحها

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

قم بإنشاء كلمة مرور لتقييد الوصول إلى المصنف. تقوم الأمثلة التالية بتعيين كلمة المرور الخاصة بالمصنف . لمسح كلمة المرور، قم بتعيين كلمة المرور إلى سلسلة فارغة.

تعيين كلمة مرور في التخصيصات على مستوى المستند

لتعيين كلمة المرور

• قم بتعيين خاصية كلمة المرور من ThisWorkbook إلى سلسلة موفرة من قبل المستخدم.

  Private Sub SetPassword()
      Dim password As String
      Dim confirmPassword As String
  
      password = Me.Application.InputBox("Enter the new password:").ToString()
      confirmPassword = Me.Application.InputBox("Confirm the password:").ToString()
  
      If password <> confirmPassword Then
          MessageBox.Show("The passwords you typed do not match.")
          Globals.ThisWorkbook.Password = ""
      Else
          Globals.ThisWorkbook.Password = password
      End If
  End Sub
  

  private void SetPassword() 
  {
      string password = this.Application.InputBox("Enter the new password:",
          missing, missing, missing, missing, missing, missing, missing).ToString();
  
      string confirmPassword = this.Application.InputBox("Confirm the password:", 
          missing, missing, missing, missing, missing, missing, missing).ToString(); 
  
      if (password != confirmPassword)
      {
          MessageBox.Show("The passwords you typed do not match.");
          Globals.ThisWorkbook.Password = "";
      }
      else
      {
          Globals.ThisWorkbook.Password = password;
      } 
  }
  

تعيين كلمة مرور في الوظيفة الإضافية على مستوى التطبيق

لتعيين كلمة مرور للمصنف النشط

• قم بتعيين الخاصية Password الخاصة بالفئة Microsoft.Office.Interop.Excel._Workbook إلى سلسلة موفرة من قبل المستخدم. لاستخدام هذا المثال، قم بتشغيل التعليمات البرمجية من الفئة ThisAddIn في مشروعك.

  Private Sub SetPassword()
      Dim password As String
      Dim confirmPassword As String
  
      password = Me.Application.InputBox("Enter the new password:").ToString()
      confirmPassword = Me.Application.InputBox("Confirm the password:").ToString()
  
      If password <> confirmPassword Then
          System.Windows.Forms.MessageBox.Show("The passwords you typed do not match.")
          Me.Application.ActiveWorkbook.Password = ""
      Else
          Me.Application.ActiveWorkbook.Password = password
      End If
  End Sub
  

  private void SetPassword()
  {
      string password = this.Application.InputBox("Enter the new password:",
          missing, missing, missing, missing, missing, missing, missing).ToString();
  
      string confirmPassword = this.Application.InputBox("Confirm the password:",
          missing, missing, missing, missing, missing, missing, missing).ToString();
  
      if (password != confirmPassword)
      {
          System.Windows.Forms.MessageBox.Show
              ("The passwords you typed do not match.");
          this.Application.ActiveWorkbook.Password = "";
      }
      else
      {
          this.Application.ActiveWorkbook.Password = password;
      }
  }
  

راجع أيضًا:

المهام

كيفية القيام بما يلي: حماية المصنفات

كيفية القيام بما يلي: حماية أوراق العمل

المبادئ

العمل مع المصنفات

حماية كلمة المرور على مستندات Office

الوصول العمومي إلى الكائنات في مشاريع Office

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