Güvenlik uyarısını etkinleştirmek

[ASLAN7410]

Merhaba, hayırlı sabahlar.

Ortak ağda kullandığımız klasör içerisinde iki tane excel dosyası var, bir tanesinde veriler mevcut, diğerinde formüllerin olduğu çizelgeler mevcut, formüller çok olduğu için her iki dosyayı bir dosyada birleştirildiğinde, dosya kilitleniyor.

Formüllerinin bulunduğu dosyayı hangi kullanıcı açarsa açsın, ekte gönderdiğim resimde görüldüğü gibi ileti çubuğundaki güvenlik uyarısı bağlantıların otomatik güncelleştirilmesi devre dışı bırakıldı uyarısı makro ile etkinleştirilebilir mi?

Yardımcı olur musunuz.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki yolu izleyerek seçenekleri düzenleyebilirsiniz.

Dosya / Seçenekler / Güven Merkezi / Güven Merkezi Ayarları / Dış İçerik

 

[ASLAN7410]

Sayın dalgalikur, ilginiz için çok teşekkür ederim.

 

[ASLAN7410]

Arkadaşlar aşağıda gönderdiğim örnek gibi .vbs uzantılı bir dosya içerisinde sayın dalgalikur'un dediği kısmı makro ile yapabilir misiniz?

 

[ASLAN7410]

Arkadaşlar konu günceldir.

 

[ASLAN7410]

Arkadaşlar konu günceldir.

Bu konu gerçekten benim için önemli, yardımcı olur musunuz?

 

[ASLAN7410]

Sayın forum arkadaşlarım, konuyu hala çözemedim, konu günceldir.

Yardımcı olur musunuz?

 

[halit3]

Ekli resimdeki gibi yap

 

[ASLAN7410]

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

Bu sizin dediğiniz işlemi 4.mesajda göndermiş olduğum .vbs uzantılı dosya içerisinde kodlar var, bu dosyayı çalıştırdığımda makro güvenlik ayarlarını en alt seviyeye düşürüyor zaten.

Yapmak istediğim göndermiş olduğum .vbs uzantılı dosya içerisine sayın dalgalikur'un Dosya / Seçenekler / Güven Merkezi / Güven Merkezi Ayarları / Dış İçerik diye bahsettiği kısmı makro ile yapıp eklemek istemiştim.

Örnekteki işlemi makro ile .vbs uzantılı dosya içerisine eklemek istiyorum. Makro kaydet ile yaptığım zaman kodlar oluşmuyor, bu konuda yardımcı olur musunuz?

 

[ASLAN7410]

Arkadaşlar 4.numaralı mesajımda göndermiş olduğum .vbs uzantılı makro güvenliğini düşürmek isimli dosyayı da forumda arkadaşlar yapmıştı, ancak şuan kimin yaptığını hatırlamıyorum.

Yine aynı şekilde bu kodların arasına
Dosya / Seçenekler / Güven Merkezi / Güven Merkezi Ayarları / Dış İçerik/Tüm Veri Bağlantılarını etkinleştir (önerilmez) ve
Dosya / Seçenekler / Güven Merkezi / Güven Merkezi Ayarları / Dış İçerik/Tüm Çalışma Kitabı Bağlantılarını otomatik güncelleştirmeyi etkinleştir (önerilmez) bu kısımları makroyu çalıştırdığımda işaretlemesini istiyorum.

Makro kaydet ile yapmaya çalıştığımda kodlar oluşmuyor, bu konuda yardımcı olur musunuz?

 

[netzone]

Arkadaşlar 4.numaralı mesajımda göndermiş olduğum .vbs uzantılı makro güvenliğini düşürmek isimli dosyayı da forumda arkadaşlar yapmıştı, ancak şuan kimin yaptığını hatırlamıyorum.
..

Sanırım aradığınız konu bu: https://www.excel.web.tr/threads/eger-makro-guevenlik-ayarlari-yapilmamissa-otomatik-yaptirma.165024/

 

[ASLAN7410]

Sayın netzone ilginiz için çok teşekkür ediyorum.
Sayenizde önceden açmış olduğum konunun linkini buldum, aşağıdaki linkte konuyu ben açmışım, konunun çözümünüde sayın PLİNT vermiş. Bu linkte makro güvenlik ayarlarının düşürülmesinin kodlarını sayın PLİNT yazmış. Benim yapmak istediğim 10. mesajımdaki gibi istiyorum.

https://www.excel.web.tr/threads/gueven-merkezi-korumali-goeruenuem-ayari.154677/

 

[PLİNT]

Merhaba
Aşağıdaki gibi denermisiniz?

Private Sub CommandButton1_Click()
Dim y As Object
Dim v, Rg As String
v = Excel.Application.Version
Rg = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & v & "\Excel\Security\"
Set y = CreateObject("wscript.shell")
y.RegWrite Rg & "\DataConnectionWarnings", 0, "REG_DWORD"
y.RegWrite Rg & "\WorkbookLinkWarnings", 0, "REG_DWORD"
End Sub

 

[ASLAN7410]

Sayın PLİNT, ellerinize sağlık çok teşekkür ediyorum Allah razı olsun.

Kodu modülde çalıştırdığımda çalışıyor, istediğim sonucu alıyorum ancak, bu kodu ekte gönderdiğim .vbs uzantılı dosya içerisine eklediğimde hata verdi, bunu nasıl düzenleyebiliriz? Bu konuda yardımcı olur musunuz?

http://s7.dosya.tc/server11/uoahyj/o_guvenligi_ve_korumali_gorunumu_dusurmek.rar.html

 

[PLİNT]

Merhaba
Dosyanızı aşağıdaki gibi kısaltmaya çalıştım
yukarıdaki vba kodlarındaki
"\WorkbookLinkWarnings", 0, "REG_DWORD" bölümünü eklememişsiniz gerekliyse eklersiniz
"vbs" dosyası olarak kaydedip deneyelim

s = MsgBox("* EVET'i seçerseniz Makro ayarlarınızı ve korumalı görünüm ayarlarını " & vbCrlf & "  düşürür." & vbCrLf & _
"* HAYIR'ı seçerseniz hiç bir işlem yapmaz.",  vbInformation + vbYesNo, "A S L A N")

If s = vbYes Then
'VB Erişimine Güven

Set versiyon = CreateObject("Word.Application")

a=versiyon.Version
RT=array("Word","Excel","PowerPoint","Access")
Set y = CreateObject("wscript.shell")
for m=0 to ubound(RT)
RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\ProtectedView\DisableAttachmentsInPV"
y.RegWrite RegKey, 1,"REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\ProtectedView\DisableInternetFilesInPV"
y.RegWrite RegKey, 1,"REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\ProtectedView\DisableUnsafeLocationsInPV"
y.RegWrite RegKey, 1,"REG_DWORD"


RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\VBAWarnings"
y.RegWrite RegKey, 1, "REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\Level"
y.RegWrite RegKey, 1, "REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\DataConnectionWarnings"
y.RegWrite RegKey, 0, "REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\AccessVBOM"
y.RegWrite RegKey, 1, "REG_DWORD"

next

MsgBox "* İşlem başarıyla tamamlanmıştır.", vbInformation, "A S L A N"
End If

If s = VbNo Then
MsgBox "* Hiç bir işlem yapılmadı!..", vbInformation, "A S L A N"
End If

 

[ASLAN7410]

Sayın PLİNT, ellerinize sağlık çok teşekkür ediyorum, Allah razı olsun, tam istediğim gibi oldu.
Hakkınızı helal edin. Hayırlı geceler diliyorum. Dediğiniz kısmıda kod içerisine ekledim, süper çalışıyor. Belki birisinin işine yarar diye ekliyorum.

s = MsgBox("* EVET'i seçerseniz Makro ayarlarınızı ve korumalı görünüm ayarlarını " & vbCrlf & "  düşürür." & vbCrLf & _
"* HAYIR'ı seçerseniz hiç bir işlem yapmaz.",  vbInformation + vbYesNo, "A S L A N")

If s = vbYes Then
'VB Erişimine Güven

Set versiyon = CreateObject("Word.Application")

a=versiyon.Version
RT=array("Word","Excel","PowerPoint","Access")
Set y = CreateObject("wscript.shell")
for m=0 to ubound(RT)
RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\ProtectedView\DisableAttachmentsInPV"
y.RegWrite RegKey, 1,"REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\ProtectedView\DisableInternetFilesInPV"
y.RegWrite RegKey, 1,"REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\ProtectedView\DisableUnsafeLocationsInPV"
y.RegWrite RegKey, 1,"REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\VBAWarnings"
y.RegWrite RegKey, 1, "REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\Level"
y.RegWrite RegKey, 1, "REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\DataConnectionWarnings"
y.RegWrite RegKey, 0, "REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\WorkbookLinkWarnings"
y.RegWrite RegKey, 0, "REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\AccessVBOM"
y.RegWrite RegKey, 1, "REG_DWORD"

next

MsgBox "* İşlem başarıyla tamamlanmıştır.", vbInformation, "A S L A N"
End If

If s = VbNo Then
MsgBox "* Hiç bir işlem yapılmadı!..", vbInformation, "A S L A N"
End If

 

[PLİNT]

Sayın PLİNT, ellerinize sağlık çok teşekkür ediyorum, Allah razı olsun, tam istediğim gibi oldu.
Hakkınızı helal edin. Hayırlı geceler diliyorum. Dediğiniz kısmıda kod içerisine ekledim, süper çalışıyor. Belki birisinin işine yarar diye ekliyorum.

Rica ederim, güle güle kullanın.
Son eklediğiniz kodlardaki aşağıdaki kısım, mükerrer birini silersiniz

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\DataConnectionWarnings"

y.RegWrite RegKey, 0, "REG_DWORD"

 

[ASLAN7410]

Sayın PLİNT dediğiniz gibi yaptım, 16. mesajdaki kodu ve dosyayı güncelledim, çok teşekkür ediyorum, hayırlı geceler diliyorum.