Χρησιμοποιώ τα Εργαλεία φύλλου εργασίας, Δημιουργία φύλλου ευρετηρίου με κουμπιά (VBA). Όταν επιλέγω ένα από τα κουμπιά, ο κώδικας εκτελείται όπως θα έπρεπε, εκτός από το ότι συνεχίζει να λέει "Δεν είναι δυνατή η ενεργοποίηση του ODBC. Μπορεί να έχει διαγραφεί ή μετονομαστεί." λάθος. Το ίδιο κάνει για όλα τα φύλλα. Ποιο είναι το πρόβλημα?? Ο κωδικός είναι ο εξής:
Sub GoToButton1_Click()
On Error Συνέχιση Επόμενη
Φύλλα ("ODBC"). Ενεργοποίηση
Εάν Σφάλμα <> 0 Τότε MsgBox "Δεν είναι δυνατή η ενεργοποίηση του ODBC. Μπορεί να έχει διαγραφεί ή μετονομαστεί."
Στο σφάλμα GoTo 0
Sub End
Sub GoToButton2_Click()
On Error Συνέχιση Επόμενη
Φύλλα ("Master"). Ενεργοποίηση
Εάν Σφάλμα <> 0 Τότε MsgBox "Δεν είναι δυνατή η ενεργοποίηση του Master. Μπορεί να έχει διαγραφεί ή μετονομαστεί."
Στο σφάλμα GoTo 0
Sub End
Sub GoToButton3_Click()
On Error Συνέχιση Επόμενη
Φύλλα ("ALL"). Ενεργοποίηση
Εάν Σφάλμα <> 0 Τότε MsgBox "Δεν είναι δυνατή η ενεργοποίηση ΟΛΩΝ. Μπορεί να έχει διαγραφεί ή μετονομαστεί."
Στο σφάλμα GoTo 0
Sub End
Sub GoToButton4_Click()
On Error Συνέχιση Επόμενη
Φύλλα ("ΠΛΗΡΩΜΕΝΟ"). Ενεργοποίηση
Εάν Σφάλμα <> 0 Τότε MsgBox "Δεν είναι δυνατή η ενεργοποίηση του PAID. Μπορεί να έχει διαγραφεί ή μετονομαστεί."
Στο σφάλμα GoTo 0
Sub End
Sub GoToButton5_Click()
On Error Συνέχιση Επόμενη
Φύλλα ("SETTLED"). Ενεργοποίηση
Εάν Σφάλμα <> 0 Τότε MsgBox "Δεν είναι δυνατή η ενεργοποίηση του SETTLED. Μπορεί να έχει διαγραφεί ή μετονομαστεί."
Στο σφάλμα GoTo 0
Sub End
Sub GoToButton6_Click()
On Error Συνέχιση Επόμενη
Φύλλα ("ΚΛΕΙΣΤΑ"). Ενεργοποίηση
Εάν Σφάλμα <> 0 Τότε MsgBox "Δεν είναι δυνατή η ενεργοποίηση CLOSED. Μπορεί να έχει διαγραφεί ή μετονομαστεί."
Στο σφάλμα GoTo 0
Sub End
Sub GoToButton7_Click()
On Error Συνέχιση Επόμενη
Φύλλα ("ΜΗ ΒΙΩΣΙΜΟ"). Ενεργοποίηση
Εάν Σφάλμα <> 0 Τότε MsgBox "Δεν είναι δυνατή η ενεργοποίηση του NON-VIABLE. Μπορεί να έχει διαγραφεί ή μετονομαστεί."
Στο σφάλμα GoTo 0
Sub End
Sub GoToButton8_Click()
On Error Συνέχιση Επόμενη
Φύλλα ("ΝΟΜΙΚΑ"). Ενεργοποίηση
Εάν Σφάλμα <> 0 Τότε MsgBox "Δεν είναι δυνατή η ενεργοποίηση LEGAL. Μπορεί να έχει διαγραφεί ή μετονομαστεί."
Στο σφάλμα GoTo 0
Sub End
Sub GoToButton9_Click()
On Error Συνέχιση Επόμενη
Φύλλα ("ΣΥΝΟΨΗ"). Ενεργοποίηση
Εάν Σφάλμα <> 0 Τότε MsgBox "Δεν είναι δυνατή η ενεργοποίηση του SUMMARY. Μπορεί να έχει διαγραφεί ή μετονομαστεί."
Στο σφάλμα GoTo 0
Sub End