Genel Bir-kaç Makro Sorusu

[orhanacan]

Merhabalar,

O kadar sorulacak soru var ki, acaba her soruya yeni konu açmaktan ziyade, merak edilen ve bilinmeyen genel bir-kaç konu hakkında bilgi verebilir misiniz?

1. Çalışma sayfasında vba sayfasından xlSheetHidden seçildiğinde köprü ve butonla gizlenen sayfaya gitme işlemi olmuyor mu? Ki ben, yaptığım uygulamada yapamadım. Eğer olmuyorsa, bunun çözümünde kodlamamı yoksa başka bir işleme ihtiyaç var mı?

2. Çalışma sayfasında bazı makrolar bazen işlem yapıyor, bazen yapmıyor. İşlem yapmadığı zaman çalışma kitabını açıp-kapattığımda sorun çözülüyor. Neden? bu sorun oluşur. bunun çözümü var mı?

3. Hocam, sadece xxx çalışma kitabında menü+araç çubukları (kaydırma çubukları hariç) kaldırmak için ne yapabiliriz? Kullandığım kodlamada sadece istediğim excell çalışma kitabı değil, tüm excell çalışma kitaplarında kodlar uygulandı. Ben, bunun sadece bir çalışma kitabında, uygulamamda işlem görmesini istiyorum. Bu konuda nasıl bir kodlama uygulayabiliriz?

4. Üstadım, excel uygulamanın açılışında kullanıcı giriş formuyla şifreli giriş mevcut. Fakat; uygulamaya tıkladığınızda 1 sn altında çalışma kitabının sayfası biran gözüküp hemen şifreli giriş formu gelmekte. Ben, direkt olarak giriş formunun gelmesini, excel sayfasının hiç gözükmemesini istiyorum. Bir yerde hata mı mevcut? veya bu sorunu nasıl çözebiliriz?

Arkadaşlar, soruları maddeler halinde yazdım, umarım sizi meşgul etmez. Bu konularda çözüm yollarını sunarsanız memnun olurum. Saygılarımla...

[Bülent Öztürk]

Merhaba Orhan Bey.

1. Çalışma sayfasında vba sayfasından xlSheetHidden seçildiğinde köprü ve butonla gizlenen sayfaya gitme işlemi olmuyor mu? Ki ben, yaptığım uygulamada yapamadım. Eğer olmuyorsa, bunun çözümünde kodlamamı yoksa başka bir işleme ihtiyaç var mı?

Gizli sayfalar köprü ile açılmaz, kodlama gerektirir.

2. Çalışma sayfasında bazı makrolar bazen işlem yapıyor, bazen yapmıyor. İşlem yapmadığı zaman çalışma kitabını açıp-kapattığımda sorun çözülüyor. Neden bu sorun oluşur? Bunun çözümü var mı?

Muhtemelen "Application.EnableEvents=False" komut satırı ile sayfa olayları engellenmiş şekilde kalıyor olabilir.
Yine de kesin bir şey söylemek için dosyayı görmek daha iyi olur.

3. Sadece xxx çalışma kitabında menü+araç çubukları (kaydırma çubukları hariç) kaldırmak için ne yapabiliriz? Kullandığım kodlamada sadece istediğim excel çalışma kitabı değil, tüm excel çalışma kitaplarında kodlar uygulandı. Ben, bunun sadece bir çalışma kitabında, uygulamamda işlem görmesini istiyorum. Bu konuda nasıl bir kodlama uygulayabiliriz?

Kullandığınız kodları uygulamak istediğiniz dosyanın Workbook_Activate olayına, dosya haricinde etkili olmamaları için de Workbook_Deactivate olayına iptal için olanları yazınız.

4. Excel uygulamanın açılışında kullanıcı giriş formuyla şifreli giriş mevcut. Fakat; uygulamaya tıkladığınızda 1 sn altında çalışma kitabının sayfası biran gözüküp hemen şifreli giriş formu gelmekte. Ben, direkt olarak giriş formunun gelmesini, excel sayfasının hiç gözükmemesini istiyorum. Bir yerde hata mı mevcut? Bu sorunu nasıl çözebiliriz?

Şu şekilde deneyin;

Kod: [Seç]

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

[orhanacan]

Bülent hocam, verdiğiniz bilgiler için teşekkür ederim. Lütfen..! çok zor şartlarda verdiğiniz yardımlar konusunda özverinizi kaybetmeyin. Siz ve sizin gibi bilgi paylaşımında bulunan ve insanına hizmet edenlere ihtiyacımız var. Saygı ve Sevgilerimle...

[orhanacan]

Hocam, sunduğunuz çözümlerde 3 üncü madde de geçen . sadece kodun yazıldığı uygulamada geçerli olacak, xxx çalışma kitabında açılışta uygulama menü+araç çubukları (kaydırma çubukları hariç) kaldırmak konusundaki çözümü uygulayamadım. Acaba, açıklayıcı kodlamayı yazabilir misiniz? Kod nasıl ve nereye ekleyeceğiz? saygılar...

[Bülent Öztürk]

Kullandığınız kod nedir ve hangi olay altına yazdınız, paylaşır mısınız?

[orhanacan]

Hocam, saygılar... sanırım sorunun anlatımında hata yaptım. Çalıştığım Excell çalışma kitabında menü ve araç çubuklarını ortadan kaldırmak için kod olayından bahisle sadece çalıştığım kitap için geçerli olacak menü ve araç çubuklarını kaldırmak istiyorum. Bu konuda gerekli kodlama konusunda çözüm istemiştim. Kusura bakmayın, hayırlı akşamlar...

[Bülent Öztürk]

Kullandığınız kodları sormuştum ama ısrarla vermek istemediniz!
Örnek kodları ben vereyim o zaman...

ThisWorkbook olayına yazılacak;

'Çalışma kitabı aktif olduğunda özel menü oluşacak:

Kod: [Seç]

Private Sub Workbook_Activate()
Rem www.excelce.net/forum - Bülent Öztürk
Dim excelcenet_menu As CommandBarControl
On Error Resume Next
Application.CommandBars.FindControl(, , "E&xcelce.Net", False).Delete
Set excelcenet_menu = Application.CommandBars(1).Controls.Add(msoControlButton, , , , True)
With excelcenet_menu
    .Style = msoButtonIconAndCaption
    .FaceId = 566
    .Caption = "E&xcelce.Net"
    .Tag = "E&xcelce.Net"
    .BeginGroup = True
    .OnAction = "ExcelceMesaj"
End With
End Sub
'Çalışma kitabı pasif olduğunda özel menü silinecek:

Kod: [Seç]

Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars.FindControl(, , "E&xcelce.Net", False).Delete
End Sub
'Bir modüle yazılacak kodlar:

Kod: [Seç]

Sub ExcelceMesaj()
MsgBox "Excelce.Net Özel Menüye Tıkladınız!", vbInformation, Application.UserName
End Sub


[orhanacan]

Hocam, teşekkür ederim. Uygulamamı sayenizde sonuca ulaştırdım. Acizane uygulamamı yardıma ihtiyacı olup, kullanacak çok arkadaş var. Sizi meşgul etmeyeyim. İhtiyaç durumunda sorunlarımla tekrar sizleri rahatsız edersem kusura bakmayın. Yanlış anlaşılmasın, bir yere gitmiyorum, buradayım.  Saygı ve Sevgilerimle, esen kalın...