Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara mengelompokkan dan memisahkan baris di lembar kerja yang diproteksi?

Seperti yang kita semua ketahui, dalam lembar kerja yang dilindungi, ada banyak batasan bagi kita untuk menerapkan beberapa operasi. Misalnya, kami tidak dapat beralih antara data yang dikelompokkan dan tidak dikelompokkan. Apakah ada cara untuk mengelompokkan atau memisahkan baris dalam lembar kerja yang diproteksi?

Kelompokkan dan pisahkan baris dalam lembar kerja yang diproteksi dengan kode VBA

Tab Office Mengaktifkan Pengeditan dan Penjelajahan Tab di Office, dan Jadikan Pekerjaan Anda Lebih Mudah ...
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
  • Gunakan Kembali Apa Pun: Tambahkan rumus, bagan, dan hal lain yang paling sering digunakan atau rumit ke favorit Anda, dan gunakan kembali dengan cepat di masa mendatang.
  • Lebih dari 20 fitur teks: Ekstrak Nomor dari String Teks; Ekstrak atau Hapus Bagian dari Teks; Ubah Angka dan Mata Uang ke Kata Bahasa Inggris.
  • Gabungkan Alat: Beberapa Buku Kerja dan Lembar menjadi Satu; Gabungkan Beberapa Sel / Baris / Kolom Tanpa Kehilangan Data; Gabungkan Baris dan Jumlah Duplikat.
  • Alat Pisah: Membagi Data Menjadi Beberapa Lembar Berdasarkan Nilai; Satu Buku Kerja ke Beberapa File Excel, PDF atau CSV; Satu Kolom ke Beberapa Kolom.
  • Tempel Melewati Baris Tersembunyi / Difilter; Hitung Dan Jumlah dengan Warna Latar Belakang; Kirim Email Hasil Personalisasi ke Beberapa Penerima secara Massal.
  • Filter Super: Buat skema filter tingkat lanjut dan terapkan ke setiap lembar; Jenis menurut minggu, hari, frekuensi, dan lainnya; SARING dengan tebal, rumus, komentar ...
  • Lebih dari 300 fitur canggih; Bekerja dengan Office 2007-2021 dan 365; Mendukung semua bahasa; Penerapan yang mudah di perusahaan atau organisasi Anda.

panah gelembung kanan biru Kelompokkan dan pisahkan baris dalam lembar kerja yang diproteksi dengan kode VBA

Mungkin, tidak ada cara lain yang baik untuk mengatasi masalah ini selain menggunakan kode VBA, lakukan hal berikut:

1. Aktifkan lembar kerja yang ingin Anda gunakan, harap pastikan lembar kerja tersebut belum terlindungi.

2. Kemudian tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic for Applications.

3. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: Mengelompokkan dan memisahkan baris dalam lembar kerja yang diproteksi

Sub EnableOutlining()
'Update 20140603
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub

4. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda memasukkan kata sandi untuk melindungi lembar kerja saat ini. Lihat tangkapan layar:

doc-group-in-protected-sheet1

5. Lalu klik OK, lembar kerja Anda telah dilindungi, tetapi Anda dapat memperluas dan mengontrak simbol garis besar di lembar kerja yang dilindungi ini, lihat tangkapan layar:

doc-group-in-protected-sheet1

Note: Jika lembar kerja Anda sudah diproteksi, kode ini tidak akan berfungsi.


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 (32)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Ini tampaknya berfungsi dengan baik, tetapi ketika saya menutup dan membuka kembali buku kerja, saya mengalami masalah yang sama - saya tidak dapat memperluas grup yang diciutkan.
Komentar ini diminimalkan oleh moderator di situs
ane ngalamin hal yang sama gan, ada yg tau cara ngatasinnya. Terimakasih banyak
Komentar ini diminimalkan oleh moderator di situs
Anda memerlukan VBA untuk ini, dan pengguna akhir harus mengizinkan makro agar ini berfungsi.

Tekan Alt+F11 untuk mengaktifkan Editor Visual Basic.

Klik dua kali Buku Kerja Ini, di bawah Objek Microsoft Excel di penjelajah proyek di sisi kiri.

Salin kode berikut ke dalam modul yang muncul:



Sub Workbook_Open Pribadi ()
Dengan Lembar Kerja("Ringkasan Emp")
.EnableOutlining = Benar
.Lindungi UserInterfaceOnly:=Benar
Berakhir dengan
End Sub



Kode ini akan dijalankan secara otomatis setiap kali buku kerja dibuka.
Komentar ini diminimalkan oleh moderator di situs
[quote]Ini tampaknya berfungsi dengan baik, tetapi ketika saya menutup dan membuka kembali buku kerja, saya mengalami masalah yang sama - saya tidak dapat memperluas grup yang diciutkan.Oleh mayich[/quote]Hal ini diselesaikan sebagai di bawah Private Sub Workbook_Open() Dim wsh Sebagai Varian Untuk Setiap wsh Dalam Worksheets(Array("Sheet1", "Sheet2")) wsh.EnableOutlining = True wsh.Protect Password:="260615" , DrawingObjects:=False, _ isi:=Benar, _ Skenario:=Benar, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub
Komentar ini diminimalkan oleh moderator di situs
Saya mendapat masalah yang sama, segera setelah saya menutup dan memasukkan kembali lembar, itu tidak berfungsi ... tolong beri langkah demi langkah di mana dan bagaimana menggunakan Masalah itu diselesaikan seperti di bawah Private Sub Workbook_Open() Dim wsh As Varian Untuk Setiap wsh Dalam Worksheets(Arra y("Sheet1", "Sheet2")) wsh.EnableOutli ning = True wsh.Protect Password:="2606 15", DrawingObjects: =False, _ isi:=True, _ Skenario: =Benar, _ AllowFiltering:=Benar, _ AllowFormattingCells:=Benar, _ userinterfaceonly:=Benar Berikutnya wsh End Sub
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak bro ini berfungsi dengan sangat baik. Terima kasih banyak
Komentar ini diminimalkan oleh moderator di situs
Bagaimana Anda membuat ini berhasil? Saya sudah mencoba menambahkannya ke VBA di atas dan membuat modul yang berbeda tetapi masih tidak berhasil. Apakah saya perlu mengubah salah satu kode? seperti kata sandi yang saya gunakan atau apakah saya perlu mengubah nama lembar?
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki masalah yang sama ketika saya menutup buku kerja. Ada ide untuk memperbaikinya?
Komentar ini diminimalkan oleh moderator di situs
Private Sub Workbook_Open() Dim wsh Sebagai Varian Untuk Setiap wsh Dalam Worksheets(Array("TD_ phase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ isi: =Benar, _ Skenario:=Benar, _ AllowFiltering:=Benar, _ AllowFormattingCells:=Benar, _ userinterfaceonly:=Benar Berikutnya wsh End Sub
Komentar ini diminimalkan oleh moderator di situs
Masih tidak yakin bagaimana ini bekerja. Apakah saya membuat modul baru atau melampirkan yang di atas?
Komentar ini diminimalkan oleh moderator di situs
Bisakah Anda melakukan langkah demi langkah berjalan melalui ke mana harus meletakkan ini seperti yang mereka lakukan dalam instruksi aslinya. Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Halo! Saya menggunakan makro pertama dengan sukses dan kemudian memiliki masalah yang sama untuk menutup buku kerja dan makro tidak lagi berfungsi. Saya melihat solusi di atas tetapi tidak dapat membuatnya berfungsi sama sekali. Maukah Anda melangkahi saya? Apakah saya menggabungkan kedua kode atau hanya menggunakan yang terakhir? Jika kata sandi saya adalah "anjing", apakah saya mengganti salah satu nilai dalam kode? Saya hanya melamar ke satu lembar kerja ("Sheet1"); apakah saya menggunakannya di mana saja? Banyak terima kasih sebelumnya!!
Komentar ini diminimalkan oleh moderator di situs
Tolong bantu saya, saya ingin menciutkan dan memperluas beberapa gulungan dan kolom dalam spreadsheet excel yang dilindungi. Bagaimana saya bisa menggunakan makro untuk melakukan ini? Saya telah mencoba apa yang Anda tunjukkan tetapi tidak berfungsi di spreadsheet saya. Tolong bantu.
Komentar ini diminimalkan oleh moderator di situs
Halo, tolong bantu saya memperluas dan menciutkan gulungan dan kolom di spreadsheet excel yang dilindungi. Saya mencoba menggunakan yang Anda tunjukkan di atas tetapi tidak berhasil.
Komentar ini diminimalkan oleh moderator di situs
Apakah sudah ditanyakan/dijawab? Di mana dalam kode Anda dapat menentukan / mengubah kata sandi pribadi?
Komentar ini diminimalkan oleh moderator di situs
Bagaimana saya bisa mengubah kata sandi ke nilai lain?
Komentar ini diminimalkan oleh moderator di situs
Ketika saya menggunakan perintah, saya melihat pesan kesalahan seperti yang ditunjukkan di bawah ini:
Sub Workbook_Open Pribadi ()
Dim wsh Sebagai Varian
Untuk Setiap wsh Dalam Lembar Kerja(Array("TD_ phase_3", "RS_Phase_2"))
wsh.EnableOutlining = Benar
wsh.Protect Password:="260615", DrawingObjects:=False, _
isi:=Benar, _
Skenario:=Benar, _
AllowFiltering:=Benar, _
AllowFormattingCells:=Benar, _
userinterfaceonly:=Benar
selanjutnya
End Sub
Jalankan kesalahan waktu '9':
Subskrip di luar rentang
Komentar ini diminimalkan oleh moderator di situs
ini berfungsi sebentar, setelah Anda menutup dan membuka kembali, itu berhenti :(
Komentar ini diminimalkan oleh moderator di situs
Bahkan untuk saya , Apakah ada solusi lain ?
Komentar ini diminimalkan oleh moderator di situs
Sub Buku Kerja_Buka()
'Perbarui 20140603
Redupkan xWs Sebagai Lembar Kerja
Setel xWs = Application.ActiveSheet
Redupkan xPws Sebagai String
xPws = "rfc" ''Application.InputBox("Password:", xTitleId, "", Ketik:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=Benar
xWs.EnableOutlining = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Saya telah membuat kode ini berfungsi. Tetapi ketika saya menutup dan membuka kembali saya harus pergi ke tab pengembang, pilih tombol makro, pilih jalankan dan masukkan kata sandi.

Apakah ada cara untuk menghapus kata sandi dari kode ATAU kode auto run yang secara otomatis menjalankan marco ini dan memasukkan kata sandi?
Komentar ini diminimalkan oleh moderator di situs
Untuk memperbaiki masalah ini tidak berfungsi di file Anda setelah Anda menutupnya dan membukanya lagi, Anda harus menempelkan kode VBA di "Buku Kerja Ini" di bawah Objek Microsoft Excel alih-alih modul baru. Ini kemudian akan secara otomatis menjalankan makro setiap kali file dibuka.
Komentar ini diminimalkan oleh moderator di situs
apakah Anda memiliki visual untuk Kode VBA yang dibahas 6 hari yang lalu ke peachyclean tentang ThisWorkbook di bawah Microsoft Objects alih-alih modul baru. Fungsionalitasnya hilang ketika saya kembali ke buku kerja saya
Komentar ini diminimalkan oleh moderator di situs
Seseorang mungkin membutuhkan ini, saya pikir saya menemukan cara untuk membuat ini bekerja.

Pertama, kode Anda harus ditulis dalam "Buku Kerja Ini" di bawah Objek Microsoft Excel, seperti yang disarankan @peachyclean.
Kedua, ambil kode yang ditulis @Sravanthi, dan rekatkan ke lokasi yang disebutkan di atas.

Sub Buku Kerja_Buka()
'Perbarui 20140603
Redupkan xWs Sebagai Lembar Kerja
Setel xWs = Application.ActiveSheet
Redupkan xPws Sebagai String
xPws = "rfc" ''Application.InputBox("Password:", xTitleId, "", Ketik:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=Benar
xWs.EnableOutlining = Benar
End Sub

Masalahnya adalah Anda harus berada di lembar yang ingin Anda lindungi tetapi mengizinkan menggunakan pengelompokan, dan menyimpan buku kerja dan menutup, tanpa melindungi. Sekarang jika Anda membukanya, makro dimulai secara otomatis, itu akan membuat lembar dilindungi dengan kata sandi "rfc". Sekarang Anda dapat menggunakan pengelompokan, lembar dilindungi.

Untuk solusi saya, saya telah memodifikasi kata sandi yang diterapkan, sehingga Anda dapat menulis ulang kata sandi apa pun DI SINI:
xPws = "WRITEANYPASSWORDHERE" ''Application.InputBox("Password:", xTitleId, "", Ketik:=2)

Selain itu, saya tidak ingin lembar yang akan dilindungi aktif saat membuka file, oleh karena itu saya telah memodifikasi bagian ini:
Setel xWs = Application.ActiveSheet ->
Setel xWs = Application.Worksheets("WRITEANYSHEET'SNAMEHERE")

Sekarang berfungsi seperti pesona, lembar bernama 'WRITEANYSHEET'SNAMEHERE' dilindungi tetapi pengelompokannya berlaku. Dalam jangka panjang, saya pikir masalahnya adalah jika saya ingin memodifikasi file ini dan menyimpan solusinya, saya perlu membuka proteksi lembar ini untuk membuatnya berfungsi pada pembukaan berikutnya. Saya kira Anda dapat menulis makro lain untuk secara otomatis membuka proteksi saat menutup :)


Saya harap itu membantu.
Komentar ini diminimalkan oleh moderator di situs
Hii .. ini bekerja dengan sangat baik. satu-satunya tempat saya terjebak sekarang adalah saya perlu melakukan ini untuk beberapa lembar di buku kerja. dapatkah Anda membantu dengan itu.
Komentar ini diminimalkan oleh moderator di situs
String ini tampaknya persis seperti yang saya butuhkan, karena saya tidak tahu apa-apa tentang VBA. Saya bisa membuat ini berfungsi pada awalnya tetapi seperti yang ditunjukkan, setelah Anda menutup spreadsheet dan membukanya kembali, itu tidak lagi berfungsi. Saya mencoba menulis kode di "Buku Kerja Ini" seperti yang disebutkan tetapi saya tidak tahu bagaimana melakukannya. Saya dapat melihat "Buku Kerja Ini" tetapi saya tidak tahu cara menulis di dalamnya. Setiap cara yang saya lihat untuk membuat modul, itu membuat modul baru di folder "Modul" yang terpisah, di luar folder "Microsoft Excel Objects". Adakah saran tentang cara memasukkan kode ini ke "Buku Kerja Ini"?
Komentar ini diminimalkan oleh moderator di situs
hebat
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara mengelompokkan dan memisahkan baris dan kolom di lembar kerja yang dilindungi?
Komentar ini diminimalkan oleh moderator di situs
f * ck, ini mencuri excel saya nanti dan mengubah kata sandi secara pribadi
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara agar ini berfungsi di buku kerja bersama? - Saya perlu perubahan trek, Terima kasih
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL