Loncat ke daftar isi utama
Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara mengunci atau membekukan tab lembar kerja di Excel?

Misalkan Anda memiliki buku kerja yang berisi beberapa lembar kerja, ada lembar kerja bernama Main-sheet sebagai tab pertama di buku kerja. Dan sekarang, Anda ingin mencoba mengunci atau membekukan tab lembar ini agar selalu terlihat bahkan saat menggulir di sejumlah lembar kerja. Sebenarnya, tidak ada cara langsung untuk membekukan tab, tetapi Anda dapat menggunakan solusi untuk mengatasi masalah ini.

Kunci atau bekukan tab lembar kerja tertentu dengan kode VBA


panah gelembung kanan biru Kunci atau bekukan tab lembar kerja tertentu dengan kode VBA

Di Excel, kami dapat menerapkan kode VBA berikut untuk membuat lembar kerja tertentu selalu sebelum tab lembar kerja yang Anda klik saat ini, sehingga Anda selalu dapat melihat lembar kerja ini saat Anda menggulir tab lembar lainnya. Harap lakukan sebagai berikut:

1. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic for Applications.

2. Lalu pilih Buku Kerja Ini dari kiri Penjelajah Proyek panel, klik dua kali untuk membuka Modul, lalu salin dan tempel kode VBA berikut ke dalam modul kosong:

Kode VBA: Membekukan atau mengunci tab lembar kerja tertentu

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Update by Extendoffice
Application.EnableEvents = False
Application.ScreenUpdating = False
If Application.ActiveSheet.Index <> Application.Sheets("Main-sheet").Index Then
    Application.Sheets("Main-sheet").Move Before:=Application.Sheets(Application.ActiveSheet.Index)
    Application.Sheets("Main-sheet").Activate
    Sh.Activate
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

doc-freeze-sheet-tab-1

3. Dan kemudian simpan dan tutup kode ini, sekarang, ketika Anda mengklik salah satu tab lembar kerja Anda, lembar kerja khusus ini akan selalu berada di depan tab lembar yang Anda klik, lihat tangkapan layar:

doc-freeze-sheet-tab-2
-1
doc-freeze-sheet-tab-3

Note: Pada kode di atas, Main-sheet adalah nama sheet yang ingin Anda bekukan, Anda dapat mengubahnya sesuai kebutuhan Anda.


Artikel terkait:

Bagaimana cara Membekukan Panel di Excel 2010?

Bagaimana cara menerapkan panel freeze / unfreeze ke beberapa lembar kerja sekaligus?


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • 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 tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... 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 ...
  • 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...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
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!
officetab bawah
Urutkan komentar berdasarkan
komentar (10)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Ketika saya menggunakan VBA, saya tidak dapat menyalin data dari Main-Sheet ke lembar lain Tolong bantu saya memperbaiki bug ini
Komentar ini diminimalkan oleh moderator di situs
ha ha ha. benar sekali! apakah Anda menemukan perbaikan untuk ini?
Komentar ini diminimalkan oleh moderator di situs
Tidak dapat membuat kode Anda berfungsi, tetapi yang ini berhasil :) Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim sc As Long ' count of sheets Dim NewPos As Long ' index of serlected sheet Application.EnableEvents = False Application.ScreenUpdating = False Jika ActiveSheet.Index 1 Kemudian sc = Sheets.Count NewPos = ActiveSheet.Index For i = 2 To NewPos - 1 Sheets(2).Move After:=Sheets(sc) Next i Sheets(1).Activate Sheets(2). Activate End If Application.ScreenUpdating = True Application.EnableEvents = True End Sub
Komentar ini diminimalkan oleh moderator di situs
Apakah mungkin untuk membuat satu dengan banyak argumen? Seperti alih-alih hanya memindahkan satu lembar utama ke depan tempat Anda bekerja, apakah mungkin memindahkan tiga tab di depan apa yang sedang Anda kerjakan?
Komentar ini diminimalkan oleh moderator di situs
Ya, itu mungkin, Anda hanya perlu menambahkan lebih banyak argumen ke klausa if menggunakan "DAN" seperti ini IF Application.ActiveSheet.Index Application.Sheets("Main-sheet").Index AND Application.ActiveSheet.Index Application. Sheets("Other-Main-sheet").Index dan seterusnya... Kemudian Application.Sheets("Main-sheet").Move Before:=Application.Sheets(Application.Sheets("Other-Main-sheet") .Index) Application.Sheets("Main-sheet").Aktifkan Application.Sheets("Other-Main-sheet").Pindah Sebelum:=Application.Sheets(Application.ActiveSheet.Index) Application.Sheets("Other-Main -sheet").Activate Sh.Activate Ini akan menempatkan Main-Sheet, lalu Other-Main-Sheet di depan sheet aktif Anda.
Komentar ini diminimalkan oleh moderator di situs
apakah ini vba lembar excel saya tidak membeku tolong beri saya solusi
Komentar ini diminimalkan oleh moderator di situs
Kode ini bekerja dengan baik. Satu-satunya masalah adalah ... jika kita menutup file & membukanya lagi, itu akan mati.
Komentar ini diminimalkan oleh moderator di situs
[quote]Kode ini bekerja dengan baik. Satu-satunya masalah adalah ... jika kita menutup file & membukanya lagi, itu akan mati.Oleh Sangs[/quote] Coba simpan dokumen sebagai Buku Kerja Berkemampuan Makro. Saya pikir itu harus bekerja dengan baik seperti itu.
Komentar ini diminimalkan oleh moderator di situs
Seperti yang ditunjukkan Thuyen 2 tahun lalu, Anda tidak dapat menyalin data antar lembar saat kode ini aktif. Selain itu, kodenya tidak perlu rumit. Lembar yang Anda aktifkan diteruskan ke prosedur sebagai parameter "Sh". Ini membuat panggilan yang sering ke "ActiveSheet" tidak diperlukan, dan dapat menyebabkan masalah bagi seseorang yang mencoba mengubah kode tetapi tidak terlalu berpengalaman.

Inilah versi saya yang memperbaiki masalah itu, dan bahkan menunjukkan cara menambahkan lembar "Utama" ke-2 (mirip dengan apa yang diposting Dzingai):
-------------------------------------------------- ---------------

'2 baris ini tidak diperlukan jika Anda menggunakan nama kode sheet', yang saya rekomendasikan.
Setel shtMain1 = Lembar Kerja("Lembar Utama-1")
Setel shtMain2 = Lembar Kerja("Lembar Utama-2")

Jika Application.CutCopyMode = False Maka
Jika Sh.Index <> shtMain1.Index Dan Sh.Index <> shtMain2.Index Kemudian
shtMain1.Pindahkan sebelum:=Sh
shtMain2.Pindahkan sebelum:=Sh
Sh.Aktifkan
End If
End If
Komentar ini diminimalkan oleh moderator di situs
chăng c gi cả
Belum ada komentar yang diposting di sini