Ανανέωση ιστοσελίδας

[mvardavas]

Ευτυχείτε!
Παρακαλώ για τη βοήθεια σας (που είναι πάντα απλόχερη).
Θέλω σε ένα κοινόχρηστο βιβλίο excel να δώσω δικαιώματα γραφής σε κάποια κελιά αλλά όχι διαγραφής στο περιεχόμενο των κελιών αυτών.
Υπάρχει αυτή η δυνατότητα;
Ευχαριστώ.

[ChrisGT7]

Καλημέρα Μιχάλη,

Ίσως το κλείδωμα του συγκεκριμένου φύλλου εργασίας να σε βοηθήσει στο ζητούμενό σου.

Όσα όμως κελιά κλειδώσουν, δε θα μπορούν να τροποποιηθούν τα δεδομένα τους.

Κάτι τέτοιο θα βόλευε;

[mvardavas]

Καλημέρα και Ευχαριστώ για την άμεση ανταπόκριση.
Δυστυχώς θέλω να μπορεί να γράφει ο συνεργάτης αλλά να μη μπορεί να σβήσει ή τροποποιήσει γραμμένα.

[ChrisGT7]

Δηλαδή συγκεκριμένα κελιά να μην μπορούν να έχουν κενή τιμή;

Παράδειγμα:
Αν ένα κελί έχει την τιμή "ΧΡΗΣΤΟΣ", ο χρήστης να μπορεί να το αλλάζει σε "ΧΡΗΣ" αλλά να μην μπορεί να το διαγράψει με DELETE;
Σε περίπτωση που γράψει " " (κενό διάστημα), δε θεωρείται διαγραφή;

[mvardavas]

Κελιά που έχουν δεδομένα να μη μπορούν να τροποποιηθούν. Κενά κελιά μπορεί να υπάρχουν.

[ChrisGT7]

Δοκίμασε μια πρόταση με κώδικα VBA. Θα πρέπει να είναι ενεργοποιημένες οι μακροεντολές για να λειτουργήσει σωστά το συνημμένο αρχείο.

Το φύλλο είναι κλειδωμένο και δεν επιτρέπεται καμία αλλαγή στα κελιά.

Για να μπορέσει ο χρήστης να εισάγει τιμές στην κίτρινη περιοχή, θα πρέπει να κάνει διπλό κλικ σ' ένα απ' αυτά, όπου θα εμφανιστεί ένα πλαίσιο διαλόγου για την εισαγωγή της επιθυμητής τιμής.

Μόλις πατηθεί Enter, η τιμή καταχωρείται στο κελί και αυτόματα κλειδώνει χωρίς να μπορεί πλέον να την τροποποιήσει, ακόμα και με διπλό κλικ πάνω της.

Για να τροποποιηθούν οι τιμές, το φύλλο εργασίας θα πρέπει να ξεκλειδωθεί πρώτα.

[mvardavas]

Χρήστο άψογο.
Αυτό ακριβώς ήταν το ζητούμενο.
Πως μπορώ να το χρησιμοποιήσω σε ένα νέο βιβλίο εργασίας;
Είδα ότι δεν υπήρχε κωδικός προστασίας φύλλου. Αν βάλω κωδικό ζητά τον κωδικό για να συνεχίσει.
Ευχαριστώ πολύ.

[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) με την περιοχή των κελιών που σε ενδιαφέρει να κλειδώνει και άλλαξε τους κόκκινους άσους με τον κωδικό που επιθυμείς.

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

[mvardavas]

Άξιος.
Ευχαριστώ πολύ για την έγκυρη και έγκαιρη ανταπόκριση-λύση θεμάτων.
Καλή δύναμη
Ευχαριστώ ξανά.

[ABADIM]

Καλημέρα σας και καλή σαρακοστή.

Νέος στο φόρουμ και συγχωρήστε μου αν είμαι off topic αλλά δεν μπόρεσα να βρω κάτι πιο σχετικό με αυτό που θέλω.

Θέλω να κάνω έναν ωρομετρητή για το προσωπικό.
Δηλαδή με κάποιον τρόπο με το που έρχεται ο εργαζόμενος πατώντας ένα κουμπί να αποθηκεύεται η τρέχουσα ώρα, και με το που φεύγει να κλικαρει και να αποθηκεύεται πάλι η τρέχουσα ώρα.
Το θέμα είναι ότι όλο αυτό θα πρέπει να γίνεται σε ένα κλειδωμένο φύλλο για να μην μπορεί κάποιος μετά να διορθώσει αυτή την ώρα χειροκίνητα.

Το πιο κοντινό που βρήκα σε αυτό που θέλω είναι η λύση που έστειλε εδώ ο chrisGT7 που με αυτόν τον τρόπο μπορείς να γράψεις και μετά να μείνει κλειδωμένο.
Το πρόβλημα όμως είναι ότι μέσα στο box που βγαίνει να πληκτρολογησω δεν μπορώ να κάνω επικόλληση την συνάντηση =NOW() που αποθηκεύει την τρέχουσα ώρα και ημέρα, αλλά ακόμα και όταν το γράφω χειροκίνητα ενημερώνονται και αλλάζουν ώρα όλα τα κελιά που έχω γράψει.

Αν έχει κάποιος να μου προτείνει κάτι επάνω σε αυτό, η κάποιον άλλο τρόπο να μπορώ να κάνω ωρομέτρηση θα το εκτιμούσα.

Ευχαριστώ