Bagaimana cara agar tabel dapat diperluas dengan memasukkan baris tabel di lembar kerja terlindungi di Excel?
Fungsi perluasan otomatis tabel akan hilang setelah melindungi lembar kerja di Excel. Misalnya, ada tabel bernama Tabel1 di lembar kerja terproteksi Anda, saat Anda mengetik apa pun di bawah baris terakhir, tabel tidak akan secara otomatis diperluas untuk menyertakan baris baru. Apakah ada metode untuk menjaga tabel tetap dapat diperluas dengan memasukkan baris baru di lembar kerja yang diproteksi? Metode dalam artikel ini dapat membantu Anda mencapainya.
Buat tabel dapat diperluas dengan menyisipkan baris tabel di lembar kerja yang diproteksi dengan kode VBA
Seperti gambar di bawah ini yang ditampilkan, tabel bernama Tabel1 di lembar kerja Anda, dan kolom terakhir dari tabel adalah kolom rumus. Sekarang Anda perlu melindungi lembar kerja untuk mencegah kolom rumus berubah, tetapi memungkinkan untuk memperluas tabel dengan memasukkan baris baru dan menetapkan data baru ke dalam sel baru. Silakan lakukan sebagai berikut.
1. klik Pengembang > Menyisipkan > Tombol (Kontrol Formulir) untuk menyisipkan Kontrol Formulir tombol ke lembar kerja Anda.
2. Dalam bermunculan Tetapkan Makro kotak dialog, klik New .
3. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan salin dan tempel kode VBA di bawah ini di antara Sub dan End Sub paragraf di Kode jendela.
Kode VBA: Buat tabel tetap dapat diperluas dengan memasukkan baris tabel di lembar kerja yang diproteksi
'Update by ExtendOffice 20220826
Dim xRg, tableRg As Range
Dim xRowCount As Integer
Dim pswStr As String
pswStr = "123"
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=pswStr
Set tableRg = ActiveSheet.ListObjects("Table4").Range
xRowCount = tableRg.Rows.Count
Set xRg = Range("Table4[[#Headers],[Total]]").Offset(1, 0)
Set yRg = xRg.Resize(xRowCount, 1)
xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault
ActiveSheet.Protect Password:=pswStr, 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
Application.ScreenUpdating = True
Catatan:
4. tekan lain + Q untuk menutup jendela Microsoft Visual Basic for Applications.
5. Pilih sel dalam tabel yang ingin Anda tetapkan data baru kecuali kolom rumus, lalu tekan Ctrl + 1 kunci untuk membuka Format Cells kotak dialog. Dalam Format Cells kotak dialog, hapus centang Terkunci kotak, dan kemudian klik OK tombol. Lihat tangkapan layar:
6. Sekarang lindungi lembar kerja Anda dengan kata sandi yang telah Anda tentukan dalam kode VBA.
Mulai sekarang, setelah mengklik tombol Kontrol Formulir di lembar kerja terlindungi Anda, tabel akan dapat diperluas dengan memasukkan baris baru seperti gambar di bawah ini.
Note: Anda bisa mengubah tabel kecuali kolom rumus di lembar kerja yang diproteksi.
Terkait artikel:
- Bagaimana cara membuat pemotong Tabel Pivot bergerak dengan menggulir lembar kerja di Excel?
- Bagaimana cara menggabungkan sel dan mempertahankan pemformatan sel di Excel?
- Bagaimana cara menghapus duplikat tetapi menyimpan contoh pertama di Excel?
Alat Produktivitas Kantor Terbaik
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 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!