Merhaba,
sağ tık tasarım menülerini gizleme

Dim i As Integer

For i = 1 To CommandBars.Count

CommandBars(i).Enabled = False

Next i

sağ tık tasarım menülerini gösterme

Dim i As Integer

For i = 1 To CommandBars.Count

CommandBars(i).Enabled = true

Next i

işinizi görecektir diye düünüyorum.