worksheet change not triggering
 

I've been working on the code below which is in "ThisWorkbook". I
edited the if statements down toward the end, and now the macro
doesn't trigger when I change a value in the sheet. I'm confused,
again!

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)

Dim rFoundShName As Range
Dim rShNames As Range
Dim wsPwrdNames As Worksheet
Dim vResponse As Variant
Set wsPwrdNames = ThisWorkbook.Sheets("sheet1")
Set rShNames = wsPwrdNames.Range("ShNames")

Application.EnableEvents = False

wsPwrdNames.Visible = True
bPwrdEntrd = False
PwrdForm:
ufPwrdEntry.Show

Set rFoundShName = rShNames.Find(ActiveSheet.Name, _
LookIn:=xlValues, _
LookAt:=xlWhole)

If sPwrd = rFoundShName.Offset(0, 1).Value Then
bPwrdEntrd = True
Else
vResponse = MsgBox("Incorrect Password! Click OK to try again,
Cancel to exit", _
vbOKCancel)
If vResponse = vbCancel Then
End
Else
GoTo PwrdForm

End If
End If
wsPwrdNames.Visible = False

End
Application.Undo

bPwrdEntrd = False
Application.EnableEvents = True
End Sub

Private Sub Workbook_SheetDeactivate(ByVal ws As Object)
bPwrdEntrd = False
End Sub

And suggestions? I'm particularly curious as to how changing the code
down below can prevent the macro from triggering at all!

worksheet change not triggering
 

On Jan 30, 3:49 pm, "davegb" wrote:
I've been working on the code below which is in "ThisWorkbook". I
edited the if statements down toward the end, and now the macro
doesn't trigger when I change a value in the sheet. I'm confused,
again!

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)

Dim rFoundShName As Range
Dim rShNames As Range
Dim wsPwrdNames As Worksheet
Dim vResponse As Variant
Set wsPwrdNames = ThisWorkbook.Sheets("sheet1")
Set rShNames = wsPwrdNames.Range("ShNames")

Application.EnableEvents = False

wsPwrdNames.Visible = True
bPwrdEntrd = False
PwrdForm:
ufPwrdEntry.Show

Set rFoundShName = rShNames.Find(ActiveSheet.Name, _
LookIn:=xlValues, _
LookAt:=xlWhole)

If sPwrd = rFoundShName.Offset(0, 1).Value Then
bPwrdEntrd = True
Else
vResponse = MsgBox("Incorrect Password! Click OK to try again,
Cancel to exit", _
vbOKCancel)
If vResponse = vbCancel Then
End
Else
GoTo PwrdForm

End If
End If
wsPwrdNames.Visible = False

End
Application.Undo

bPwrdEntrd = False
Application.EnableEvents = True
End Sub

Private Sub Workbook_SheetDeactivate(ByVal ws As Object)
bPwrdEntrd = False
End Sub

And suggestions? I'm particularly curious as to how changing the code
down below can prevent the macro from triggering at all!

I figured it out! Thanks!