A
andres a
Private Sub workbook_open()
un = Application.UserName
Select Case un
Case "xx1", "xx2", "xx3"
' if user is one of the above the prompt will not be
displayed
Application.DisplayAlerts = False
Case Else
Application.DisplayAlerts = True
' prompt will be displayed for other users
End Select
End Sub
un = Application.UserName
Select Case un
Case "xx1", "xx2", "xx3"
' if user is one of the above the prompt will not be
displayed
Application.DisplayAlerts = False
Case Else
Application.DisplayAlerts = True
' prompt will be displayed for other users
End Select
End Sub