Άνοιγμα αρχείου που προστατεύεται με κωδικό πρόσβασης μέσω VBA

Πώς να παρακάμψετε ένα ερώτημα κωδικού πρόσβασης με το VBA

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

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

Υπο OpenPasswordFile ()
Dim Mappe As Workbook
Ορίστε Mappe = Application.Workbooks.Open (Όνομα αρχείου: = "C: \ Files \ Protection file.xls", Password: = "Password")
Τέλος υπο

Φυσικά, αυτό λειτουργεί μόνο εάν γνωρίζετε τον κωδικό πρόσβασης. Για να το κάνετε αυτό, αντικαταστήστε το κείμενο "Κωδικός πρόσβασης" με τον κωδικό πρόσβασης που έχετε καθορίσει. Χρησιμοποιώντας τις μεταβλητές αντικειμένου Ντοσιέ μπορείτε να χρησιμοποιήσετε αυτήν τη μεταβλητή για εύκολη πρόσβαση στα φύλλα εργασίας του τρέχοντος ανοιχτού βιβλίου εργασίας μετά το άνοιγμα του βιβλίου εργασίας.