Korunan Sayfada Grupları Açmak/Kapatmak

[smutluer]

Arkadaşlar merhaba;
Sayfa koruması açık olduğunda gruplandırma yapılan satır veya sütunlar açılıp kapatılamıyor. Bunu yapmanın bir yolu var mı?
Forumda bununla ilgili bişey bulamadım da...

 

[Ferhat Pazarçevirdi]

İnceleyiniz ...

Korumalı bir sayfada seviyelendirme çalışır mı ?

 

[smutluer]

hsayar tarafından hazırlanmış olan aşağıdaki kodları aynen kullandım fakat benim dosyada çalışmadı (sağ klik - menüde seviyelendirme çıkmıyor). Dosya adıyla bağlantılı olarak değiştirmem gereken bi yer de yok heralde. Ayrıca bu çalışma sadece sütunlarda yapılan seviyelendirme için satırlardaki seviyelendirmeler için kodlar ne olmalı? VBA'da çok iyi değilim üzgünüm



Dim cb As CommandBar

Sub gizle()
On Error Resume Next
ActiveSheet.Unprotect
Set myRange = Cells(1, ActiveCell.Column).CurrentRegion
lastcolumn = myRange.Columns.Count
If myRange.Columns(lastcolumn).ShowDetail Then
myRange.Columns(lastcolumn).ShowDetail = False
End If
ActiveSheet.Protect
End Sub

Sub goster()
On Error Resume Next
ActiveSheet.Unprotect
Set myRange = Cells(1, ActiveCell.Column).CurrentRegion
lastcolumn = myRange.Columns.Count
If myRange.Columns(lastcolumn).ShowDetail = False Then
myRange.Columns(lastcolumn).ShowDetail = True
End If
ActiveSheet.Protect
End Sub
Sub PopUpMenu()
Set cb = Application.CommandBars("Cell")

Set MenuObject = cb.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MenuObject.Caption = "Seviyelendirme"
MenuObject.BeginGroup = True
'
With MenuObject
With .Controls.Add(Type:=msoControlButton)
.OnAction = "gizle"
.FaceId = 462
.Caption = "gizle"
End With
With .Controls.Add(Type:=msoControlButton)
.OnAction = "goster"
.FaceId = 464
.Caption = "goster"
End With
End With
End Sub
Sub Auto_open()
PopUpMenu
End Sub

Sub Auto_Close()
Set cb = Application.CommandBars("Cell")
cb.Controls("Seviyelendirme").Delete
End Sub