remove or disable the cancel button in an input pop up window

[tomtat]

i want to remove the cancel button to force a user to enter there name before they can access the workbook. if i can make the cancel button close the workbook with a error message that would be good.

The input box that asked for the week start date i would like to not be shown if there is already a date in the cell F4.


ANY HELP WOULD BE MUCH APPRECIATED
thank you

my current code is this

Private Sub Workbook_Open()
Worksheets("sheet1").Activate


Dim emptyrow As Long
emptyrow = WorksheetFunction.CountA(Sheets("sheet1").Range("B:B")) + 1
Cells(emptyrow, 2).Value = Date & " " & Time

Application.DisplayAlerts = False
Sheets("sheet1").Range("E3").Value = InputBox("Enter Your Name", "Authentication")
Range("F4").Value = InputBox("Enter the week start date (dd/Month/yyyy) Note- You must enter the month in text form", "Welcome to the York Cash Collection Workbook " & Sheets("sheet1").Range("E3"))

emptyrow = WorksheetFunction.CountA(Sheets("sheet1").Range("A:A")) + 1
Cells(emptyrow, 1).Value = (Sheets("Sheet1").Range("E3"))

 

[VoG]

Maybe

x = InputBox("Enter Your Name", "Authentication")
If x = "False" Then
    MsgBox "Incorrect"
    ActiveWorkbook.Close False
End If
Sheets("sheet1").Range("E3").Value = x

 

[tomtat]

thanks Peter but this didn't work i was still able to press cancel and access the workbook without entering a name

 

[VoG]

Then maybe

x = InputBox("Enter Your Name", "Authentication")
If x = "False" Or x = "" Then
    MsgBox "Incorrect"
    ActiveWorkbook.Close False
End If
Sheets("sheet1").Range("E3").Value = x

 

[tomtat]

thank you Peter this works perfect.

Do you know of a way to then only allow enter to the workbook if a series of correct names are put into the input window. say for example the names - John and Glen

Thanks

 

[VoG]

Maybe like this

x = InputBox("Enter Your Name", "Authentication")
If x = "False" Or x = "" Then
    MsgBox "Incorrect: you must enter a name"
    ActiveWorkbook.Close False
End If
If x <> "John" And x <> "Glen" Then
    MsgBox "Incorrect name"
    ActiveWorkbook.Close False
End If
Sheets("sheet1").Range("E3").Value = x

 

[tomtat]

thanks peter this works.

i have started a new thread to build on your code were password authentication would be used after entering the name
http://www.mrexcel.com/forum/excel-...ord-each-user-enter-workbook.html#post3758294

thanks