Confusing Code

[Kevin0427]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)



'Plan Rejected
If Target.Column = 12 Then
ActiveSheet.Unprotect Password:="test"
Target.Offset(0, -6) = 0
'Target.Offset(0, 1) = Date + Time
Target = "þ"
'Range("b" & Target.Row & ":bz" & Target.Row).Locked = True
ActiveSheet.Protect Password:="test"
End If

I am confused by the following code. The two rows that you see as commented out do not run when they are uncommented. If I switch the two target.offset codes the first one always runs and the second one does not. The locked range used to work until I added the second offset and now it does not run even if bad code gets commented out.

 

[Fluff]

Without knowing what your other code is, I've no idea.

 

[Kevin0427]

Without knowing what your other code is, I've no idea.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Plan Rejected
If Target.Column = 12 Then
      Cancel = True
      Application.EnableEvents = False
      ActiveSheet.Unprotect Password:="test"
      Target.Offset(0, -6) = 0
      Target.Offset(0, 1) = Date + Time
      Target = "þ"
      Range("b" & Target.Row & ":bz" & Target.Row).Locked = True
      ActiveSheet.Protect Password:="test"
   End If
   Application.EnableEvents = True
'Invoice Sent
'First change
If Target.Column = 14 Then
    ActiveSheet.Unprotect Password:="test"
    If Target.Offset(0, 1) = "" Then
        Target.Offset(0, 1) = Date + Time
        Target = "þ"
'All other changes
    Else
        Target.Offset(0, 27) = Date + Time
        If Target = "¨" Then
            Target = "þ"
        Else
            Target = "¨"
        End If
    End If
ActiveSheet.Protect Password:="test"
End If
'Payment Received
'First change
If Target.Column = 16 Then
    ActiveSheet.Unprotect Password:="test"
    If Target.Offset(0, 1) = "" Then
        Target.Offset(0, 1) = Date + Time
        Target = "þ"
'All other changes
    Else
        Target.Offset(0, 26) = Date + Time
        If Target = "¨" Then
            Target = "þ"
        Else
            Target = "¨"
        End If
    End If
    ActiveSheet.Protect Password:="test"
End If
'Entered in GIS
'First change
If Target.Column = 19 Then
    ActiveSheet.Unprotect Password:="test"
    If Target.Offset(0, 26) = "" Then
        Target.Offset(0, 26) = Date + Time
        Target = "þ"
'All other changes
    Else
        Target.Offset(0, 27) = Date + Time
        If Target = "¨" Then
            Target = "þ"
        Else
            Target = "¨"
        End If
    End If
    ActiveSheet.Protect Password:="test"
End If
'Plans Scanned
'First change
If Target.Column = 20 Then
    ActiveSheet.Unprotect Password:="test"
    If Target.Offset(0, 27) = "" Then
        Target.Offset(0, 27) = Date + Time
        Target = "þ"
'All other changes
    Else
        Target.Offset(0, 28) = Date + Time
        If Target = "¨" Then
            Target = "þ"
        Else
            Target = "¨"
        End If
    End If
    ActiveSheet.Protect Password:="test"
End If
End Sub

Do I or should I be using a lot of subs instead of 1? Does that cause it? Sorry all my tabs and spacing is gone in the paste!!! Looks bad.

 

[Fluff]

That code is not the problem. You have other event code such as a Worksheet_Change event

 

[Kevin0427]

That code is not the problem. You have other event code such as a Worksheet_Change event

This. And a few filters

Private Sub Worksheet_Change(ByVal Target As Range)

'Maximo Entered
ActiveSheet.Unprotect Password:="test"
If Target.Column = 18 Then
If Target.Offset(0, 25) = "" Then
Target.Offset(0, 25) = Date + Time
Else
Target.Offset(0, 26) = Date + Time
End If
End If
ActiveSheet.Protect Password:="test"
End Sub

 

[Fluff]

That code is relocking the sheet, which is causing you the problem.
Select this line in the doubleclick event

   If Target.Column = 12 Then

Then press F9, that line should get a brown highlight.
Then on the sheet doubleclick in col L, the above line of code should be highlighted, press F8 to step through the code & you can watch what happens.