Dosya açılmasın

[Schero]

Arkadaşlar...
Excel dosyasına giriş şifresi soran formu yaptım.
Þifre yanlış girildiğinde veya boş olduğunda excel dosyasını açmayacak hatta excel programını kapatacak bir makro komutu yazabilir misiniz?
Teşekkürler

 

[nziya]

Sayın Schero aşşağıdaki kodu modul içine kopyalayınız.
Sub auto_open()
Static sayac As Integer
Do
If sayac = 3 Then
ThisWorkbook.Close False
Else
If InputBox("Þifreyi girin") = "123" Then
GoTo devam
Else
sayac = sayac + 1
End If
End If
Loop
devam:
UserForm1.Show
End Sub

 

[Schero]

Sayın nziya

İlgilendiğiniz için teşekkür ederim.
Aslında benim yapmaya çalıştığım şu;
excel dosyama tıklandığında açılırken çalıştığı windows işletim sisteminin
55555-555-5555555-55555 şeklindeki kayıt numarasını buluyorum.
İzin verdiğim bilgisayarın kayıt numarası tutuyorsa dosya açılıyor tutmuyorsa açılmıyor. Ancak bu arada Ctrl+Break tuşlarına basıldığında makro kesiliyor ve dosya açılıyor. Ben bunun önüne geçmek istiyorum.
Yani izin verdiğim bilgisayarlarda excel çalışsın izin vermediklerimde dosya ve excel açılmasın.
Belki excel ve makro dışına çıkıyor olabilirim.
İyi günler ve teşekkürler...