Forum - Γενικά αποκλεισμός των εντολών rename & save as

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [Γενικά] αποκλεισμός των εντολών rename & save as (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/6409-apokleismos-ton-entolon-rename-save.html)

αποκλεισμός των εντολών rename & save as

Κυρίες και Κύριοι μέλη του forum καλημέρα σας!!!

Έχω δημιουργήσει 41 πανομοιότυπα αρχεία, Δ10, Δ11, Δ12......Δ50, το περιεχόμενο των οποίων μεταφέρεται αυτομάτως σε ένα συγκεντρωτικό αρχείο.
Εάν όμως οι ισάριθμοι χρήστες των ανωτέρω 41 αρχείων προβούν (εσκεμμένα ή άθελά τους) σε rename ή save as αυτών, τότε το συγκεντρωτικό αρχείο δεν θα τροφοδοτείται αυτομάτως με το περιεχόμενο των νεομετονομασθέντων αρχείων.
Υπάρχει, λοιπόν, η δυνατότητα να αποκλεισθούν από τα ανωτέρω 41 αρχικά αρχεία (Δ10, Δ11, Δ12........ Δ50) οι εντολές rename & save as;;;;;;;; και πως ;;;;;;;

Καλημέρα Γιάννη,

Για την απενεργοποίηση της Αποθήκευσης ως, δοκίμασε τον παρακάτω κώδικα:

Κώδικας:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    If SaveAsUI Then Cancel = True

End Sub

Τα αρχεία θα πρέπει να είναι μορφής xlsm, ώστε να λειτουργούν οι μακροεντολές.

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

Καλησπέρα Χρήστο!!

Ευχαριστώ για τις λύσεις. Τα αρχεία μου Δ10, Δ11 κλπ. είναι της μορφής xlsx, συνεπώς θα πρέπει να τα αποθηκεύσω σε αρχεία με δυνατότητα μακροεντολών για να έχουν την μορφή xlsm, ΣΩΣΤΑ;;;;;
Την μακροεντολή σου θα την αντιγράψω όπως έχει σε μία module.

Εκτιμώ όλα τα εμπλεκόμενα αρχεία θα λειτουργούν σε cloud, που σημαίνει ότι είναι δίκτυο και θα ενημερωθεί σχετικά ο διαχειριστής για τον αποκλεισμό του rename.
Εάν έγραψα κάτι λάθος, διόρθωσέ με.

Ευχαριστώ

Γιάννη,

Ναι σωστά! Τα αρχεία Δ* θα πρέπει να αποθηκεύονται πλέον σε μορφή xlsm.

Η μακροεντολή θα τρέχει κάθε φορά ακριβώς πριν το συμβάν (event) της αποθήκευσης. Για να γίνει αυτό, δοκίμασε τα παρακάτω βήματα:

1. Δεξί κλικ πάνω στο όνομα του φύλλου εργασίας (κάτω αριστερά που μοιάζουν σαν καρτέλες).
2. Επιλέγεις Προβολή κώδικα.
3. Στο αριστερό μέρος του παραθύρου, διπλό κλικ στο Αυτό_το_βιβλίο_εργασίας.
4. Τέλος, στον κειμενογράφο κάνεις επικόλληση την παραπάνω μακροεντολή.

Όσον αφορά το cloud, δεν είμαι τόσο γνώστης για να σε βοηθήσω περισσότερο με τα δικαιώματα. Αλλά αν υπάρχει διαχειριστής, τότε σίγουρα θα γνωρίζει πως να μην επιτρέπεται οι χρήστες να επηρεάζουν τις ονομασίες των αρχείων.