StatusBar - скрыть или отобразить

Dim str As String

On Error Resume Next

str = CurrentDb.Name

str = Right(str, 5) 'берём 5 символов из имени файла справа (рассширение)

If str = "accde" Then 'Работает Пользователь

Application.SetOption "Show Status Bar", False 'Скрыть статус БАР

Else 'Работает разработчик

Application.SetOption "Show Status Bar", True 'Показать статус БАР

End If

Просто показать (если был скрыт)
Печатаем в Immediate окне (Ctrl+G) строку:

Application.SetOption "Show Status Bar", True

... и нажимем ENTER - StatusBar появится.