Problems protecting Worksheet with VB

[Bowdlerb]

I have the following code in "This Workbook" which works fine up to the point that it does not re-protect the active sheet. Any ideas why not:

Private Sub Workbook_Open()
ActiveSheet.Unprotect
If [T160].Value <> "" Then Exit Sub
[T160].Value = Format(Now, "dd/mm/yy ")
ActiveSheet.Protect
End Sub

Has me frustrated for the past hour or so!

Thanks,

Barrie Bowdler

 

[DRJ]

Probably because you exit the sub before you reprotect

Private Sub Workbook_Open() 

    ActiveSheet.Unprotect 
    If [T160].Value <> "" Then
        Else
        [T160].Value = Format(Now, "dd/mm/yy ") 
    End If
    ActiveSheet.Protect 

End Sub

 

[Bowdlerb]

Thankyou so much for your assistance, the code works perfectly, a job very well done.

Barrie Bowdler

 

[DRJ]

You're Welcome

Take Care