• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

ASLAN7410

ASLAN7410

Katılım
15 Temmuz 2012
Mesajlar
2,802
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
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.
 

Ekli dosyalar

  • Örnek.JPG
    Örnek.JPG
    98 KB · Görüntüleme: 26
Merhaba.
Aşağıdaki yolu izleyerek seçenekleri düzenleyebilirsiniz.

Dosya / Seçenekler / Güven Merkezi / Güven Merkezi Ayarları / Dış İçerik
 
Sayın dalgalikur, ilginiz için çok teşekkür ederim.
 
Arkadaşlar konu günceldir.

Bu konu gerçekten benim için önemli, yardımcı olur musunuz?
 
Sayın forum arkadaşlarım, konuyu hala çözemedim, konu günceldir.

Yardımcı olur musunuz?
 
Ekli resimdeki gibi yap
 

Ekli dosyalar

  • Yeni Bit Eşlem Resmi.jpg
    Yeni Bit Eşlem Resmi.jpg
    91.2 KB · Görüntüleme: 17
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?
 

Ekli dosyalar

  • Ekran Alıntısı.JPG
    Ekran Alıntısı.JPG
    139.8 KB · Görüntüleme: 9
Son düzenleme:
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?
 
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/
 
Son düzenleme:
Merhaba
Aşağıdaki gibi denermisiniz?
Kod: 
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
 

Ekli dosyalar

Son düzenleme:
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

Kod: 
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
 
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.

Kod: 
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
 

Ekli dosyalar

Son düzenleme:
ASLAN7410' Alı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.
Genişletmek için tıkla ...
Rica ederim, güle güle kullanın.
Son eklediğiniz kodlardaki aşağıdaki kısım, mükerrer birini silersiniz
Kod: 
RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\DataConnectionWarnings"

y.RegWrite RegKey, 0, "REG_DWORD"
 
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst