Korumalı çalışma sayfasındaki satırlar nasıl gruplandırılır ve grubu çözülür?

Hepimizin bildiği gibi, korumalı bir çalışma sayfasında, bazı işlemleri uygulamamız için birçok sınırlama vardır. Örneğin, gruplanmış ve gruplanmamış veriler arasında geçiş yapamayız. Korumalı bir çalışma sayfasındaki satırları gruplamanın veya gruplandırmanın bir yolu var mı?

Korumalı bir çalışma sayfasındaki satırları VBA kodu ile gruplama ve grubu çözme

Korumalı bir çalışma sayfasındaki satırları VBA kodu ile gruplama ve grubu çözme

Belki de bu sorunu çözmenin başka iyi bir yolu yoktur, ancak bir VBA kodu kullanarak lütfen aşağıdaki işlemleri gerçekleştirin:

1. Kullanmak istediğiniz çalışma sayfanızı etkinleştirin, lütfen çalışma sayfasının henüz korunmadığından emin olun.

2. Sonra basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

3. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA kodu: Korumalı bir çalışma sayfasındaki satırları gruplama ve grubu çözme

Sub EnableOutlining()
'Updateby Extendoffice
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için bir anahtar ve geçerli çalışma sayfasını korumak için şifre girmenizi hatırlatan bir istem kutusu açılır. Ekran görüntüsüne bakın:

5. Sonra tıklayın OK, çalışma sayfanız korumalı, ancak bu korumalı çalışma sayfasındaki ana hat sembollerini genişletebilir ve daraltabilirsiniz, ekran görüntüsüne bakın:

not: Çalışma sayfanız zaten korunuyorsa, bu kod çalışmayacaktır.