• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

exceli normale nasıl çeviririz aşağıdaki kodu incelerseniz sevinirim

  • Konbuyu başlatan Konbuyu başlatan yasef
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Katılım
9 Mart 2007
Mesajlar
85
Excel Vers. ve Dili
xp
Sub şşşş()
Dim cb As CommandBar
Application.DisplayFormulaBar = False
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
end sub
 
sub test()
on error resume next
for each res in aplication.commandbars
res.reset
next
end sub
 
Son düzenleme:
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Geri
Üst