makro kodlama hk

[recepkull]

Arkadaşlar bir excel dosyasında aşağıdaki makro kodlarını kullanıyorum. Bu kodlar başka excel dosyalarını da etkiliyor. Sadece kodu yazdığım dosya için işlem yapması için ne yapmam gerekiyor ?

Sub araççubuğu()
If Range("AP9").Value = YANLIŞ Then
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",False)"
Else
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",True)"
End If
End Sub

Sub sayfasekmeleri()
If Range("AP10").Value = YANLIŞ Then
 ActiveWindow.DisplayWorkbookTabs = False
 Else
  ActiveWindow.DisplayWorkbookTabs = True
  End If
End Sub


Sub Yataycubuk()
If Range("AP11").Value = YANLIŞ Then
ActiveWindow.DisplayHorizontalScrollBar = False
Else
ActiveWindow.DisplayHorizontalScrollBar = True
End If
End Sub


Sub Dikeycubuk()
If Range("AP12").Value = YANLIŞ Then
ActiveWindow.DisplayVerticalScrollBar = False
Else
ActiveWindow.DisplayVerticalScrollBar = True
End If
End Sub

 

[EmrExcel16]

Bütün hepsi mi etkiliyor , yoksa sadece "araççubuğu" olan kod prosedürü mü ,etkiliyor.

 

[recepkull]

Şimdi tek tek baktım da sadece şu kod etkiliyormuş. Bunu nasıl çözebilirim ?

Sub araççubuğu()
If Range("AP9").Value = YANLIŞ Then
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",False)"
Else
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",True)"
End If
End Sub

 

[EmrExcel16]

Bende öyle tahmin etmiştım, "Application" ile başlayan kodlar tüm excelleri etkiler , bunu dosyayı aktif edildiğinde False yaptiğiniz ayarlari çikarkende tekrar True olarak ayarlarsaniz ,sadece o dosyaya ait bir ayar olmuş olur.

 

[Haluk]

Soz konusu kodlari ilgili dosyanin workbook activate/deactivate prosedurlerinde kullanirsaniz, sadece o dosya icin gecerli olur.

.

 

[recepkull]

nasıl yapacağımı anlayamadım hocam

 

[recepkull]

Sorun hala güncel. Yardımlarınızı bekliyorum.

 

[genesis_vision]

 

[genesis_vision]

Belki bu işinize yarayabilir.

 

[recepkull]

Yine bütün dosyaları etkiliyor.

 

[Suskun]

Doğrudan "Ana Toolbar" kapatılılırsa tüm kitaplarda kapatılıyor. Geçici bir toolbar oluşturup ana toolbar yerine kullandığımızda sorun olmuyor.
Aşağıdaki Kodları ilgili bölümlere kaydedin. Yalnız TAMEKRAN olduğunda sonuç veriyor.

'BuÇalışmaKitabı içine yerleştirilecek
Option Explicit

Private Sub Workbook_Activate()
    ToolbarKaldır
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.CommandBars("MyToolbar").Delete
End Sub


Private Sub Workbook_Deactivate()
   ToolbarKur
End Sub

'Modul içine Yerleştirilecek yordamlar

Option Explicit

Sub araççubuğu()
If Range("AP9").Value = YANLIŞ Then
  ToolbarKaldır
Else
  ToolbarKur
End If
End Sub


Sub ToolbarKaldır()
    
    On Error Resume Next
        With Application
           .DisplayFullScreen = True
           .CommandBars("Full Screen").Visible = False
           .CommandBars("MyToolbar").Enabled = True
           .CommandBars("MyToolbar").Visible = True
           .CommandBars("Worksheet Menu Bar").Enabled = False
        End With
    On Error GoTo 0
End Sub

Sub ToolbarKur()

    On Error Resume Next
        With Application
           .DisplayFullScreen = False
           .CommandBars("MyToolbar").Enabled = False
           .CommandBars("Worksheet Menu Bar").Enabled = True
        End With
    On Error GoTo 0
End Sub