Makrolo excel sayfamda sürekli gizlilik uyarısı çıkıyor

[ASLAN7410]

Merhaba arkadaşlar hayırlı akşamlar.

Ekte gönderdiğim resimdedeki gibi excel sayfamı makrolo sayfaya çevirdiğimde sürekli olarak gizlilik uyarısı geliyor, bunu otomatik olarak kapatabilir miyiz?
Forumda araştırdım ancak bu bilginin nasıl kaldırılacağı yazmakta, ben bunun otomatik olarak makro ile kaldırılmasını istiyorum.

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

 

[ÖmerBey]

Merhaba,
Aşağıdaki linkten alıntı.

Varolan bir çalışma kitabına bağlı bir Excel çalışma kitabı oluşturduğunuzda hataları

Varolan bir çalışma kitabına bağlı yeni bir Excel çalışma kitabı oluşturursanız, aşağıdaki hatalar birleşimini görebilirsiniz.

Excel'den: "Gizlilik uyarısı: Bu belge makro, ActiveX denetimleri, XML genişletme paketi bilgileri veya Web bileşenleri içerir. Bu belge denetçisi tarafından kaldırılamaz kişisel bilgiler içerebilir."

Visual Studio'dan: "Doğru şekilde yükleyemedi Tasarımcısı."

Bu belge denetçisi kullanarak kişisel bilgilerini olan bir çalışma kitabı temel alan bir proje oluşturmak deneyin hatalar oluşabilir. Proje oluşturmadan önce bu hatayı önlemek için aşağıdaki adımları gerçekleştirin.

Çalışma kitabını Excel'de açın.

Güven Merkezi Excel'de açın.

Üzerinde Gizlilik Seçenekleri sekmesi Temizle Kaydederken dosya özelliklerinden kişisel bilgileri Kaldır onay kutusu.

Çalışma kitabını kaydedin ve Excel kapatın.

Office Çözümleri Hatalarında Sorun Giderme

 

[ASLAN7410]

Sayın Mucit ilginize çok teşekkür ederim. Sizin vermiş olduğunuz linki inceledim, zaten sayfayı Makro İçerebilen Excel Çalışma kitabı şeklinde kaydettiğimde bu uyarıyı verdiği için aşağıdaki yolu izleyerek güven merkezinden bunu kapatıyordum.

1. Çalışma kitabını Excel'de açın.
2. Güven Merkezi Excel'de açın.
3. Üzerinde Gizlilik Seçenekleri sekmesi Temizle Kaydederken dosya özelliklerinden kişisel bilgileri
4. Kaldır onay kutusu.
5. Çalışma kitabını kaydedin ve Excel kapatın.

Benim istediğim bu olayı makro ile bir butona atanır mı?

 

[ÖmerBey]

Evet, ben yanlış anlamışım. Makro kaydet ile kod oluşturmayı denediniz mi?
Ben de şu şekilde bir kod oluştu.

ActiveWorkbook.RemoveDocumentInformation (xlRDIDocumentProperties)
ActiveWorkbook.RemoveDocumentInformation (xlRDIRemovePersonalInformation)

Parantez içine aşağıdaki değerler uygulanabiliyormuş:
xlRDIAll
xlRDIComment
xlRDIContentType
xlRDIDefinedNameComments
xlRDIDocumentManagementPolicy
xlRDIDocumentProperties
xlRDIDocumentServerProperties
xlRDIDocumentWorkspace
xlRDIEmailHeader
xlRDIInactiveDataConnections
xlRDIInkAnnotations
xlRDIlPublishInfo
xlRDIRemovePersonalInformation
xlRDIRoutingSlip
xlRDIScenarioComments
xlRDISendForReview

 

[ASLAN7410]

Sayın Mucit Bey makro kaydet ile yaptığımda herhangi bir kod oluşmuyor.
Sizin göndermiş olduğunuz kodların neler yaptığını bir kaçını modül içerisinde denedim ancak neler yaptığını kusura bakmayın anlayamadım.

Yapmak istediğimin ekran videosunu ekte gönderiyorum.
Makro ile Excel Seçenekleri/Güven Merkezi/Güven Merkezi Ayarları/Gizlilik Seçenekleri kısmından Kaydederken dosya özelliklerinden kişisel bilgileri kaldır çentiğini kaldırmak istiyorum.

 

[ÖmerBey]

Bu çentik makro ile kaldırılabilir mi bilmiyorum ama aşağıdaki kod ile bu uyarının görünmesini engelleyebilirsiniz.
İyi çalışmalar...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Application
    .DisplayAlerts = False
    .EnableEvents = False
If SaveAsUI Then
    Application.Dialogs(xlDialogSaveAs).Show
Else
    ThisWorkbook.Save
End If
    Cancel = True
    .EnableEvents = True
    .DisplayAlerts = True
End With
End Sub

 

[ASLAN7410]

Sayın Mucit Bey dediğiniz gibi çentiği kaldırmıyor ama gizlilik uyarısı gelmiyor.

İlginiz için çok teşekkür ediyorum, çok işime yaradı, hayırlı geceler diliyorum.

 

[halit3]

Bu durum ne işe yarayacak bilmiyorum
Ama şunu soylüyeceğim bu çeltiği kaldırmak için bir kaç menü açmak gerekiyor elbette, makro ile yapınca da makro kodlarını bir modüle eklemek gerekiyor ve bir adet de komut düğmesi eklemek gerekiyor.

Hemen hemen iki işlemi de bütün dosyalarınızda yapmanız gerekeceğinden hiç bir avantajı olacağını düşünmüyorum belki bir eklenti ile bu sorunu çözebilirsiniz.

kod

Sub isaretver()
ActiveWorkbook.RemovePersonalInformation = True
End Sub
Sub isaretkaldır()
ActiveWorkbook.RemovePersonalInformation = False
End Sub

 

[ASLAN7410]

Sayın Halit Bey vardiyalı çalıştığım için bilgisayar başına yeni geçebildim.

Herhangi bir excel sayfasına kod ekleyip kaydet dediğimde gizlilik uyarısı mesajı gelmektedir, bunu kökten çözmekte isterim.
Verdiğiniz kodlar çok işime yaradı çok teşekkür ediyorum.

Eklenti ile sorunu çözebilir siniz diye yazmışsınız, bunu nasıl yapabilirim?

 

[halit3]

Bu kodları bir modülün içine kopyala ve kaydet ve kapat yeniden aç
En üste menü olarak gözükecektir.
İster eklenti dosyasına çevir isterseniz dosya açık kalsın başka dosyanızı açın ve menülerin üstündeki komutlardan çalıştırın.

Kaydettiğin dosyayı eklenti dosyası yani farklı kayıt et seçeneğinden xla uzantılı dosya olarak kayıt yapmanız gerekiyor konu ile arama yapınız.

Sub Auto_Open()
menu_sil
menu_ekle
End Sub
Sub Auto_Close()
Application.CommandBars("Cell").Reset
menu_sil
End Sub

Sub menu_sil()

Application.CommandBars("Worksheet Menu Bar").Reset
Dim cmdBar As CommandBar
For Each cmdBar In Application.CommandBars
If cmdBar.Name <> "Standard" Then
If cmdBar.Name <> "Formatting" Then
End If
End If
Next
End Sub

Sub menu_ekle()
Dim AnaMenu As CommandBarControl

Set AnaMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With AnaMenu
.Caption = "Makrolar"
.BeginGroup = False
End With
With AnaMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "İşaret ver"
.OnAction = "isaretver"
.FaceId = 251
End With

With AnaMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "İşareti kaldır"
.OnAction = "isaretkaldır"
.FaceId = 298
End With

End Sub

Sub isaretver()
ActiveWorkbook.RemovePersonalInformation = True
End Sub
Sub isaretkaldır()
ActiveWorkbook.RemovePersonalInformation = False
End Sub

eklenti ile ilgili aşağıdaki linki irdeleyiniz.

http://www.excel.web.tr/f133/kontrol-eklentileri-t140355.html
http://www.excel.web.tr/f48/xlam-dosyasyny-eklenti-olarak-ilgili-addins-klasorunu-makro-t140773.html
http://www.excel.web.tr/f157/office-2007-eklenti-dosyasy-olu-turmak-resimli-anlatym-t87279.html
https://officeuzmani.wordpress.com/2014/04/21/excel-eklentilerini-xla-xlam-nasil-ekleyebilirim/

 

[ASLAN7410]

Sayın Halit Bey ilginiz çok teşekkür ederim, süper oldu valla Allah razı olsun.

Hayırlı çalışmalar hayırlı geceler.