Sag Menu Gozukmesin

[wortex]

Excelde Workbook_SheetBeforeRightClick olayina kendi olusturdugum menuyu gostertiyorum. Ancak kendi olusturdugum menuye tiklayinca excelin kendi sag menusu cikiyor. SendKeys "{ESC}" ile bu menuyu yok ediyorum ama bu pek stabil bir cozum olmadi , hizli kullanimlarda sorun yaratiyor. Bunu engellemenin yolu var mi ? (Eminim vardir)

 

[Zeki Gürsoy]

Kodun başına

Cancel = True

ekleyin.

 

[wortex]

Olmuyor, ShowPopup komotundan once yazdim ama ise yaramiyor, acaba kodu XLA eklentisinden calistirdigim icin olabilirmi Kodu asagida veriyorum

Private Sub wrbk_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo 55
For I = 0 To Target.Column - 1
If Target.Offset(0, -I) Like "*rr11*" Then
PopUp_Göster
Exit Sub
End If
Next I
55
End Sub

Sub PopUp_Göster()
Cancel = True
BarAdý = "rr11"
Set m = Application.CommandBars(BarAd&#253
m.ShowPopup

End Sub

 

[hsayar]

kesinlikle ondan clas module girmiş işiniz
http://www.excel.web.tr/showthread.php?t=40591&highlight=class+module+eklenti
http://www.excel.web.tr/showthread.php?t=2287&highlight=class+module+eklenti
http://www.excel.web.tr/showthread.php?t=27341&highlight=class+module

bir bakın

 

[Muzaffer Ali]

Aşağıdaki şekilde deneyiniz
Cancel = True _SheetBeforeRightClick prosedürü içerisinde olmalıdır.

Private Sub wrbk_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
if Target.Column =0 then exit sub
For I = 0 To Target.Column - 1
If Target.Offset(0, -I) Like "*rr11*" Then
PopUp_Göster
Exit Sub
End If
Next I
End Sub

Sub PopUp_Göster()
BarAdý = "rr11"
Set m = Application.CommandBars(BarAd&#305
m.ShowPopup
End Sub

 

[wortex]

Sag menuyu geri getiremiyorum

Arkadaslar dedikleriniz uzerine bir seyler yaptim. Bu sefer sag menuyu hic bir dosyada gozukmuyor. Eklentiyi kaldirsam da gozukmuyor yuklesemde gozukmuyor. Bu classi kullanmak istedigim dosyada sag menu gozukuyor ama baska hic bir dosyada sag menu gozukmuyor ( eski veya yeni olusturmus oldugum bir dosya farketmiyor ) sastim kaldim. Kodlari tek tek kontrol ettim hic bir yerde birsey gozukmuyor. Her exceli actigimda Application.CommandBars("Cell").Enabled = True kodunu yazip calistirmak zorunda kaliyorum.

Eklenti de yazdigim kodlar soyle

Class1 /

Public WithEvents wrbk As Application
Private Sub wrbk_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo 55
For I = 0 To Target.Column - 1
If Target.Offset(0, -I) Like "*aa*" Then
PopUp_Göster
Exit Sub
End If
Next I
55
End Sub


Module 1/

Dim wrbk() As New Class1
Sub auto_open()
ReDim Preserve wrbk(1)
Set wrbk(1).wrbk = Excel.Application
End Sub

Sub PopUp_Göster()
Cancel = True
BarAdý = "bb"
Set m = Application.CommandBars(BarAdý)
m.ShowPopup
SendKeys "{ESC}"
End Sub

 

[hsayar]

eğer menünüz sadece bir kitapta çalışacaksa

'/////////////////////////////THISWORKBOOK\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Private Sub Workbook_Activate()
    'kitap çalıştığında ve Aktive edildiğine işlemler gerçekleşir
    Call OzelmenuKaldır
    Call Ozelmenuekle
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Auto closeden farkı ne anlamadım
    On Error Resume Next
    Call OzelmenuKaldır
End Sub
Private Sub Workbook_Deactivate()
'Bu kitaptan başka kitaba geçince yani DeAktive edildiğine işlemler gerçekleşir
    On Error Resume Next
    Call OzelmenuKaldır
End Sub

Sub Workbook_Close()
'*Kapanışta Makro çağır
    Call OzelmenuKaldır
End Sub

benim kullandığım yöntem bu.... tabi forumdan öğrendim.

Yok eğer tüm kitaplarda sağ menüyü yok edecekseniz hangisini....
Cells, ply, row, column vs. vs.

 

[wortex]

Su an o konuyu pas gectim, cunku Excelim de norma sag menum gitti onu nasil getirecegim derdim o. Bunu cozemezsem excelimi rahat kullanamiyorum

 

[Levent Menteşoğlu]

Su an o konuyu pas gectim, cunku Excelim de norma sag menum gitti onu nasil getirecegim derdim o. Bunu cozemezsem excelimi rahat kullanamiyorum

Aşağıdaki kodu çalıştırın.

Application.CommandBars("Cell").Reset

 

[wortex]

leventm tesekkur ederim, artik sag menum geri geldi, peki bu konuyu acmamin sebebi olan sag menuyu sadece benim istedigim ozel menuyu gosterecegi zaman gizlemesini nasil sagliyabilirim. Yukarda yazdigim ornekle bu isi cozemedim Application.CommandBars("Cell").Enabled = True / False ile de bir seyler yapmaya calistim ama olmadi malesef. Sanirim bir yerlerde bir seyleri kotu karistirdim
Genel olarak amascim herhangi bir dosyada herhangi bir sayfada sag tiklanana hucre istenilen sartlara uygunsa daha onceden olusturdugum menu gosterilecek ve excel "cell" menusu gozukmuyecek. Eger sag tiklanan hucre istedigim sartlari saglamiyorsa normal excel "cell" menusu acilacak.

Benim yukarda verdigim kodlarla benim ozel menum tiklandiktan sonra excel "cell" menusu gozukuyor sendkeys esc ile tekrar kaldiririyorum am ben hic gozukmesin istiyorum.

 

[Levent Menteşoğlu]

Eğer sağ-klik menüyü gizler veya pasif duruma getirirseniz, bu menüye kendi eklediğiniz alt menülerinde devre dışı kalmasına neden olursunuz. Bu sebeple aşağıdaki gibi menüyü aktif bırakan ama içini boşaltan bir kodlama kullanmak gerekir.

For a = Application.CommandBars("Cell").Controls.Count To 1 Step -1
Application.CommandBars("Cell").Controls(a).Delete
Next

 

[wortex]

bir yanlis anlama olmasin, ben cell menusune bir sey eklemiyorum baska bir modulle olusturdugum bb isimli bir menum var . bb.showpopup kullanarak kendi olusturdugum menuyu gosteriyorum.

 

[Haluk]

Örnek olarak, eğer hücrenin dolgu rengi kırmızı ise bu hücre seçili iken üzerinde sağ klik yapldığında Excel'in standart "Cell" menüsü değil, sayfa sekmeleri menüsü görüntülenir.

Bunun için, aşağıdaki kodu ilgili sayfanın kod modülüne yerleştirmek gerekir;

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If ActiveCell.Interior.ColorIndex = 3 Then
        CommandBars("Workbook Tabs").ShowPopup
        Cancel = True
    End If
End Sub

 

[wortex]

Simdi oldu ben cancel=true satirini popupgoster subina yaziyordum. Oysa Worksheet_BeforeRightClick subina yazmak gerekiyormus. Dikkatsizlik iste. Bu konuya ilgi gosteren herkese cok tesekkurler