Korumalı çalışma sayfasında satırları nasıl gruplandırabilir ve gruplandırmayı kaldırabiliriz?

Bildiğimiz gibi, korumalı bir çalışma sayfasında bazı işlemleri uygulamak için birçok kısıtlama bulunmaktadır. Örneğin, gruplanmış ve gruplanmamış veriler arasında geçiş yapamayız. Korumalı bir çalışma sayfasında satırları gruplandırma veya gruplandırmayı kaldırma yolu var mıdır?

VBA kodu ile korumalı çalışma sayfasında satırları gruplandırma ve gruplandırmayı kaldırma

VBA kodu ile korumalı çalışma sayfasında satırları gruplandırma ve gruplandırmayı kaldırma

Belki de bu sorunu çözmek için başka iyi bir yol yoktur, ancak VBA kodu kullanarak aşağıdaki adımları izleyebilirsiniz:

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

2. Ardından ALT + F11 tuşlarına basılı tutun ve Microsoft Visual Basic for Applications penceresi açılacaktır.

3. Ekle Insert > Module seçeneğine tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Korumalı çalışma sayfasında satırları gruplandırma ve gruplandırmayı kaldırma

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. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve size mevcut çalışma sayfasını korumak için şifre girmenizi hatırlatan bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakınız:

5. Ardından Tamam'a tıklayın, çalışma sayfanız koruma altına alınmış olacaktır, ancak bu korumalı çalışma sayfasında ana hat sembollerini genişletebilir ve daraltabilirsiniz, ekran görüntüsüne bakınız:

Not: Çalışma sayfanız zaten koruma altındaysa, bu kod çalışmayacaktır.