şifre yanlışsa form kapansın

[cobanoglu]

iyi akşamlar
excell sayfamın girişinde şifre soran formum var şifre yanlış girilirse mesaj dan sonra form kapansın istiyorum
saygılarımla
çoban:hey:

 

[Kemal Demir]

Sn.cobanoglu Aşagıdaki Kod'u deneyiniz.

Private Sub CommandButton1_Click()
sifre = "1234"
If TextBox1.Value = sifre Then
UserForm2.Show
Else
MsgBox ("Yanlıs Sifre")
Unload Me
End If

End Sub

 

[mesudiye_052]

Sub auto_open()
Dim sayac As Byte
Do
If Application.InputBox(prompt:="Lütfen şifreyi giriniz", Type:=1) = 123 Then Exit Do
sayac = sayac + 1
If sayac > 2 Then
ThisWorkbook.Close savecanges = False
End If
Loop
End Sub

şifreyi 123 olrak belirlemiştim siz değiştirirsiniz

 

[canavar_55]

........

Merhabalar,

Ben de makrolara yeni başlamış biri olarak,bir şey sormak istiyorum.

Bir excell sayfası yapsak ve açılışta bir şifre sorsa.
Ama aynı sayfayı başka biryere (Cd,flashdisk,başka harddisk vb) kopyalanmak istediğinde başka bir şifre sorsa. Böyle bir şey yapabilirmiyiz?
Teşekkür ederim.(Bu arada benim de bir tarafım Topçam)

 

[mesudiye_052]

Sayın arkadaş
ben de yeni yeni Makroya başladım şu an döngüleri bitirdim
yani sana bu konuda makro bilen ustadlar yardım eder diye düşünüyorum
kolay gelsin

 

[cobanoglu]

dediğinizi uyguyadım formum kapandı ama baska bir excell çalışması açıp kapattığım zaman formumun olduğu çalışma kitabının hala açık olduğunu görüyorum.yani şifre yanlış girildiğinde çalışma kitabımın o anki açılması iptal olsun çünkü belge yi tekrar aç dedeğimde zaten açık diyor ve bu sefer şifresiz açılıyorselam ve dua ile