Forum - VBA Παράκαμψη κωδικού πρόσβασης

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

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

- - [VBA] Παράκαμψη κωδικού πρόσβασης (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/5775-parakampsi-kodikoi-prosbasis.html)

pierta

15-01-21 18:16

Παράκαμψη κωδικού πρόσβασης

1 Συνημμένο(α)

Καλησπέρα και καλή χρονιά σε όλους με υγεία.
Θα ήθελα τη βοήθειά σας.
Στο συνημμένο αρχείο έχω ένα κώδικα όπου κλείνει και ανοίγει ξανά το ίδιο αρχείο.
Το αρχείο έχει κωδικό πρόσβασης "1234".
Υπάρχει τρόπος να ανοίγει το αρχείο χωρίς να μου ζητάει τον κωδικό.
Ευχαριστώ

Tasos

15-01-21 19:00

1 Συνημμένο(α)

Καλησπέρα σε όλους!

Δημήτρη, βεβαίως και γίνεται.

Στο συνημμένο του μηνύματος (με κωδικό 1234) υπάρχει ο παρακάτω κώδικας:

Κώδικας:

Option Explicit
 

Sub ReOpen()

    ThisWorkbook.Saved = True

    ThisWorkbook.ChangeFileAccess xlReadOnly

    ThisWorkbook.ChangeFileAccess xlReadWrite

End Sub

Ίσως χρειαστεί να αντιστοιχίσεις ξανά τη μακροεντολή στο κουμπί πάνω στο φύλλο εργασίας.

Καλή συνέχεια!

Τάσος

pierta

15-01-21 19:27

Παράθεση:

Αρχική Δημοσίευση από Tasos (Μήνυμα 32103)

Κώδικας:

Option Explicit
 

Sub ReOpen()

    ThisWorkbook.Saved = True

    ThisWorkbook.ChangeFileAccess xlReadOnly

    ThisWorkbook.ChangeFileAccess xlReadWrite

End Sub

Σε ευχαριστώ πολύ Τάσο να είσαι καλά.
Καλή συνέχεια

Η ώρα είναι 09:40.

Search Engine Optimization by vBSEO 3.3.2