Korumalı Sayfada Satır Gruplandırma Hk.

[emre311]

Merhaba;
Aşağıdaki kodlarla excel dosyasının açıldığında Sayfa Koruması olan ilk sayfada gruplandırma kullanabiliyorum fakat diğer sayfalara geçtiğimde kullanamıyorum . Bu kodu dosyanın açılışına değilde sayfanın açılışına yazabilirmiyiz? Şimdiden teşekkürler iyi çalışmalar.


Sub Workbook_Open()
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = "123456"
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub

 

[emre311]

Aşağıdaki gibi yazınca oldu teşekkürler.

Private Sub Worksheet_Activate()
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = "123456"
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub