VBA: Border not working when sheet protected

[jorgedshuler]

The following code does not work when my sheet is protected. However, it works perfectly fine when the sheet is unprotected.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("N2:U2").Borders(xlEdgeTop).LineStyle = xlContinuous
Range("N5:U5").Borders(xlEdgeBottom).LineStyle = xlContinuous
Range("N2,N3,N4,N5").Borders(xlEdgeLeft).LineStyle = xlContinuous
Range("U2,U3,U4,U5").Borders(xlEdgeRight).LineStyle = xlContinuous
Range("N2").Value = "ISSUED"
Range("N5").Value = Date
Else: Range("N2:U2").Borders(xlEdgeTop).LineStyle = xlLineStyleNone
Range("N5:U5").Borders(xlEdgeBottom).LineStyle = xlLineStyleNone
Range("N2,N3,N4,N5").Borders(xlEdgeLeft).LineStyle = xlLineStyleNone
Range("U2,U3,U4,U5").Borders(xlEdgeRight).LineStyle = xlLineStyleNone
Range("N2").Value = ""
Range("N5").Value = ""
End If
End Sub

 

[DanteAmor]

at the beginning of the code unprotect the sheet with

activesheet.unprotect "abc"
(change abc for your password)
at the end of the code protect it again with
activesheet.protect "abc"

 

[jorgedshuler]

Thanks! That worked.