menü yok etme

[bedersu]

sayın fox,

Olmadı dan kastınız nedir?Dosya-düzen menüleri geri gelmedi mi?Þu kodları ThisWorkbook kısmına yazıp çalıştırın.Olması lazım.Yoksa başka bir yerde yanlış yapıyor olmalısınız.

Private Sub Workbook_Deactivate()
MenuBars(xlWorksheet).Reset
End Sub

Bu kodları ayrı bir module içine yerleştirip çalıştırınca da olur.

MenuBars(xlWorksheet).Reset

 

[recep]

deli kuyuya bir taş atmış kırk akıllı onu çıkaramamış derler ama o taşı atan ben soırunumu daqha doğrusu istedigim şeyi gerçekleştirdim.
dosya dışındakiler siliniyor ve digerlerinin yerlerine bilgi girişi öğrenci işleri vs.vs geliyor ve alt menü altında alt memü bile yapabildim. herkese teşekkür. 3 gündür bilgisayarın basındayım.neredeyse ustalaştım bu menü işinde teşekkür arkadaşlar.

 

[bedersu]

:bravo:

 

[fox]

Olmadı dan kastınız nedir?Dosya-düzen menüleri geri gelmedi mi?Þu kodları ThisWorkbook kısmına yazıp çalıştırın.Olması lazım.Yoksa başka bir yerde yanlış yapıyor olmalısınız.

sayın bedersu bi kaç gündür şehir dışındaydım mesajınızı yeni gördüm.
evet dosya düzen menüleri geri gelmiyor. sizin verdiğiniz kodları yazıncada gelmedi.
ofisi tekrar yükledim yine olmadı.

 

[bedersu]

Allah Allah.Normalde olması lazım.Tam olarak ne yaptığınız kodlarıyla beraber anlatır mısınz?

 

[ozarslan]

arkadaşlar excel çalışöma sayfasının üstünde her zaman çıkan dosya düzen vs menüleri olam araç çıbuğunu kaldırmanın bir yolu varmı. ben kendi menümü oluşturup o menüyü kullanmak istiyorum ama onu bir türlü kaldıramadım. sadace 1 çalışmam şçin lazım. normalde yerinde olsun ama çalışmamı açtiğimda kaybolsun

Aşağıdaki kodları yazarsan tüm sayfalardan tüm menüler kabolur.
Sub Autpen()
a = MenuBars(xlWorksheet).Menus.Count
For i = a To 1 Step -1
MenuBars(xlWorksheet).Menus(i).Delete
Next

Sheets("Bilgi").Select
Range("a1").Select
On Error Resume Next
End Sub

Sub auto_close()
MenuBars(xlWorksheet).Reset
End Sub

 

[ozarslan]

özür açıklama gereği duydum "Bilgi" Yazan yere Sayfa1 veya adı değiştirmişsen o adı yazabilirsin

 

[uur]

(sanırım ben yanlış anladım ama ) ya bunu makroyla yapmaya ne gerek var boş bi yeri sağ tıklayıp menulerin tamamını oradan kaldırır sonra özelleştir deyip kendi menusunu yaratabilir.

 

[spilavci]

acaba şöyle olabilirmi?

araçlar-->özelleştir-->yeni menü

ekteki örneği inceleyin

 

[ocamsul]

sayfayı kapatırken bu mesaj çıkıyo arkadaşlar. nedeni nedir acaba?

 

[ocamsul]

Buna eklentilerin neden olduğu belirtiliyo; ancak doğaldırki excel de eklentiler mutlaka olacaktır. Bunun çözümü yokmuki arkadaşlar?

 

[cems]

Sayın Bedersu

Konunun uzerinden baya baya zaman gecmis olsa da , burdaki orneginiz gercek anlamda , yaptıgım programda personelin oynaması kesin bir sekilde engelleniyor,
excel menusune alısıkken birden bire ozel bir menu cıkınca , karıstırma huyu da
kendiliginden engelleniyor. Hemen macros kısmına saldırı baslıyor ama o da sifreli
dolayısı ile programcılık degil sadece istenen isi yapmaktan baska yolları kalmıyor.

Yanyana ana menuler ve onların ilk alt menulerini de acmayı basardım , birden fazla olabiliyor.

Benim aynı ornek uzerinde sormak istediklerim ;

Bir Ana Menu
1ci alt menu
.......alt menunun 1ci altı
.......alt menunun 2ci altı
.......alt menunun 3cualtı
...........3cu altın 1ci menusu
...........3cu altın 2ci menusu

Seklinde bir alt'ın altına menu dizmek icin nasıl bir duzenleme yapabilirim

saygılar

 

[cems]

Yaptım