Jeg bruger arbejdsarkværktøjerne, opret et indeksark med knapper (VBA). Når jeg vælger en af knapperne, kører koden, som den skal, bortset fra, at den bliver ved med at kaste et "Kan ikke aktivere ODBC. Det kan være blevet slettet eller omdøbt." fejl. Det gør det samme for alle ark. Hvad er problemet?? Koden er som følger:
Sub GoToButton1_Click()
On Error Resume Next
Sheets ("ODBC"). Aktiver
Hvis Err <> 0 Then MsgBox "Kan ikke aktivere ODBC. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton2_Click()
On Error Resume Next
Sheets ("Master"). Aktiver
Hvis Err <> 0 Så MsgBox "Kan ikke aktivere Master. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton3_Click()
On Error Resume Next
Sheets("ALL").Aktiver
Hvis Err <> 0 Så MsgBox "Kan ikke aktivere ALLE. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton4_Click()
On Error Resume Next
Sheets ("BETALT"). Aktiver
Hvis Err <> 0 Så MsgBox "Kan ikke aktivere PAID. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton5_Click()
On Error Resume Next
Ark ("SETTLED"). Aktiver
Hvis Err <> 0 Then MsgBox "Kan ikke aktivere SETTLED. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton6_Click()
On Error Resume Next
Sheets ("LUKKET"). Aktiver
Hvis Err <> 0 Så MsgBox "Kan ikke aktivere LUKKET. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton7_Click()
On Error Resume Next
Sheets("Ikke-LEVÆRLIG").Aktivér
Hvis Err <> 0 Then MsgBox "Kan ikke aktivere NON-VIABLE. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton8_Click()
On Error Resume Next
Sheets ("LEGAL"). Aktiver
Hvis Err <> 0 Then MsgBox "Kan ikke aktivere LEGAL. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton9_Click()
On Error Resume Next
Sheets ("RESUMÉ"). Aktiver
Hvis Err <> 0 Then MsgBox "Kan ikke aktivere SUMMARY. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton1_Click()
On Error Resume Next
Sheets ("ODBC"). Aktiver
Hvis Err <> 0 Then MsgBox "Kan ikke aktivere ODBC. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton2_Click()
On Error Resume Next
Sheets ("Master"). Aktiver
Hvis Err <> 0 Så MsgBox "Kan ikke aktivere Master. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton3_Click()
On Error Resume Next
Sheets("ALL").Aktiver
Hvis Err <> 0 Så MsgBox "Kan ikke aktivere ALLE. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton4_Click()
On Error Resume Next
Sheets ("BETALT"). Aktiver
Hvis Err <> 0 Så MsgBox "Kan ikke aktivere PAID. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton5_Click()
On Error Resume Next
Ark ("SETTLED"). Aktiver
Hvis Err <> 0 Then MsgBox "Kan ikke aktivere SETTLED. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton6_Click()
On Error Resume Next
Sheets ("LUKKET"). Aktiver
Hvis Err <> 0 Så MsgBox "Kan ikke aktivere LUKKET. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton7_Click()
On Error Resume Next
Sheets("Ikke-LEVÆRLIG").Aktivér
Hvis Err <> 0 Then MsgBox "Kan ikke aktivere NON-VIABLE. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton8_Click()
On Error Resume Next
Sheets ("LEGAL"). Aktiver
Hvis Err <> 0 Then MsgBox "Kan ikke aktivere LEGAL. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub
Sub GoToButton9_Click()
On Error Resume Next
Sheets ("RESUMÉ"). Aktiver
Hvis Err <> 0 Then MsgBox "Kan ikke aktivere SUMMARY. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub