XL2000: Celle sbloccati non "a" sottolineate con protezione abilitata

Sub Format_Unlocked_Cells()
          'Declare procedure-level variables
          Dim x As Range, lastcell As Range, passwrd as String
          ' To use a worksheet password, insert the desired password 
          ' between the quotes below eg:
          ' passwrd = "secret"
          passwrd = ""

         'Prevent screen redraw to speed up the macro
          Application.ScreenUpdating = False

          'Unprotect the worksheet to allow editing
          ActiveSheet.Unprotect passwrd

          'Set lastcell to point to the last cell on the sheet
          Set lastcell = Selection.SpecialCells(xlLastCell)

          'Place bottom borders on unlocked cells and remove any bottom
          'borders from locked cells
          For Each x In Range("A1", lastcell)
              With x.Borders(xlBottom)
                  If x.Locked = False Then
                      .Weight = xlHairline
                      .ColorIndex = xlAutomatic
                  Else
                      .LineStyle = xlNone
                  End If
              End With
          Next x

          'Re-apply worksheet protection.
          ActiveSheet.Protect passwrd
End Sub