trouble creating login in excel

[squidge1990]

i have created a database using excel and i have to set a security level i have written all of the vba code correctly i think but it just does seem to work properly. here is the code below if anyone could point out any problems with it would be much appreciated.

 
Private Sub Login_Click()
Dim name, password, found, loops
  found = 0
  loops = 0
  name = Range("Username").Value
  password = Range("Password").Value
  Worksheets("Data").Visible = True
  Worksheets("Data").Select
  ActiveSheet.Range("A1").Activate
  While ActiveCell.Offset(loops, 0).Value <> "" And found = 0
	If Username = ActiveCell.Offset(loops, 0).Value Then
	  If password = ActiveCell.Offset(loops, 1).Value Then
		found = 1
	  End If
	End If
	loops = loops + 1
  Wend
  If found = 0 Then
	Worksheets("Login").Select
	Worksheets("Data").Visible = True
	MsgBox ("Logon Failed")
	Worksheets("Lowlev").Visible = False
	Workbooks("Unit10assisgnment.xls").Close SaveChanges:=False
  End If
  Worksheets("Lowlev").Visible = True
  Worksheets("Lowlev").Select
  ActiveWindow.DisplayWorkbookTabs = True
 
End Sub

[willakawill]

i have created a database using excel and i have to set a security level i have written all of the vba code correctly i think but it just does seem to work properly. here is the code below if anyone could point out any problems with it would be much appreciated.

 
Private Sub Login_Click()
Dim name, password, found, loops
  found = 0
  loops = 0
  name = Range("Username").Value
  password = Range("Password").Value
  Worksheets("Data").Visible = True
  Worksheets("Data").Select
  ActiveSheet.Range("A1").Activate
  While ActiveCell.Offset(loops, 0).Value <> "" And found = 0
	If Username = ActiveCell.Offset(loops, 0).Value Then
	  If password = ActiveCell.Offset(loops, 1).Value Then
		found = 1
	  End If
	End If
	loops = loops + 1
  Wend
  If found = 0 Then
	Worksheets("Login").Select
	Worksheets("Data").Visible = True
	MsgBox ("Logon Failed")
	Worksheets("Lowlev").Visible = False
	Workbooks("Unit10assisgnment.xls").Close SaveChanges:=False
  End If
  Worksheets("Lowlev").Visible = True
  Worksheets("Lowlev").Select
  ActiveWindow.DisplayWorkbookTabs = True
 
End Sub

Hi. Perhaps the thing that is most evident here is the last part of your code

If found = 0 Then
	Worksheets("Login").Select
	Worksheets("Data").Visible = True
	MsgBox ("Logon Failed")
	Worksheets("Lowlev").Visible = False
	Workbooks("Unit10assisgnment.xls").Close SaveChanges:=False
  End If
  Worksheets("Lowlev").Visible = True
  Worksheets("Lowlev").Select
  ActiveWindow.DisplayWorkbookTabs = True

Can you explain what this line does?
Workbooks("Unit 10assisgnment.x ls").Close SaveChanges:=Fa lse

[squidge1990]

whne the incorrect details have been entered it will close the workbook and i choose whether i want to save the changes that have made to the workbook before it closes.

i have to set to false so it doesnt save the changes that have been made when the wrong password and username are entered.