Application nesnesi kullanılarak hazırlanan kodun sadece isteğimiz excel çalışma kitabında çalışmasını sağlamak

[onrg]

Merhabalar Forum ailesi,
Üstadlarım kolay gelsin, VBA'da yeni kod yazmaya başladım . Yapmak istediğim bir excel dosyasında uygulama özellikleri olan ribbon sekmeleri formul çubuğu ve durum çubuğunu kaldırmak istiyorum. Ekte sunduğum excel çalışma kitabında bunu yaptım ancak bu excel dosyası açıkken bu kodlar açık olan diğer excel dosyalarında da çalışıyor.
Application nesneli kodun sadece belirttiğim excel çalışma kitabında çalışmasını sağlayacak bir formül yapılabilir mi yoksa bu imkansız mı?
Çalışma kitabı ismiyle For each döngüsü kurmaya çalıştım, aktif çalışma kitabında çalıştır gibi yollar denedim ama olmadı yada dediğim gibi yeni olduğum için beceremedim.
Şimdiden ilginize teşekkür ederim.

Private Sub Workbook_Activate()

    Application.DisplayStatusBar = False
    Application.DisplayFormulaBar = False
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"

End Sub

 

[tugkan]

Merhaba,
Aşağıdaki kodu deneyip sonucu paylaşır mısınız?

Excel'deki Ribbon sekmeleri, formül çubuğu ve durum çubuğunu yalnızca belirli bir çalışma kitabı açıkken gizlemek için, Workbook_Open ve Workbook_BeforeClose olaylarını kullanabilirsiniz. Bu şekilde, çalışma kitabınız açıkken bu ayarlar yapılır ve kapandığında varsayılan ayarlara geri döner.

Aşağıda, yalnızca belirttiğiniz çalışma kitabı açıldığında bu özellikleri gizleyen bir VBA kodu örneği bulunmaktadır:

Private Sub Workbook_Open()
    ' Sadece bu çalışma kitabı açıkken özellikleri gizle
    Application.DisplayStatusBar = False
    Application.DisplayFormulaBar = False
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' Çalışma kitabı kapatılmadan önce varsayılan ayarları geri getir
    Application.DisplayStatusBar = True
    Application.DisplayFormulaBar = True
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"
End Sub

• Bu kod, çalışma kitabınızı açtığınızda durumu gizler ve çalışma kitabınızı kapattığınızda varsayılan ayarlarını geri getirir.

Notlar

• Bu yöntem, yalnızca ilgili çalışma kitabı açıkken çalışır. Diğer açık çalışma kitaplarına etki etmez.
• Eğer çalışma kitabınızı kapattıktan sonra açtığınızda bu ayarlar varsayılan olarak geri gelmezse, bu durum çalışma kitabı dışında başka bir kod veya ayar nedeniyle olabilir.

 

[onrg]

Merhaba tugkan bey,
İlginiz için teşekkür ederim. Dediğiniz gibi bu kodu çalıştırınca sadece belirlediğim Excel çalışma kitabını açtığımda daha öncesinde açılmış olan çalışma kitaplarına etki etmiyor.. Hatta bunu sadece workbook_open da çalıştırınca da oluyor yani worbook_Beforeclose kullanmadan.
Ama benim demek istediğim ilgili özellikleri gizlenmiş çalışma kitabı açıkken Ctrl+n ile açtığım ya da masaüstünden herhangi bir ikinci excel dosyası açtığım zaman yeni açılan çalışma kitabın da ilgili özellikleri gizlenmiş oluyor. Bunu önleyecek bir yol arıyordum.

 

[onrg]

Merhaba,
Aşağıdaki kodu deneyip sonucu paylaşır mısınız?

Excel'deki Ribbon sekmeleri, formül çubuğu ve durum çubuğunu yalnızca belirli bir çalışma kitabı açıkken gizlemek için, Workbook_Open ve Workbook_BeforeClose olaylarını kullanabilirsiniz. Bu şekilde, çalışma kitabınız açıkken bu ayarlar yapılır ve kapandığında varsayılan ayarlara geri döner.

Aşağıda, yalnızca belirttiğiniz çalışma kitabı açıldığında bu özellikleri gizleyen bir VBA kodu örneği bulunmaktadır:

Private Sub Workbook_Open()
    ' Sadece bu çalışma kitabı açıkken özellikleri gizle
    Application.DisplayStatusBar = False
    Application.DisplayFormulaBar = False
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' Çalışma kitabı kapatılmadan önce varsayılan ayarları geri getir
    Application.DisplayStatusBar = True
    Application.DisplayFormulaBar = True
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"
End Sub

• Bu kod, çalışma kitabınızı açtığınızda durumu gizler ve çalışma kitabınızı kapattığınızda varsayılan ayarlarını geri getirir.

Notlar

• Bu yöntem, yalnızca ilgili çalışma kitabı açıkken çalışır. Diğer açık çalışma kitaplarına etki etmez.
• Eğer çalışma kitabınızı kapattıktan sonra açtığınızda bu ayarlar varsayılan olarak geri gelmezse, bu durum çalışma kitabı dışında başka bir kod veya ayar nedeniyle olabilir.

 

[tugkan]

Merhaba,
İstediğin şeyleri yapay zekaya sordum aşağıdaki cevabı verdi. Umarım olmuştur.

Bu durumu önlemek için Excel'de bir çalışma kitabı üzerinde gizleme işlemi yapıldığında, diğer çalışma kitaplarına bu ayarların yansımamasını sağlamak için Workbook_Deactivate olayını kullanabiliriz. Böylece, belirttiğiniz çalışma kitabından çıkıldığında ya da başka bir çalışma kitabı açıldığında gizlenen özellikler tekrar geri yüklenir.

Çözüm
Workbook_Open ile ilgili çalışma kitabı açıldığında Ribbon ve diğer özellikleri gizleyeceğiz, Workbook_Deactivate ile de başka bir çalışma kitabına geçtiğinizde veya yeni bir çalışma kitabı açtığınızda bu özellikleri geri getireceğiz.

Aşağıdaki kodu ThisWorkbook kısmına ekleyin:

Private Sub Workbook_Open()
    ' Sadece bu çalışma kitabı açıkken özellikleri gizle
    Application.DisplayStatusBar = False
    Application.DisplayFormulaBar = False
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
End Sub

Private Sub Workbook_Deactivate()
    ' Başka bir çalışma kitabına geçildiğinde varsayılan ayarları geri getir
    Application.DisplayStatusBar = True
    Application.DisplayFormulaBar = True
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"
End Sub

Private Sub Workbook_Activate()
    ' Çalışma kitabı tekrar aktif olduğunda özellikleri tekrar gizle
    Application.DisplayStatusBar = False
    Application.DisplayFormulaBar = False
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
End Sub

Nasıl Çalışır:

1. Workbook_Open: Çalışma kitabınız açıldığında Ribbon, formül çubuğu ve durum çubuğu gizlenir.
2. Workbook_Deactivate: Farklı bir çalışma kitabına geçtiğinizde veya yeni bir çalışma kitabı açtığınızda bu ayarlar varsayılan haline geri döner.
3. Workbook_Activate: İlgili çalışma kitabınıza geri döndüğünüzde gizleme işlemleri yeniden aktif hale gelir.

Bu sayede, istediğiniz çalışma kitabına özel gizleme işlemi sağlanır ve diğer çalışma kitaplarını etkilemez.

 

[onrg]

Merhaba,
İstediğin şeyleri yapay zekaya sordum aşağıdaki cevabı verdi. Umarım olmuştur.

Bu durumu önlemek için Excel'de bir çalışma kitabı üzerinde gizleme işlemi yapıldığında, diğer çalışma kitaplarına bu ayarların yansımamasını sağlamak için Workbook_Deactivate olayını kullanabiliriz. Böylece, belirttiğiniz çalışma kitabından çıkıldığında ya da başka bir çalışma kitabı açıldığında gizlenen özellikler tekrar geri yüklenir.

Çözüm
Workbook_Open ile ilgili çalışma kitabı açıldığında Ribbon ve diğer özellikleri gizleyeceğiz, Workbook_Deactivate ile de başka bir çalışma kitabına geçtiğinizde veya yeni bir çalışma kitabı açtığınızda bu özellikleri geri getireceğiz.

Aşağıdaki kodu ThisWorkbook kısmına ekleyin:

Private Sub Workbook_Open()
    ' Sadece bu çalışma kitabı açıkken özellikleri gizle
    Application.DisplayStatusBar = False
    Application.DisplayFormulaBar = False
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
End Sub

Private Sub Workbook_Deactivate()
    ' Başka bir çalışma kitabına geçildiğinde varsayılan ayarları geri getir
    Application.DisplayStatusBar = True
    Application.DisplayFormulaBar = True
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"
End Sub

Private Sub Workbook_Activate()
    ' Çalışma kitabı tekrar aktif olduğunda özellikleri tekrar gizle
    Application.DisplayStatusBar = False
    Application.DisplayFormulaBar = False
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
End Sub

Nasıl Çalışır:

1. Workbook_Open: Çalışma kitabınız açıldığında Ribbon, formül çubuğu ve durum çubuğu gizlenir.
2. Workbook_Deactivate: Farklı bir çalışma kitabına geçtiğinizde veya yeni bir çalışma kitabı açtığınızda bu ayarlar varsayılan haline geri döner.
3. Workbook_Activate: İlgili çalışma kitabınıza geri döndüğünüzde gizleme işlemleri yeniden aktif hale gelir.

Bu sayede, istediğiniz çalışma kitabına özel gizleme işlemi sağlanır ve diğer çalışma kitaplarını etkilemez.

Merhaba tugkan bey,
Üstadım ellerine sağlık tam olarak isteğim şey buydu. Hem bu çözüm hem de yapay zekaya başvurma seçeneğini hatırlattığınız için minnettarım çok teşekkür ederim.
İyi çalışmalar.

 

[tugkan]

Çözülmesine sevindim. Bir beğenini alırım artık