Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Beyin Fırtınası
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Beyin Fırtınası Bu başlıkta, ilginç olduğunu düşündüğünüz sorularınızı, bir problem şeklinde sorabilir, alternatif olduğunu düşündüğünüz çözümlerinizi paylaşabilirsiniz. (Bu başlıkta yeni konu açılması onaya bağlıdır.)
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 22-08-2007, 20:25   #1
hamitcan
Uzman
 
hamitcan kullanıcısının avatarı
 
Giriş: 01/07/2004
Mesaj: 7,052
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan Korumalı bir sayfada seviyelendirme çalışır mı ?

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.
Eklenmiş Dosyalar
Dosya Türü: rar seviyelendirme2.rar (8.8 KB, 89 Görüntülenme)
hamitcan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2007, 12:13   #2
tayfunalbuz
 
Giriş: 30/10/2007
Şehir: zonguldak, Karabük, Safranbolu
Mesaj: 85
Excel Vers. ve Dili:
excel2010 TR
Varsayılan

Problemin ne olduğunu anlayamadım doğrusu.
tayfunalbuz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2007, 12:30   #3
hamitcan
Uzman
 
hamitcan kullanıcısının avatarı
 
Giriş: 01/07/2004
Mesaj: 7,052
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Neresini anlamadınız ?
hamitcan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-11-2007, 15:04   #4
hsayar
 
hsayar kullanıcısının avatarı
 
Giriş: 02/03/2005
Şehir: İpsala/Edirne
Mesaj: 2,968
Excel Vers. ve Dili:
ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista
Varsayılan

Alıntı:
hamitcan tarafından gönderildi Mesajı Görüntüle
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
__________________
Felâket başa gelmeden evvel, onu önleyecek ve ona karşı savunulacak gerekleri düşünmek lâzımdır. Geldikten sonra dövünmenin faydası yoktur.[B]ATATÜRK[/B]

Türkler’den bahsediyorum. Düşmanına saldırırken amansız bir kasırgaya, korkunç bir denize ve insafsız bir yıldırıma benzeyen Türk; dost yanında ve silahsız düşman karşısında bir seher yelidir, berrak bir göldür. Gönül açan bu yeli yıldırmak, göz kamaştıran bu gölü coşkun bir denize çevirmek tabiatı da inciten bir gaflet olur.
[B]Tasso (İtalyan Şair)[/B]
hsayar Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-11-2007, 15:29   #5
hamitcan
Uzman
 
hamitcan kullanıcısının avatarı
 
Giriş: 01/07/2004
Mesaj: 7,052
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Sayın hsayar, kodları aşağıdakilerle değiştirip dener misiniz?
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
hamitcan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-11-2007, 16:10   #6
hsayar
 
hsayar kullanıcısının avatarı
 
Giriş: 02/03/2005
Şehir: İpsala/Edirne
Mesaj: 2,968
Excel Vers. ve Dili:
ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista
Varsayılan

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
__________________
Felâket başa gelmeden evvel, onu önleyecek ve ona karşı savunulacak gerekleri düşünmek lâzımdır. Geldikten sonra dövünmenin faydası yoktur.[B]ATATÜRK[/B]

Türkler’den bahsediyorum. Düşmanına saldırırken amansız bir kasırgaya, korkunç bir denize ve insafsız bir yıldırıma benzeyen Türk; dost yanında ve silahsız düşman karşısında bir seher yelidir, berrak bir göldür. Gönül açan bu yeli yıldırmak, göz kamaştıran bu gölü coşkun bir denize çevirmek tabiatı da inciten bir gaflet olur.
[B]Tasso (İtalyan Şair)[/B]
hsayar Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-11-2007, 18:19   #7
hsayar
 
hsayar kullanıcısının avatarı
 
Giriş: 02/03/2005
Şehir: İpsala/Edirne
Mesaj: 2,968
Excel Vers. ve Dili:
ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista
Varsayılan

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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
Felâket başa gelmeden evvel, onu önleyecek ve ona karşı savunulacak gerekleri düşünmek lâzımdır. Geldikten sonra dövünmenin faydası yoktur.[B]ATATÜRK[/B]

Türkler’den bahsediyorum. Düşmanına saldırırken amansız bir kasırgaya, korkunç bir denize ve insafsız bir yıldırıma benzeyen Türk; dost yanında ve silahsız düşman karşısında bir seher yelidir, berrak bir göldür. Gönül açan bu yeli yıldırmak, göz kamaştıran bu gölü coşkun bir denize çevirmek tabiatı da inciten bir gaflet olur.
[B]Tasso (İtalyan Şair)[/B]
hsayar Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-11-2007, 18:24   #8
hamitcan
Uzman
 
hamitcan kullanıcısının avatarı
 
Giriş: 01/07/2004
Mesaj: 7,052
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Düzelttiğim kod çalışmadı mı?
hamitcan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-11-2007, 18:36   #9
hsayar
 
hsayar kullanıcısının avatarı
 
Giriş: 02/03/2005
Şehir: İpsala/Edirne
Mesaj: 2,968
Excel Vers. ve Dili:
ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista
Varsayılan

hayır diğer eklediğim menüleride öldürdü.
ayrıca seviyelendirme olmayan sütunlarda hata veriyordu.
__________________
Felâket başa gelmeden evvel, onu önleyecek ve ona karşı savunulacak gerekleri düşünmek lâzımdır. Geldikten sonra dövünmenin faydası yoktur.[B]ATATÜRK[/B]

Türkler’den bahsediyorum. Düşmanına saldırırken amansız bir kasırgaya, korkunç bir denize ve insafsız bir yıldırıma benzeyen Türk; dost yanında ve silahsız düşman karşısında bir seher yelidir, berrak bir göldür. Gönül açan bu yeli yıldırmak, göz kamaştıran bu gölü coşkun bir denize çevirmek tabiatı da inciten bir gaflet olur.
[B]Tasso (İtalyan Şair)[/B]
hsayar Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-11-2007, 09:27   #10
hamitcan
Uzman
 
hamitcan kullanıcısının avatarı
 
Giriş: 01/07/2004
Mesaj: 7,052
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

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.
hamitcan Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 11:37


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden