Uporabljam orodja za delovni list, ustvarite indeksni list z gumbi (VBA). Ko izberem enega od gumbov, se koda zažene tako, kot bi morala, le da se vedno znova prikaže sporočilo "ODBC ni mogoče aktivirati. Morda je bil izbrisan ali preimenovan." napaka. Enako deluje za vse liste. V čem je problem?? Koda je naslednja:
Pod GoToButton1_Klik()
On Error Resume Next
Listi("ODBC"). Aktivirajte
Če je Err <> 0, potem MsgBox "Ni mogoče aktivirati ODBC. Morda je bil izbrisan ali preimenovan."
Ob napaki Pojdi na 0
End Sub
Pod GoToButton2_Klik()
On Error Resume Next
Sheets ("Master"). Aktivirajte
Če Err <> 0, potem MsgBox "Master ni mogoče aktivirati. Morda je bil izbrisan ali preimenovan."
Ob napaki Pojdi na 0
End Sub
Pod GoToButton3_Klik()
On Error Resume Next
Listi("VSE"). Aktivirajte
Če Err <> 0, potem MsgBox "Ni mogoče aktivirati VSEH. Morda je bilo izbrisano ali preimenovano."
Ob napaki Pojdi na 0
End Sub
Pod GoToButton4_Klik()
On Error Resume Next
Sheets("PAID").Aktivirajte
Če je Err <> 0, potem MsgBox "Plačano ni mogoče aktivirati. Morda je bilo izbrisano ali preimenovano."
Ob napaki Pojdi na 0
End Sub
Pod GoToButton5_Klik()
On Error Resume Next
Listi("POREDJENO"). Aktivirajte
Če je Err <> 0, potem MsgBox "Ne morem aktivirati SETTLED. Morda je bil izbrisan ali preimenovan."
Ob napaki Pojdi na 0
End Sub
Pod GoToButton6_Klik()
On Error Resume Next
Listi("ZAPRTO").Aktivirajte
Če Err <> 0, potem MsgBox "Ne morem aktivirati ZAPRTO. Morda je bil izbrisan ali preimenovan."
Ob napaki Pojdi na 0
End Sub
Pod GoToButton7_Klik()
On Error Resume Next
Listi("NON-VIABLE").Aktivirajte
Če je Err <> 0, potem MsgBox "Ne morem aktivirati NON-VIABLE. Morda je bil izbrisan ali preimenovan."
Ob napaki Pojdi na 0
End Sub
Pod GoToButton8_Klik()
On Error Resume Next
Listi("LEGAL").Aktivirajte
Če je Err <> 0, potem MsgBox "Ne morem aktivirati LEGAL. Morda je bil izbrisan ali preimenovan."
Ob napaki Pojdi na 0
End Sub
Pod GoToButton9_Klik()
On Error Resume Next
Listi("POVZETEK").Aktivirajte
Če je Err <> 0, potem MsgBox "PoVZETEK ni mogoče aktivirati. Morda je bil izbrisan ali preimenovan."
Ob napaki Pojdi na 0
End Sub