Saya menggunakan Alat Lembar Kerja, Buat Lembar Indeks dengan tombol (VBA). Ketika saya memilih salah satu tombol kode berjalan sebagaimana mestinya, kecuali, itu terus melempar "Tidak dapat mengaktifkan ODBC. Mungkin telah dihapus atau diganti namanya." kesalahan. Ini melakukan hal yang sama untuk semua lembar. Apa masalahnya?? Kodenya adalah sebagai berikut:
SubGoToButton1_Click()
On Error Resume Next
Sheets("ODBC").Aktifkan
Jika Err <> 0 Kemudian MsgBox "Tidak dapat mengaktifkan ODBC. Mungkin telah dihapus atau diganti namanya."
Pada Kesalahan GoTo 0
End Sub
SubGoToButton2_Click()
On Error Resume Next
Spreadsheet ("Master"). Aktifkan
Jika Err <> 0 Kemudian MsgBox "Tidak dapat mengaktifkan Master. Mungkin telah dihapus atau diganti namanya."
Pada Kesalahan GoTo 0
End Sub
SubGoToButton3_Click()
On Error Resume Next
Sheets("ALL").Aktifkan
If Err <> 0 Kemudian MsgBox "Tidak dapat mengaktifkan ALL. Mungkin telah dihapus atau diganti namanya."
Pada Kesalahan GoTo 0
End Sub
SubGoToButton4_Click()
On Error Resume Next
Sheets("DIBAYAR").Aktifkan
Jika Err <> 0 Kemudian MsgBox "Tidak dapat mengaktifkan PAID. Mungkin telah dihapus atau diganti namanya."
Pada Kesalahan GoTo 0
End Sub
SubGoToButton5_Click()
On Error Resume Next
Sheets("SETTLED").Aktifkan
Jika Err <> 0 Kemudian MsgBox "Tidak dapat mengaktifkan SETTLED. Mungkin telah dihapus atau diganti namanya."
Pada Kesalahan GoTo 0
End Sub
SubGoToButton6_Click()
On Error Resume Next
Sheets("CLOSED").Aktifkan
Jika Err <> 0 Kemudian MsgBox "Tidak dapat mengaktifkan CLOSED. Mungkin telah dihapus atau diganti namanya."
Pada Kesalahan GoTo 0
End Sub
SubGoToButton7_Click()
On Error Resume Next
Sheets("NON-VIABLE").Aktifkan
Jika Err <> 0 Kemudian MsgBox "Tidak dapat mengaktifkan NON-VIABLE. Mungkin telah dihapus atau diganti namanya."
Pada Kesalahan GoTo 0
End Sub
SubGoToButton8_Click()
On Error Resume Next
Sheets("LEGAL").Aktifkan
Jika Err <> 0 Kemudian MsgBox "Tidak dapat mengaktifkan HUKUM. Mungkin telah dihapus atau diganti namanya."
Pada Kesalahan GoTo 0
End Sub
SubGoToButton9_Click()
On Error Resume Next
Sheets("RINGKASAN").Aktifkan
Jika Err <> 0 Kemudian MsgBox "Tidak dapat mengaktifkan RINGKASAN. Mungkin telah dihapus atau diganti namanya."
Pada Kesalahan GoTo 0
End Sub