Merhaba;
Sitenizden temin ettiğim aşağıdaki kod çok güzel, exceldeki tüm menüleri kaldırıyor, ancak sağ tuşu da çalışmaz hale getiriyor. Tüm menüler yine kaldırılsın ancak sağ tuş çalışmaya devam etsin istiyorum. Bunu sağlamak için aşağıdaki kodu nasıl değiştirebiliriz. Şimdiden teşekkürler.
Dim cb As CommandBar
Application.DisplayFormulaBar = True
For Each cb In Application.CommandBars
cb.Enabled = True
Next cb
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
Sitenizden temin ettiğim aşağıdaki kod çok güzel, exceldeki tüm menüleri kaldırıyor, ancak sağ tuşu da çalışmaz hale getiriyor. Tüm menüler yine kaldırılsın ancak sağ tuş çalışmaya devam etsin istiyorum. Bunu sağlamak için aşağıdaki kodu nasıl değiştirebiliriz. Şimdiden teşekkürler.
Dim cb As CommandBar
Application.DisplayFormulaBar = True
For Each cb In Application.CommandBars
cb.Enabled = True
Next cb
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With