Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 03-09-12, 14:45
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.035
Προεπιλογή

Μεταφέρσου με ALT+F11 στον VBE.

Κάνε διπλό κλικ στο "ThisWorkbook" και στο παράθυρο δεξιά πέρασε το παρακάτω:

Κώδικας:
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "%{UP}"
End Sub

Private Sub Workbook_Open()
    Application.OnKey "%{UP}", "FollowLink"
End Sub
Σε μια κοινή λειτουργική μονάδα (Μενού "Insert>Module") πέρασε το παρακάτω:

Κώδικας:
Option Explicit

Sub FollowLink()
    If ActiveCell.Hyperlinks.Count Then
        ActiveCell.Hyperlinks(1).Follow False, True
    End If
End Sub
Επανεκκίνησε το αρχείο και δοκίμασε χρησιμοποιώντας το συνδυασμό ALT+UP (το βελάκι προς τα επάνω) .

Οι ρυθμίσεις του κέντρου αξιοπιστίας πρέπει να επιτρέπουν την εκτέλεση κώδικα για να λειτουργήσουν τα παραπάνω.
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση