Standart Excel Çubuklarını Kaldırmak

[siar]

Merhabalar

Daha öncede forumlarda işlenmiş olan bir konu lakin, bu makroları kullandığım bir belgeyi diğer birimlere mail attığımda, benim belge dışında excel sayfasını açtıklarında hiçbir standart çubuğun görünmediğini söylediler ve bende de aynı durum söz konusuydu. Sadece uygulanan sayfada çubukları kaldırmak mümkün mü? Þimdiden teşekkürler

 

[selections]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If activesheet.Name = "tt" Then
    Application.DisplayFormulaBar = False
    Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("Standard").Visible = False
Else
    Application.DisplayFormulaBar = True
    Application.CommandBars("Formatting").Visible = True
    Application.CommandBars("Standard").Visible = True
End If
End Sub

 

[siar]

maalesef çalışmadı yada ben çalıştıramadım. actif sheet tt, lakin Barlar hala duruyor

 

[selections]

Merhaba sanırım kodları yanlış yere kopyaladınız. ekdeki dosyayı inceleyin lütfen.