Loncat ke daftar isi utama

Bagaimana cara mengizinkan mengedit objek di lembar kerja terlindungi di Excel?

Secara default, objek yang disisipkan seperti bentuk, kotak teks tidak bisa diedit setelah memproteksi lembar kerja. Jika Anda perlu mengedit objek di lembar kerja yang diproteksi, silakan coba metode di artikel ini.

Izinkan mengedit objek di lembar kerja yang diproteksi dengan mencentang opsi Edit Objek
Izinkan mengedit objek di lembar kerja yang dilindungi dengan kode VBA


Izinkan mengedit objek di lembar kerja yang diproteksi dengan mencentang opsi Edit Objek

Harap centang opsi Edit Objek untuk mengizinkan pengeditan objek sebelum melindungi lembar kerja. Silakan lakukan sebagai berikut.

1. klik ULASAN > Lindungi Lembar.

2. Dalam Lindungi Lembar kotak dialog, tentukan kata sandi di Sandi untuk lembar perlindungan kotak, dan centang Edit objek di kotak Perbolehkan semua pengguna lembar kerja ini untuk, lalu klik OK tombol. Konfirmasikan kata sandi Anda di Konfirmasi Sandi kotak dialog. Lihat tangkapan layar:

Sekarang lembar kerja dilindungi dan semua objek dalam lembar kerja yang dilindungi ini dapat diedit.


Izinkan mengedit objek di lembar kerja yang dilindungi dengan kode VBA

Jika lembar kerja telah diproteksi, Anda dapat mencoba skrip VBA di bawah ini untuk memungkinkan mengedit objek. Silakan lakukan sebagai berikut.

1. tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali Buku Kerja Ini di kiri Project panel. Kemudian salin dan tempel kode VBA di bawah ini ke file ThisWorkbook (Kode) jendela.

Kode VBA: Izinkan mengedit objek di lembar kerja yang dilindungi

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    On Error Resume Next
    With Worksheets("Sheet3")
        .EnableOutlining = True
        .EnableAutoFilter = True
        .Protect Password:="123", _
        Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True, _
        AllowFormattingCells:=True
    End With
    Application.ScreenUpdating = True
End Sub

Note: Di dalam kode, Sheet3 adalah lembar kerja yang diproteksi berisi objek yang perlu Anda edit. Dan nomor "123" adalah kata sandi dari lembar yang diproteksi. Harap ubah sesuai kebutuhan Anda.

3. tekan F5 kunci untuk menjalankan kode, dan semua objek dalam lembar kerja yang dilindungi ini dapat segera diedit.


Terkait artikel:

Alat Produktivitas Kantor Terbaik

Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

tab kte 201905


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • 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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,
thanks for the helpful article. I tried the VBA Code method but it doesn't quite work for me.


My Code (sorry for formatting, couldn't copy&past it):


Sub Workbook_Open ()

Dim ws As Worksheet

For Each ws In Worksheets

ws.Protect UserInterfaceOnly:=True, Password:="123"

ws.Enable AutoFilter = True

ws.EnableOutlining = True

If ActiveSheet.Protection.AllowFormattingColumns = False Then

ActiveSheet.Protect AllowFormattingColumns:=True

End If

With Worksheets ("Sheet1")

.EnableOutlining = True

.EnableAutoFilter = True

.Protect Password:="123", _

Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True

End With

Next ws

End Sub


It works just fine but as soon as I'm saving, closing and reopening the file, I am either

- requested to insert the Password (like 5 times) immediately or

- able to remove the protection without any Password for one of the worksheets (usually "Sheet1" as in the Code)


Is somebody getting the same error as me? Or can somebody help me?


Thank you in advance.


BR

Vanessa
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations