MISSING seçeneğinin otomatik kaldırılması

[EKREM1661]

Saygıdeğer Arkadaşlar..!

Malumunuz üzere; bazen dosyanın kod bölümünde Tools-References listesinde MISSING ile başlayan bir seçenek oluşuyor. (Ekseriyetle bilgisayardan bilgisayara taşıma/kopyalama yapıldığında kendini gösteriyor. Bu defada kod sayfasına gidip bu seçeneği kaldırmak gerekiyor. (Şifresini bilmeyen kişi için daha da sorun oluyor)

Böyle bir durumda kod sayfasına gitmeden bir buton yardımı ile bunu kaldırabilir miyiz..? Veya MISSING oluşması halinde, bunu çözen bir kodu sayfa açılışına da koyabilirsek bu sorunu kökten çözebiliriz diye düşünüyorum..

 

[Zeki Gürsoy]

Açılışta kontrol edilebilir. Dosya o durumdayken çalışır mı bilemiyorum.

Sub ref_kontrol()

    For Each ref In ThisWorkbook.VBProject.References
    
        If ref.isbroken Then ThisWorkbook.VBProject.References.Remove ref
        
    Next
    
End Sub

 

[EKREM1661]

Teşekkür ederim hocam..! Deneyince anlaşılacak elbet..