Morning All!
Is there a way in which I can link a message/popup box to appear in a particular place? At the moment, with dual screen in appears on the right screen, when I want it to pop up in the middle of the left, preferably next to cell G:25.
Current coding:
Private Sub Workbook_Open()
Dim user_name As String
Dim FBR As Long
user_name = InputBox("Please enter your ISIS username to access the Project HERMES interface. Please note that this spreadsheet should not be amended in any way.", "PROJECT HERMES LOGIN", "")
If accept_name(user_name) = False Then
ActiveWorkbook.Close (0)
Exit Sub
End If
With Sheets("Homepage")
FBR = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
.Cells(FBR, 2) = user_name
.Cells(FBR, 1) = Now
End With
End Sub
Function accept_name(uname As String) As Boolean
Select Case UCase(uname)
Case "MUIRHEADN110"
accept_name = True
Case "CUTLERH343"
accept_name = True
Case "LIGHTWINGC840"
accept_name = True
Case "ORRP759"
accept_name = True
Case "USERNAME"
accept_name = True
Case Else
accept_name = False
End Select
UnhideSheets
End Function
Is there a way in which I can link a message/popup box to appear in a particular place? At the moment, with dual screen in appears on the right screen, when I want it to pop up in the middle of the left, preferably next to cell G:25.
Current coding:
Private Sub Workbook_Open()
Dim user_name As String
Dim FBR As Long
user_name = InputBox("Please enter your ISIS username to access the Project HERMES interface. Please note that this spreadsheet should not be amended in any way.", "PROJECT HERMES LOGIN", "")
If accept_name(user_name) = False Then
ActiveWorkbook.Close (0)
Exit Sub
End If
With Sheets("Homepage")
FBR = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
.Cells(FBR, 2) = user_name
.Cells(FBR, 1) = Now
End With
End Sub
Function accept_name(uname As String) As Boolean
Select Case UCase(uname)
Case "MUIRHEADN110"
accept_name = True
Case "CUTLERH343"
accept_name = True
Case "LIGHTWINGC840"
accept_name = True
Case "ORRP759"
accept_name = True
Case "USERNAME"
accept_name = True
Case Else
accept_name = False
End Select
UnhideSheets
End Function