Şifreyi Bilmeyen Excel Raporundan Çıktı Alamasın

Herkese merhaba,

Açık olan excelinizde önemli bir rapor var ve kimsenin eline geçmemesi gerekiyorsa işte bu tam size göre, Belki kısa süreliğinede olsa PC başından ayrıldığınızda raporunuzun kopyasını almak CTRL+P kadar yakındı şimdi yapsınlarda görelim :) 

Şimdilik çıktı almayı engelledik yakın zamanda mail gönderebilmeyide engellediğim çalışmayıda paylaşacağım.

Şimdi tek yapmamız gereken makromuzu aşağıdaki sıralamaya göre sayfamızın kod bölümüne koyabiliriz.

MAKRO:

Private Sub Workbook_BeforePrint(Cancel As Boolean) sifre = InputBox("Lütfen Çıktı Almak İçin Şifreyi Giriniz", _ "Yetkili Kişi", "") If sifre = "2860" Then 'şifre MsgBox "Şifre doğrulandı", vbInformation, _ "Şifre Doğru" Cancel = False MsgBox "Çıktı Alınmıştır" Else MsgBox "Yanlış şifre girdiniz." & Chr(13) & _ "Çıktı almak yasak", vbCritical, "Yanlış şifre" Cancel = True End If End Sub

Yapılması Gerekenler;

1-Sayfamızın "Developer" kod bölümüne geliyoruz
2-Visal Basic kısmına tıklıyoruz
3-İçinde bulunduğumuz Excel sayfmızın "ThisWorkbook" bölümüne tıklıyoruz.
4-Sağ tarafta açılan beyaz bölgeye yukarıdaki kodlarımızı ekliyoruz.
5-Geriye Excelimizi kaydetmek kalıyor.

BİLGİ: Kod içerisinde 2860 yazan yeri silip kendi istediğiniz şifreyi yazınız.