Excel dosyası bilgisayara internet bağlıyken 20-25 dakika gibi bir sürede açılıyor.

[Ergün ÇUBUK]

Excel dosyası bilgisayara internet bağlıyken 20-25 dakika gibi bir sürede açılıyor. Sanırım dosyaya bir dış bağlantı olmuş, bağlantı nasıl ve nereden kesilir.
Bağlantıları düzenleden sil diyorum, yene de silmiyor. Başka yolu olmalı diye düşünüyorum

 

[Trilenium]

İnterneti kesin.

ALt+F11 yapın ve aşağıdaki kodu çalıştırın

Sub del()

For Each ws In ActiveWorkbook.Worksheets: ws.UsedRange.Hyperlinks.Delete: Next ws

End Sub


Tüm sayfalarda ki linkleri silecektir.

Dikkat ! Dosyanızın yedeğini almadan bu işlemi yapmayınız.

 

[Ergün ÇUBUK]

Hayırlı sabahlar, kodu uyguladım, (Doğru uygulandığından emin değilim) ancak, dosya yine 20-25 dakikada açılıyor. Aşağıdaki linke dosyayı koydum, uygulayıp yollamanız mümkünmüdür, teşekkür ederim.

Link:

Lifebox Transfer: Upload File! Send and Share Large Files

Lifeboxtransfer is a fast file transfer service for sharing your files easily without membership. Click and start sharing your files fast and easily with lifeboxtransfer.

lifeboxtransfer.com

 

[Trilenium]

Lifebox Transfer: Upload File! Send and Share Large Files

Lifeboxtransfer is a fast file transfer service for sharing your files easily without membership. Click and start sharing your files fast and easily with lifeboxtransfer.

lifeboxtransfer.com

dosyanız bende hızlı açıldı.

tekrar indirip bir dener misiniz

 

[Ergün ÇUBUK]

Bilgisayar dosyayı zararlı görüyor, indirmiyor, e-posta adresi versem oraya yollayabilirmisiniz

 

[Ergün ÇUBUK]

Veyahut Zip dosyası yapmadan da yollanabilinirmi

 

[Trilenium]

Lifebox Transfer: Upload File! Send and Share Large Files

Lifeboxtransfer is a fast file transfer service for sharing your files easily without membership. Click and start sharing your files fast and easily with lifeboxtransfer.

lifeboxtransfer.com

 

[Erkan Akayay]

Thisworkbook içindeki bu kodların ne işe yarıyor.
Arka planda sürekli çalışıyor. Ekranda sürekli titreme var.


Private Sub Workbook_Open()
Hey
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime dtmNext, "Hey", , False
End Sub


 

[Trilenium]

Evet dış linkleriniz var formüllerin içinde yer alıyor.

CTRL+F yapın aranacak bölümünde Workbook seçin ve \ işaretini arayın .. sayfaları size dizecektir.

Eğer D diskinde bu dosyalar olmayabilir.

 

[Ergün ÇUBUK]

"Hey" kodu bazı sayfalarda ay değiştirme sütunundaki rakamı yanıp söner yapıyor, dikkat çekmesi için

 

[Erkan Akayay]

Bu kadar yoğun bir dosyada bu gecikme sizi ve sistemi gereksiz yere aşırı yorar.
Ama tabiki sorununuzun kaynağı bu değil.
Siz ilk yazdığınızda dosyada kod vardır ve internete bağlayan bir kod devreye giriyordur demiştim.
Dosyayı göremeyiz diye müdahil olmamıştım.
WEBtoArray adlı bir function buldum ama kullanılan bir yer göremedim.
İnternete bağlı değilken ağa bağlımısınız?
Formüllerinizde 2 yere bağlantı var.
C:\Users\Administrators\Desktop\[İltisak Hakkı Taşımaları (1).xlsm]
D:\Yük Servis Müdürlüğü\Taşıma Sonuçları\PdfDosyam\[Yük Taşıması Şubat 2023.xlsm|
Bu iki dosya mevcutmu? Mevcutsa sizin lokal disklerinizdemi?

 

[Ergün ÇUBUK]

Bahsaettiğiniz dosyaların adını bağlantıları kes te bende gördüm, ancak dosyalara ulaşamadım, silmiyorda

 

[Ergün ÇUBUK]

Şu anda izindeyim evden çalışıyorum, bilgisayarın içerisindeki dosyaların dışında başka bir ağ bağlantısı yoktur

 

[Erkan Akayay]

Sayfa korumalarını kaldırın.
Bağlantılara birde öyle bakın.
O zaman görürsünüz.
Dosyanıza ilk baktığımda dosya bağlantısı yoktu.
Sayfa korumaları olduğunu gördüm.
KYK Dolan sayfasında gizli sütunlar var. Orada bu dosyalara başvuru var.
Korumayı kaldırıp bağlantılara tekrar bakın.
Başka sayfalarda da bağlantılar var. 5 sayfa gördüm.

 

[Trilenium]

Şu anda izindeyim evden çalışıyorum, bilgisayarın içerisindeki dosyaların dışında başka bir ağ bağlantısı yoktur

Ergün Bey,

Link olarak değil o bağlantılar. O bağlantılar Formül içerisinde duruyor. Link olmadığı için kaldıramazsınız.

Ya CTR+H yöntemiyle Formüllerin bağlantılarını değiştireceksiniz ya da o formülleri kaldıracaksınız.

 

[Ergün ÇUBUK]

Dosyaların bağlantılarını "Bağlantığları Kes" kısmından kestim. Ancak dosyanın normal açılmasına bir etkisi olmadı. Anlayamadığım husus dosya internet kapalıyken normal açılıyor, internet açıkken geç açılıyor. Bir formül yada kod olmalı ki dosya açılırken internete bağlanıyor