
03-09-12, 14:45
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού 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 Ανάπτυξη επαγγελματικών εφαρμογών |