Güven merkezi korumalı görünüm ayarı

ASLAN7410 · 12 Şubat 2016

Merhaba arkadaşlar hayırlı Cumalar.

Hazırlamış olduğum bazı makrolu excel sayfalarımı ağ üzerinde ortak sayfada kullandığımız için sürekli olarak korumalı görünüm düzenlemeyi etkinleştir şeklinde ileti çubuğuna mesaj gelmektedir.

Ekte gönderdiğim makro güvenliğini düşürme dosyası gibi çalıştırıp ileti çubuğuna gelen (Dosya\Seçenekler\Güven Merkezi\Güven Merkezi Ayarları\Korumalı Görünüm kısmındaki 3 adet çentiğin kaldırılmasını istiyorum) bu mesajdan devamlı olarak kurtulmak istiyorum.

Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

ASLAN7410 · 12 Şubat 2016

Sayın üstatlar ve yönetici arkadaşlar, bu işlemi makro kaydet ile yapmaya çalışıyorum, kod oluşmuyor.

feridici_genc · 12 Şubat 2016

Dostum selamun aleykum,
Aşağıdaki kod ekle menüsünden seçili bir hücreye açıklama ekliyor.

Kod:

Sub CommentAddOrEdit()

  Dim cmt As Comment
  Set cmt = ActiveCell.Comment
  If cmt Is Nothing Then
    ActiveCell.AddComment text:=""
  End If
  SendKeys "%ie~"
End Sub

Bizde buradan yola çıkarak aşağıdaki adımları yukarıdaki "%ie~" kısıma yedirmemiz lazım.
Hiç fare kullanmadan sadece klavyeden senin istediğin çentikleri kaldırabiliyoruz.
Bu işlemi makroya yaptırmamız gerekiyor.
1- ALT
2- D
3- R
4- G
5- G
6- ALT + G
7- K
8- TAB
9- SPEACE yada enter
10- TAB
11- SPEACE yada enter
12- TAB
13- SPEACE yada enter
14- TAB
15- TAB
16- ENTER
17- TAB
18- ENTER

Sadece yapamadığım 6 numara.. iki ayrı tuş için nasıl yapılıyor bulabilirsen isteğin şey BELKİ olabilir.

Kod:

Sub CommentAddOrEdit()
  
  SendKeys "%drgg%{g}k"
  SendKeys "tab"
  SendKeys "~"
  SendKeys "tab"
  SendKeys "~"
  SendKeys "tab"
  SendKeys "~"
  SendKeys "tab"
  SendKeys "tab"
  SendKeys "~"
  SendKeys "tab"
  SendKeys "~"
End Sub

feridici_genc · 12 Şubat 2016

6 numarayı buldum.
Aşağıdakiler o çentiklerin oraya kadar götürüyor ama tab tuşu ile yan sayfadaki çendiklerin olduğu yere geçmiyor makro. manuel yaparken tab tuşuna basınca çentiklerin üzerinde aşağı yukarı gezinme yapabiliyoruz. Üstadlar yardımcı olacaktır bu konuda.

Kod:

Sub CommentAddOrEdit()
  
  SendKeys "%drgg"
  SendKeys "%+(g)"
  SendKeys "k"
  SendKeys "tab"
  
  
End Sub

ASLAN7410 · 13 Şubat 2016

Aleykümselam Sayın Ferdi Bey, ilginiz için çok teşekkür ederim.

Yazmış olduğunuz 4 numaralı mesajdaki kod çok güzel olmuş ellerinize sağlık, çok işime yarayacak, ancak kod ActiveX Ayarları kısmına geliyor.

Yazmış olduğunuz kodun yapmış olduğu kısmın resmini gönderiyorum.

Benim istediğim Korumalı Görünümü kısmını açıp buradaki 3 adet çentiğini kaldırmasını istiyorum.

feridici_genc · 13 Şubat 2016

tekrar merhaba..
ActiveX Ayarları kısmına gelmesinin nedeni en sondaki SendKeys "tab"
yüzünden. onu silince istediğiniz yere geliyor ama işte yan tabloya geçmiyor.

ASLAN7410 · 13 Şubat 2016

Sayın Ferdi Bey, 3 nolu mesajınızda 1'den 18'e kadar bir şeyler eklemişsiniz, butonla Korumalı Görünümü gelindiği zaman 1.çentik Alt+I, 2.çentik Alt+G ve 3.çentik Alt+O şeklinde görünüyor, bunu koda çeviremez misiniz?

feridici_genc · 13 Şubat 2016

sanki oldu gibi.
çalıştırınca çentikleri kaldırıyor. tekrar çalıştırınca çentikleri tikliyor.

Kod:

Sub CommentAddOrEdit()
  
  SendKeys "%drgg"
  SendKeys "%+(g)"
  SendKeys "k"
  Application.SendKeys "{TAB}", True
  Application.SendKeys "{ }", True
  Application.SendKeys "{TAB}", True
  Application.SendKeys "{ }", True
  Application.SendKeys "{TAB}", True
  Application.SendKeys "{ }", True
  Application.SendKeys "{TAB}", True
  Application.SendKeys "{TAB}", True
  Application.SendKeys "{ }", True
  Application.SendKeys "{TAB}", True
  Application.SendKeys "{ }", True
  
End Sub

ASLAN7410 · 13 Şubat 2016

Sayın Ferdi Bey valla süper olacak inşallah, bu kod birşeyler yapıyor ancak Korumalı Görünüm kısmındaki 3 çentik hale aktif durumda duruyor.

feridici_genc · 13 Şubat 2016

dostum şöyle bir durum var. korumalı görünüm aktifken hiç bir makronun çalışacağını sanmıyorum. o da makro ile kaldırılırsa zaten güvenliğin bir önemi kalmaz. belki güvenlik ayarlarını düşük seviyesine getirirseniz istediğiniz olabilir ancak tüm tehditlere maruz kalabilirsiniz.

ASLAN7410 · 13 Şubat 2016

Sayın Ferdi Bey emeğinize sağlık, ilk mesajımda göndermiş olduğum 2013 Makro güvenliğini düşürmek.vbs isimli dosya ile makro ayarlarını en düşük seviyeye indiriyoruz, çalıştığımız dosyalar ağ üzerinde çalışıldığı için Korumalı Görünüm uyarısı sürekli geliyor, bilen arkadaşlar bu uyarı kısmına girip bu çentikleri kaldırıyor. Bilemeyenler ise uğraşıp duruyor.

Benim istediğim ise bu çentikleri bir butonla otomatik olarak kaldırmaktı.

feridici_genc · 13 Şubat 2016

Yazı yazarak pek kolay iletişim kuramıyoruz yada ben demek istediğinizi anlamıyorum.
Şöyle anlatayım anladığımı; siz 2013 Makro güvenliğini düşürmek.vbs isimli dosyanızı çalıştırıp güvenliği düşürdüğünüzde yukarıda paylaştığım dosya bu çentikleri kaldırıyor. Bahsettiğiniz dosya ya yukarıdaki kodları eklerseniz işinizin çözüleceğini umuyorum. Yada anlamadığım başka bir durum var.

ASLAN7410 · 13 Şubat 2016

Sayın Ferdi Bey, 2013 Makro güvenliğini düşürmek.vbs sayfayı çalıştırdığımda makro güvenliğini otomatik olarak en alt seviyeye düşürüyorum.

Sizin yazmış olduğunuz kodlar ile de Korumalı Görünümdeki 3 çentiği kaldırmak istiyorum, yazmış olduğunuz kodlar bu çentikleri kaldırıyor diyorsunuz, ama kaldırmıyor ki.

ASLAN7410 · 13 Şubat 2016

Sayın Ferdi Bey belki bu kodlarla ilgili olarak ben bir hata yapıyor olabilirim.

Yazmış olduğunuz kodlarla ilgili olarak küçük bir örnek sayfa ekleyebilir misiniz?

feridici_genc · 13 Şubat 2016

üstadım boş bir modül ekleyip kodları yapıştırın. bir butona atayıp çalıştırın. ben 2010 kullanıyorum gayet iyi çalışyor. siz 2013 kullanıyorsunuz çalışmamasının nedeni bu olabilir.
bana o çentiklere giden yolu klavye den basarak yazın bir de öyle deneyelim.

ASLAN7410 · 14 Şubat 2016

Sayın Ferdi Bey hayırlı sabahlar, tam sizin dediğiniz gibi yapıyorum olmadı, dediğiniz gibi belki ofis 2010 ile ofis 2013 arasındaki farktan olabilir.

Bahsettiğiniz çentiklere giden yolun ekran videosunu gönderiyorum. Bu konu çözülürse çok süper olacak.

Şimdiden teşekkür ediyorum.

http://s8.dosya.tc/server2/j88lzj/Ornek.avi.html

feridici_genc · 14 Şubat 2016

üstadım eski mesajlardaki kodlar, 3 çentik ekranına kadar geliyor ise aşağıdaki kodlar işe yarayabilir.

Kod:

Sub CommentAddOrEdit()
  
  SendKeys "%drgg"
  SendKeys "%+(g)"
  SendKeys "k"
  Application.SendKeys "{TAB}", True
  SendKeys "%+(i)"
  SendKeys "%+(g)"
   SendKeys "%+(o)"
  Application.SendKeys "{TAB}", True
  Application.SendKeys "{ }", True
  Application.SendKeys "{TAB}", True
  Application.SendKeys "{ }", True
  
End Sub

PLİNT · 14 Şubat 2016

Merhaba
Alternatif olarak denerseniz;

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\ProtectedView\"
Set y = CreateObject("wscript.shell")
y.RegWrite Rg & "\DisableAttachmentsInPV", 1, "REG_DWORD"
y.RegWrite Rg & "\DisableInternetFilesInPV", 1, "REG_DWORD"
y.RegWrite Rg & "\DisableUnsafeLocationsInPV", 1, "REG_DWORD"
End Sub

ASLAN7410 · 15 Şubat 2016

Sayın Ferdi Bey ve Sayın PLİNT vardiyalı çalıştığım için bilgisayar başına yeni geçtim.

Sayın Ferdi Bey sizin bu kodlar herhangi bir değişiklik yaptırmadı.

Sayın PLİNT sizin kodlar gayet güzel çalıştı, sizin yazmış olduğunuz bu kodu vbs uzantılı makro güvenliğini düşüren aşağıdaki dosya içerisine yerleştirdim ancak çalıştıramadım. Sizin bu kodları aşağıdaki kodların arasına yerleştirirsek gerçekten çok güzel olacak, bu iş benim için çok önemlidir.

Şimdiden teşekkürler.

Kod:

s = MsgBox("Makro ayarlarınızı düşürmek." & vbCrLf & _
vbCrLf & _
"* Devam etmek için EVET 'i ," & VbCrlf & _
"* Bu erişime güvenmiyosanız HAYIR 'ı seçmelisiniz.",  vbInformation + vbYesNo, "Uyarı")

If s = vbYes Then
'VB Erişimine Güven
RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\VBAWarnings"
Set WSH_Shell = CreateObject("WScript.Shell")
WSH_Shell.RegWrite RegKey, 1, "REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\Level"
Set WSH_Shell = CreateObject("WScript.Shell")
WSH_Shell.RegWrite RegKey, 1, "REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\DataConnectionWarnings"
Set WSH_Shell = CreateObject("WScript.Shell")
WSH_Shell.RegWrite RegKey, 0, "REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\AccessVBOM"
Set WSH_Shell = CreateObject("WScript.Shell")
WSH_Shell.RegWrite RegKey, 1, "REG_DWORD"

MsgBox "İşlem başarıyla tamamlanmıştır.", vbInformation, "Uyarı"

If s = vbNo Then
'VB Erişimine Güven
Application.DisplayAlerts = False: Application.Quit

End If
End If

PLİNT · 15 Şubat 2016

Merhaba
Dosyanıza bakma imkanım yok ama aşağıdaki gibi ekleyerek olabilir.

Kod:

 [SIZE="2"]s = MsgBox("Makro ayarlarınızı düşürmek." & vbCrLf & _
vbCrLf & _
"* Devam etmek için EVET 'i ," & VbCrlf & _
"* Bu erişime güvenmiyosanız HAYIR 'ı seçmelisiniz.",  vbInformation + vbYesNo, "Uyarı")

If s = vbYes Then

[COLOR="Red"]Set y = CreateObject("wscript.shell")
RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\ProtectedView\DisableAttachmentsInPV"
y.RegWrite RegKey, 1,"REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\ProtectedView\DisableInternetFilesInPV"
y.RegWrite RegKey, 1,"REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\ProtectedView\DisableUnsafeLocationsInPV"
y.RegWrite RegKey, 1,"REG_DWORD"
Set y = Nothing[/COLOR]


RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\VBAWarnings"
Set WSH_Shell = CreateObject("WScript.Shell")
WSH_Shell.RegWrite RegKey, 1, "REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\Level"
Set WSH_Shell = CreateObject("WScript.Shell")
WSH_Shell.RegWrite RegKey, 1, "REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\DataConnectionWarnings"
Set WSH_Shell = CreateObject("WScript.Shell")
WSH_Shell.RegWrite RegKey, 0, "REG_DWORD"

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\AccessVBOM"
Set WSH_Shell = CreateObject("WScript.Shell")
WSH_Shell.RegWrite RegKey, 1, "REG_DWORD"

MsgBox "İşlem başarıyla tamamlanmıştır.", vbInformation, "Uyarı"

If s = vbNo Then
'VB Erişimine Güven
Application.DisplayAlerts = False: Application.Quit

End If
End If  [/SIZE]

Güven merkezi korumalı görünüm ayarı

ASLAN7410

Ekli dosyalar

ASLAN7410

feridici_genc

feridici_genc

ASLAN7410

Ekli dosyalar

feridici_genc

ASLAN7410

feridici_genc

ASLAN7410

feridici_genc

ASLAN7410

feridici_genc

ASLAN7410

ASLAN7410

feridici_genc

ASLAN7410

feridici_genc

PLİNT

ASLAN7410

Ekli dosyalar

PLİNT