[Γενικά] Δικαιώματα γραφής αλλά όχι διαγραφής στο Excel

[ChrisGT7]

Ο κώδικας που βρίσκεται στο αρχείο είναι ο παρακάτω:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, [C4:I12]) Is Nothing Then Exit Sub
    If Target.Value <> "" Then Exit Sub
    Cancel = True
    
    ActiveSheet.Unprotect "111"
    Target.Value = InputBox("Κελί " & Target.Address, "Πληκτρολογήστε τιμή")
    ActiveSheet.Protect "111"
End Sub

Στο αρχείο που χρησιμοποιείς, κάνε δεξί κλικ πάνω στο όνομα του φύλλου εργασίας στην κάτω μπάρα, επέλεξε από το μενού Προβολή κώδικα και επικόλλησε το παραπάνω κείμενο.

Αντικατέστησε την κόκκινη περιοχή (C4:I12) με την περιοχή των κελιών που σε ενδιαφέρει να κλειδώνει και άλλαξε τους κόκκινους άσους με τον κωδικό που επιθυμείς.

Αν πιστεύεις πως είναι δύσκολο, ανέβασε το αρχείο σου να στο ρυθμίσω.