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.
Alat Produktivitas Kantor Terbaik
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
- Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
- Gabungkan Sel / Baris / Kolom dan Menyimpan Data; Pisahkan Konten Sel; Gabungkan Baris Duplikat dan Jumlah / Rata-rata... Mencegah Sel Duplikat; Bandingkan Rentang...
- Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
- Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
- Favorit dan Sisipkan Rumus dengan Cepat, Rentang, Grafik dan Gambar; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
- Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
- Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
- Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
- Pengelompokan Tabel Pivot menurut nomor minggu, hari dalam seminggu dan banyak lagi ... Tampilkan Sel yang Tidak Terkunci dan Terkunci dengan warna berbeda; Sorot Sel Yang Memiliki Rumus / Nama...
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
