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
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
İ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...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.