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

[hamitcan]

Arkadaşlar, birkaç gün önce bir arkadaşımın sorduğu bu soruya kendimce bir cevap buldum. Ama sizlerin çözümlerini de bekliyorum.

Yaptığım çözümün kısa açıklaması;

-Sayfayı koruma altına alın.
-Seviyelendirme yapılmış bir sütun üzerine gelin.
-Sağ klik yapın.
-Seviyelendirme seçeneklerinden birini seçin.

 

[tayfunalbuz]

Problemin ne olduğunu anlayamadım doğrusu.

 

[hamitcan]

Neresini anlamadınız ?

 

[hsayar]

Arkadaşlar, birkaç gün önce bir arkadaşımın sorduğu bu soruya kendimce bir cevap buldum. Ama sizlerin çözümlerini de bekliyorum.

Yaptığım çözümün kısa açıklaması;

-Sayfayı koruma altına alın.
-Seviyelendirme yapılmış bir sütun üzerine gelin.
-Sağ klik yapın.
-Seviyelendirme seçeneklerinden birini seçin.

hamitcan hocam
Aplication.commandbar("cell").Reset yerine ekleidğiniz menüleri kaldırmanız daha iyi olur çünkü diğer eklentilerdeki sağtuş menülerinide ölüdüryor. bu şekilde

benim işyerişndeki makine zaten evde eklediğim sağ tuşları göstermiyor.. birde resetlewnince iyice kafası karışıyor

 

[hamitcan]

Sayın hsayar, kodları aşağıdakilerle değiştirip dener misiniz?

Dim cb As CommandBar

Sub gizle()
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()
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()
'    Application.CommandBars("Cell").Reset
    Application.CommandBars(cb.Name).Reset
End Sub

 

[hsayar]

hocam işyerindeki maki,ne tam bir kıl yine göstermiyor her nedense evde bakarım ama bencede en mantıklı çözüm önce şifreyi açmak

 

[hsayar]

hocam evdeyim mevcut sağ tuş menüsünü öldürmeyen kodlar aşağıdaki gibi olacak
Ayrıca seviyelendirme olmayan sütunda hata vermeside engellendi.

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

 

[hamitcan]

Düzelttiğim kod çalışmadı mı?

 

[hsayar]

hayır diğer eklediğim menüleride öldürdü.
ayrıca seviyelendirme olmayan sütunlarda hata veriyordu.

 

[hamitcan]

Seviyelendirme olmayan sütunlarda verdiği hata normal ama diğer hata için dosyanızı görmeden birşey söyleyemeyeceğim.Çünkü ben de normal çalışıyor.

 

[Baggwell]

Arkadaşlar, birkaç gün önce bir arkadaşımın sorduğu bu soruya kendimce bir cevap buldum. Ama sizlerin çözümlerini de bekliyorum.

Yaptığım çözümün kısa açıklaması;

-Sayfayı koruma altına alın.
-Seviyelendirme yapılmış bir sütun üzerine gelin.
-Sağ klik yapın.
-Seviyelendirme seçeneklerinden birini seçin.

Bu düşünce çok güzel,

Emeğinize sağlık sayfada çalışıyor, sağ tuş menüsünde herhangi pasif bir menü yok

Ama bu modülü kendi dosyama kopyaladım, sağ tuş menüsünde seviyelendirme çıkmadı ?

 

[hamitcan]

Ya makroları etkinleştirmemiş olabilirsiniz yada versiyon farkı olabilir.

 

[assenucler]

Windows 7 ve Office 2010 TR kullanıyorum.


Sayın hamitcan üstadım, ilk iletinizde yazdığınız tüm işlevler sağ tuş yaptığımda çalışıyor.

Emek ve paylaşımınız için teşekkürler.

Sevgi ve saygılar.