Hücre olayları. Excelde Şifreleme

SelectionChange; hücrede işlem yapılsın veya yapılması başka bir hücreye geçildiğinde meydana gelen olaydır. Kodlar Thisworkbook event'ine yazılacaktır


Kodlar

Private Sub Workbook_Open()
Dim sifre As String
Dim i As String
sifre = InputBox("Lütfen Şifreyi giriniz", _
"Şifre Giriş Penceresi")
i = 1
Do While sifre <> "kodgentr"
If i >= 3 Then 'üc defa şifreyi yanlış girerse
MsgBox ("Program Kapatılıyor")
Application.Quit 'kapat
End If
sifre = InputBox("Şifreyi Yanlış Girdiniz", _
"Şifre Giriş Penceresi")
i = i + 1
Loop
End Sub

Örnek dosyayı indirmek için tıklayınız...