title: Paste after unprotecting worksheet not working
body: <p>I have two sheets "<code>Request</code>" and "<code>Changes</code>" both protected by same password. Password has been stored as a constant in another module. I have tested this code when "<code>Changes</code>" sheet in unprotected and it works, however for some reason, if I have to unprotect the sheet before pasting it won't paste. </p>
  
  <p>I am simplifying trying to keep a record of what was deleted in the workbook by placing the info in a protected sheet "<code>Changes</code>" that is hidden.</p>
  
  <pre><code>Sub PODelete()
  Dim rng As Range, ws As Worksheet, ws1 As Worksheet, lr As Integer
  Set ws = Sheets("Request")
  Set ws1 = Sheets("Changes")
  lr = ws1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 'Last non-blank row for column A
  
  On Error Resume Next
  Set rng = Application.InputBox("Select a range", Type:=8)
  If Not rng Is Nothing Then
      ' Checks to see if column A is selected
      If rng.Cells.Column = 1 Then
  
          ' Checks to see that only 1 cell is selected
          If rng.Cells.Count &gt; 1 Then
              MsgBox "Select only one P.O. Number to remove"
          Else
  
              ' Select entire row
              rng.EntireRow.Copy
              ' Activate sheet and pastes values
              Sheets("Changes").Activate
              ws1.Unprotect Password:=worksheetpassword
              Cells(lr, 1).EntireRow.Select
              Selection.PasteSpecial Paste:=xlPasteValues
  
              ws1.Protect Password:=worksheetpassword, DrawingObjects:=True, Contents:=True, Scenarios:=True
              ' Deletes range
              ws.Activate
              ws.Unprotect Password:=worksheetpassword
              rng.EntireRow.Delete
              ws.Protect Password:=worksheetpassword, DrawingObjects:=True, Contents:=True, Scenarios:=True
  
          End If
      Else
          MsgBox "Select P.O. Number to remove"
      End If
  
  Else
      Exit Sub
  End If
  
  End Sub
  </code></pre>
  
  <p>Once again, if I run this macro with the "<code>Changes</code>" sheet unlocked it will work.</p>