Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Condition As Boolean
Condition = Sh.Name <> "Login"
Application.DisplayFormulaBar = Condition
With ActiveWindow
.DisplayHeadings = Condition
.DisplayHorizontalScrollBar = Condition
.DisplayVerticalScrollBar = Condition
End With
End Sub