Troque o codigo atual de Esta Pasta de Trabalho por este:

Private Sub Workbook_Open()
Sheets("Inicio").Select
Form_Login.Show
End Sub


Este vai abrir a tela de login apenas uma vez.