Çalışma Sayfası Araçları, Düğmelerle Dizin Sayfası Oluştur (VBA) kullanıyorum. Düğmelerden birini seçtiğimde, kod olması gerektiği gibi çalışıyor, ancak "ODBC etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir." hata. Tüm sayfalar için aynı şeyi yapar. Sorun ne?? Kod aşağıdaki gibidir:
Alt GoToButton1_Click()
On Error Resume Next
Sayfalar("ODBC").Etkinleştir
Hata <> 0 ise MsgBox "ODBC etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub
Alt GoToButton2_Click()
On Error Resume Next
E-Tablolar ("Ana"). Etkinleştir
Hata <> 0 ise MsgBox "Master etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub
Alt GoToButton3_Click()
On Error Resume Next
Sayfalar("TÜMÜ").Etkinleştir
Hata <> 0 ise MsgBox "TÜMÜ etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub
Alt GoToButton4_Click()
On Error Resume Next
Sayfalar("ÜCRETLİ").Etkinleştir
Err <> 0 ise MsgBox "PAID etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub
Alt GoToButton5_Click()
On Error Resume Next
Sayfalar("YERLEŞTİRİLDİ").Etkinleştir
Hata <> 0 ise MsgBox "SETTLED etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub
Alt GoToButton6_Click()
On Error Resume Next
Sayfalar("KAPALI").Etkinleştir
Hata <> 0 ise MsgBox "KAPALI etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub
Alt GoToButton7_Click()
On Error Resume Next
Sayfalar("YAŞAYAN DEĞİL").Etkinleştir
Eğer Err <> 0 ise MsgBox "NON-VIABLE etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub
Alt GoToButton8_Click()
On Error Resume Next
Sheets("YASAL").Etkinleştir
Hata <> 0 ise MsgBox "YASAL etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub
Alt GoToButton9_Click()
On Error Resume Next
Sayfalar("ÖZET").Etkinleştir
Hata <> 0 ise MsgBox "ÖZET etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub