rapor açılışına 

Dim i As Integer

For i = 1 To CommandBars.Count

CommandBars(i).Enabled = False

Next i

rapor kapanışına 

Dim i As Integer

For i = 1 To CommandBars.Count

CommandBars(i).Enabled = true

Next i

ekleyiniz.

eğer tüm form ve raporlarda gizlemek istiyor sanız.

sadece ilk açılan giriş formunuza 

Dim i As Integer

For i = 1 To CommandBars.Count

CommandBars(i).Enabled = False

Next i

ekleyiniz.