Bagaimana cara mengatur kata sandi untuk melindungi lembar kerja individu oleh pengguna di Excel?

Di Excel, Anda dapat mengatur kata sandi yang berbeda untuk lembar yang berbeda, ini berarti bahwa satu pengguna dapat membuat perubahan pada satu lembar kerja menggunakan satu kata sandi, dan yang lain dapat menggunakan kata sandi yang berbeda untuk membuat perubahan pada lembar kerja lain. Namun, terkadang, Anda hanya ingin setiap pengguna dapat melihat dan mengakses lembar mereka sendiri. Apakah ini mungkin diselesaikan di Excel?

Untuk melindungi setiap lembar kerja satu per satu dan membatasi akses ke lembar kerja oleh pengguna, harap terapkan kode VBA di bawah ini:

1. Buka buku kerja baru, dan buat lembar baru bernama "Utama", lihat tangkapan layar:

2. Lalu tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali Buku Kerja Ini dari kiri Proyek-VBAProject panel untuk membuka modul kode kosong, lalu salin dan tempel kode VBA berikut ke dalam jendela kode, lihat tangkapan layar:

Kode VBA: Tetapkan kata sandi untuk melindungi setiap lembar oleh pengguna

Option Explicit
Dim gUserName As String
Dim gUserPass As String
Private Sub Workbook_Open()
'Updateby ExtendOffice
Dim xWShs As Sheets
Dim xWSh As Worksheet
Dim xUserName As String
Dim xPass As String
Dim xBolH As Boolean
GTINPUT:
xUserName = InputBox("Enter the user name")
If TypeName(xUserName) = "String" Then
    If xUserName = "" Then
        Exit Sub
    End If
End If
xUserName = LCase(xUserName)
xPass = InputBox("User name:" & xUserName & Chr(13) & Chr(10) & "Enter the password:")
If TypeName(xPass) = "String" Then
    If xPass = "" Then
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
    End If
Else
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
End If
Set xWShs = Worksheets
xBolH = False
For Each xWSh In Worksheets
    If xWSh.Name = xUserName Then
    xBolH = True
    Exit For
    End If
Next
If xBolH Then
Set xWSh = xWShs(xUserName)
On Error GoTo GTINPUT2
xWSh.Unprotect (xPass)
xWSh.Visible = True
xWSh.Activate
Else
Set xWSh = xWShs.Add
xWSh.Name = xUserName
xWSh.Activate
End If
gUserName = xUserName
gUserPass = xPass
Exit Sub
GTINPUT2:
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xWSh As Worksheet
On Error Resume Next
Set xWSh = Worksheets(gUserName)
xWSh.Protect Password:=gUserPass, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
For Each xWSh In Worksheets
    If xWSh.Name <> "Main" Then
        xWSh.Visible = xlSheetVeryHidden
    End If
Next xWSh
ActiveWorkbook.Save
End Sub

3. Kemudian, letakkan kursor di akhir Sub Workbook_Open Pribadi () skrip, dan tekan F5 kunci untuk menjalankan kode ini. Sekarang, di kotak prompt yang muncul, masukkan nama pengguna yang ingin Anda buat lembar untuk pengguna ini, lihat tangkapan layar:

4. Dan kemudian, klik OK tombol, di kotak prompt berikut, masukkan kata sandi untuk melindungi lembar ini, lihat tangkapan layar:

5. Lanjutkan mengklik OK tombol, dan lembar baru bernama dengan nama pengguna dibuat sekaligus, dan Anda dapat membuat data untuk pengguna itu sesuai kebutuhan. Lihat tangkapan layar:

6. Ulangi langkah 3 di atas – langkah 5 untuk membuat lembar lain satu per satu yang ingin Anda gunakan.

7. Setelah membuat lembar, simpan buku kerja saat ini dengan mengklik File > Save As., Dalam Save As kotak dialog, tentukan nama file dan kemudian pilih Buku Kerja Excel Macro-Enabled (* .xlsm) format dari Save as type daftar drop-down, lihat tangkapan layar:

8. Kemudian klik tombol Simpan untuk menyimpan file ini.

9. Dan kemudian tutup buku kerja dan buka kembali, lalu, klik Aktifkan Konten di bagian atas bilah rumus untuk mengaktifkan kode, lihat tangkapan layar:

10. Sekarang, kotak prompt akan muncul untuk mengingatkan Anda memasukkan nama pengguna dan kata sandi untuk membuka lembar tertentu oleh pengguna tertentu.

11. Terakhir, saat mengirim buku kerja ini ke pengguna lain, Anda harus mengirimkan nama pengguna dan kata sandi kepada pengguna tersebut. Mereka hanya akan membuka dan mengedit lembar mereka sendiri, dan tidak memiliki otorisasi untuk melihat lembar kerja lain.