Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Beyin Fırtınası (http://www.excel.web.tr/forumdisplay.php?f=142)
-   -   Korumalı bir sayfada seviyelendirme çalışır mı ? (http://www.excel.web.tr/showthread.php?t=36231)

hamitcan 22-08-2007 20:25

Korumalı bir sayfada seviyelendirme çalışır mı ?
 
1 Eklenti(ler)
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 13-11-2007 12:13

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

hamitcan 13-11-2007 12:30

Neresini anlamadınız ?

hsayar 22-11-2007 15:04

Alıntı:

hamitcan tarafından gönderildi (Mesaj 194385)
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 22-11-2007 15:29

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

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 22-11-2007 16:10

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 22-11-2007 18:19

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.
Kod:

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 22-11-2007 18:24

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

hsayar 22-11-2007 18:36

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

hamitcan 23-11-2007 09:27

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.


Saat 18:40

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.