Köprü güvenlik sorunu

[ASLAN7410]

Merhaba hayırlı geceler.

Excel dosyamın C sütununda çok sayıda köprüler oluşturdum, her köprüye tıkladığımda ekte gönderdiğim resimdeki gibi Microsoft Office olası bir güvenlik sorunu belirledi şeklinde uyarı mesajı alıyorum.

Forumda ve internette araştırdım ancak bulamadım.
Bunu nasıl kapatabilirim. Yardımcı olur musunuz?

 

[Ömer BARAN]

Merhaba.

Aşağıdaki bağlantıya bir bakın isterseniz, işinize yarayabilir.

https://support.microsoft.com/tr-tr/kb/925757
.

 

[ASLAN7410]

Sayın Ömer Bey ilginiz için çok teşekkür ederim, dediğiniz linki inceledim, bilgisayar ayarları ile uğraşmak biraz tehlikeli geldi bana.

Bu işlem bir makroya atanmaz mı?

 

[ASLAN7410]

Sayın Ömer Bey daha önceden linklerden aldığım verilerle 2013 ofis'te tüm makro güvenlik düzeyini düşüren VBScript Komut Dosyasını kendime göre düzenlemiştim.

Bu şekilde köprü sorunu yazılabilir mi?

 

[Ömer BARAN]

Açıkçası böyle bir makro konusunu bilemiyorum doğrusu.

Adres microsoft'a ait olduğu için vermiştim zaten.

Yoksa böyle bir konuda adres vermezdim.
.

 

[ASLAN7410]

Sayın Ömer Bey yine de ilginiz için çok teşekkür ediyorum.

Benim gibi daha önceden bu konu ile forumda aşağıdaki linkte soru sorulmuş ancak cevapsız kalmış.

http://www.excel.web.tr/f14/kopru-formulu-ve-guvenlik-sorunu-hk-t156989.html

 

[ASLAN7410]

Sayın arkadaşlar konu günceldir.

Şimdiye kadar böyle bir konu ile karşılaşan yok herhalde?

 

[ASLAN7410]

Forum üyelerinden Sayın Haluk Bey'in aşağıdaki linkte Register de yeni anahtar oluşturmak sorusuna cevap vermiş, bu çalışmaya göre bir düzenleme yapamadım. Yardımcı olurmusunuz?

http://www.excel.web.tr/f48/register...ak-t15594.html

 

[ASLAN7410]

Haluk Bey'in http://www.excel.web.tr/f48/register-de-yeni-anahtar-olu-turmak-t15594.html bu linkde aşağıdaki yazmış olduğu kod.

Sub WriteReg()
    Dim WSH_Shell As Object
    RegKey = "HKCU\Software\Microsoft\Internet Explorer\Main\Ornek "
    Set WSH_Shell = CreateObject("WScript.Shell")
    WSH_Shell.RegWrite RegKey, 1, "REG_DWORD"
End Sub

Sub DelReg()
    Dim WSH_Shell As Object
    RegKey = "HKCU\Software\Microsoft\Internet Explorer\Main\Ornek "
    Set WSH_Shell = CreateObject("WScript.Shell")
    WSH_Shell.RegDelete RegKey
End Sub

Bende Haluk Bey'in yazmış olduğu kodlara göre aşağıdaki kodları uyarlamaya çalıştım Regedit kısmını kontrol ediyorum hiç bir şey yapmıyor, ayrıca hata veriyor.

Sub WriteReg()
    Dim WSH_Shell As Object
    RegKey = "HKCU\Software\Microsoft\Office\15.0\Common\Security"
    Set WSH_Shell = CreateObject("WScript.Shell")
    WSH_Shell.RegWrite RegKey, 1, "REG_QWORD"
End Sub

Sub DelReg()
    Dim WSH_Shell As Object
    RegKey = "HKCU\Software\Microsoft\Office\15.0\Common\Security"
    Set WSH_Shell = CreateObject("WScript.Shell")
    WSH_Shell.RegDelete RegKey
End Sub

https://social.microsoft.com/Forums...cel-excel-bozuk-dosyas-hakknda?forum=officetr
Bu adreste böyle bir çalışma var ancak bir türlü düzenleyemedim.
Yardımcı olur musunuz?

 

[Zeki Gürsoy]

Tarife göre bunu unutmuşsunuz:

DisableHyperlinkWarning

Ayrıca "REG_DWORD" olmalı

 

[ASLAN7410]

Sayın Zeki Bey ilginiz için çok teşekkür ediyorum.

https://social.microsoft.com/Forums...cel-excel-bozuk-dosyas-hakknda?forum=officetr bu adreste bilgisayarın 32 bit için DWORD (32 Bit), 64 bit için QWORD (64 Bit) var, ondan dolayı QWORD yazmıştım.

Ayrıca DisableHyperlinkWarning bunu nereye yazmam gerekiyor.

Kod'dan fazla anlamadığım için bir türlü yapamadım, kodu düzenleyebilir misiniz?

 

[Zeki Gürsoy]

Gerçi işe yaramadığını yazmışlar ama siz yine de deneyin.

Sub WriteReg()
    Dim WSH_Shell As Object
    RegKey = "HKCU\Software\Microsoft\Office\15.0\Common\Security\DisableHyperlinkWarning"
    Set WSH_Shell = CreateObject("WScript.Shell")
    WSH_Shell.RegWrite RegKey, 1, "REG_DWORD"
End Sub

 

[ASLAN7410]

Sayın Zeki Bey ellerinize sağlık, çok teşekkür ederim, tam istediğim gibi oldu.

Allah razı olsun, hayırlı geceler hayırlı çalışmalar dilerim.