[Tasos]

Καλησπέρα Μάρω!

Έχεις μπει για τα καλά στα άβατα της Excel

Αν στο συνημμένο παράδειγμα μου (σε προηγούμενο μήνυμα) προσθέσεις το παρακάτω κώδικα στη λειτουργική μονάδα του φύλλου, θα μπορείς να διαγράφεις ολόκληρες γραμμές σε προστατευμένο φύλλο:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = Columns.Count * Target.Rows.Count Then
        Me.Unprotect Password:="0000"
    Else
        If Not Me.ProtectContents Then
            Me.Protect Password:="0000", UserInterfaceOnly:=True
        End If
    End If
End Sub

Μπορείς να το δεις έτοιμο στο παρακάτω συνημμένο.

Φιλικά

Τάσος