Excel файлын өөр өөр хэрэглэгчдэд өөр өөр эрхийг хэрхэн тохируулах вэ

Excel-ийн аюулгүй байдал нь таны ажилд маш чухал юм. Энэ нийтлэлд бид Excel VBA ашиглан өөр өөр хэрэглэгчдэд өөр өөр эрх олгох аргыг танилцуулах болно.

Бидний өмнөх нийтлэлд Excel-ийн ажлын дэвтрээ хамгаалах үүднээс нэвтрэх цонхыг хэрхэн яаж үүсгэх вэ, бид Excel ажлын дэвтэртээ нэвтрэх цонх үүсгэх аргыг танилцууллаа. Гэхдээ хэд хэдэн хэрэглэгчид баримт бичигт хандах шаардлагатай бол нэмэлт тохиргоог хийх хэрэгтэй. Үүнээс гадна, тэдгээр хэрэглэгчид файлд буруу өөрчлөлт оруулахгүй гэдгийг баталгаажуулах хэрэгтэй. Одоо доорх алхмуудыг дагаж, энэ ажлыг хэрхэн дуусгахыг харна уу.

Өөр өөр эрхүүдийг тохируулах

Одоо гурван худалдааны төлөөлөгч энэ файлыг өөрчлөх шаардлагатай байна гэж бодъё. Нэр болон нууц үгийг доорх зурагт үзүүлснээр тохируулсан болно.

Мөн хүн бүр тодорхой ажлын хуудсыг өөрчлөх шаардлагатай болно.

1. Visual Basic редакторыг нээхийн тулд гар дээрх "Alt + F11" товчлууруудыг дарна уу.
2. Дараа нь засварлагч руу шинэ хэрэглэгчийн маягт оруулна уу.
3. Энэ алхамд хоёр шошго, хоёр текст хайрцаг, хоёр товчлуурыг хэрэглэгчийн маягт руу оруулна уу.
4. Дараа нь хэрэглэгчийн маягтын тайлбар болон 3-р алхамд оруулсан элементүүдийг өөрчилнө үү. Та мөн доорх зургийг үзэж болно:
5. Үүний дараа хоёр дахь текстийн талбарт "Нууц үгийн тэмдэг"-ийг "*" болгон өөрчил.
6. Үүний дараа хэрэглэгчийн маягт дээр давхар товшино уу.
7. Дараа нь дараахь кодыг модульд оруулна уу.

Private Sub CommandButton1_Click()
  Dim objTargetWorksheet As Worksheet

  If (TextBox1.Value = "John" And TextBox2.Value = "234") _
    Or (TextBox1.Value = "Amy" And TextBox2.Value = "345") _
    Or (TextBox1.Value = "Paul" And TextBox2.Value = "456") Then
    Me.Hide: Application.Visible = True

    For Each objTargetWorksheet In ActiveWorkbook.Worksheets
      If objTargetWorksheet.Name = TextBox1.Value Then
        objTargetWorksheet.Unprotect Password:=12345
      Else
        objTargetWorksheet.Protect Password:=12345, DrawingObjects:=True, Contents:=True, Scenarios:=True
      End If
    Next
  Else
    MsgBox "Please input the right user name and the right password"
  End If
End Sub

Private Sub CommandButton2_Click()
  ThisWorkbook.Application.Quit
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  ThisWorkbook.Application.Quit
End Sub

Кодуудад бид бусад ажлын хуудсыг хамгаалах болно. Мөн хэрэглэгчид зөвхөн тохирох ажлын хуудсыг өөрчлөх боломжтой. Мөн та өөрийн хэрэгцээнд нийцүүлэн нууц үгээ өөрчилж болно.

8. Үүний дараа VBA төслийн "ThisWorkbook" дээр давхар товшино уу.
9. Дараа нь дараах кодуудыг оруулна уу:

Private Sub Workbook_Open()
  Application.Visible = False: UserForm1.Show
End Sub

10. Хэрэглэгчид VBA кодыг өөрчлөхөөс сэргийлэхийн тулд VBA төслүүдэд нууц үг оруулах шаардлагатай. Бидний өмнөх нийтлэлд Excel ажлын хуудсан дээрх VBA кодыг хэрхэн нууц үгээр хамгаалах вэ, бид аргуудыг нэвтрүүлсэн. Та мөн тусгай нууц үг тохируулж болно.
11. Эцэст нь энэ Excel файлыг хадгал.
12. Дараагийн удаа файлыг нээхэд хэрэглэгчийн маягт гарч ирэхгүй. Та файлын "Агуулгыг идэвхжүүлэх" товчийг дарах хэрэгтэй.
13. Дараа нь та "Нэвтрэх" цонхыг харах болно. Хоёр текст хайрцагт нэр, нууц үгээ оруулна уу.
14. Үүний дараа цонхонд "Нэвтрэх" товчийг дарна уу.

Энэ үед Жон зөвхөн ажлын хуудсыг өөрчлөх боломжтой. Тэр бусад ажлын хуудас эсвэл VBA кодыг өөрчлөх боломжгүй. Нэмж дурдахад гурван худалдааны төлөөлөгчөөс өөр хэн ч нууц үггүйгээр энэ файлыг нээж чадахгүй. Дараагийн удаад ийм шаардлага гарвал ажлын дэвтэрт нэвтрэх цонхыг тохируулж болно.

Excel-ийн авлигын асуудлыг таних

Заримдаа Excel нь олон хүчин зүйлийн үр дүнд эвдрэх болно. Чиний өмнөtarФайлуудаа засахын тулд та өгөгдлийн гамшгийн шалтгааны хамт асуудлыг тодорхойлох хэрэгтэй. Үүнээс гадна, хэрэв та өгөгдөл сэргээх талаар юу ч мэдэхгүй бол та чадна эвдэрсэн Excel xlsx засвар гуравдагч талын хэрэгслийг ашиглан. Хамгийн сүүлийн үеийн алгоритмын тусламжтайгаар энэ хэрэгсэл нь өглөгийг удирдах боломжтойost Excel-ийн бүх алдаа.

Зохиогчийн танилцуулга:

Анна Ма бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. эвдэрсэн docx засвар програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com