Foutmelding bij verwijderen data uit beveiligd werkblad.

[Bert2010]

Beste helpmij forumleden,
ik zit met het volgende probleem: bij het verwijderen van een record uit een beveiligde werkblad krijg ik een foutmelding welke niet verschijnt als het werkblad onbeveiligd is. Ik heb een voorbeeld bij gevoegd. Hopelijk kan iemand mij helpen.
Bij voorbaat dank.
Bert

 

[HSV]

Lukt het hiermee?

Private Sub Verwijderen_Click()
With Sheets("database")
 .Unprotect "xxxx"
   .Rows(SpinButton1.Value & ":" & SpinButton1.Value).Delete Shift:=xlUp
  
  Naam.Value = .Cells(SpinButton1.Value, KolomNaam)
  Straat.Value = .Cells(SpinButton1.Value, KolomStraat)
  Nr.Value = .Cells(SpinButton1.Value, KolomNr)
  Postcode.Value = .Cells(SpinButton1.Value, KolomPostcode)
  Woonplaats.Value = .Cells(SpinButton1.Value, KolomWoonplaats)
  
     .Range("S4").Copy .Range("S5:S19")
    Application.Goto .Range("S2")
  .Protect "xxxx"
 End With
End Sub

 

[Bert2010]

Beste HSV, bedankt voor je oplossing en jesnelle reactie.