Sifre makrosu onayindan sonra anamenu makrosu acilsin

[Jezus]

Merhaba arkadaslar
sifre makrosunu AutoOpen yaptim guzel calisiyor fakat, benim istedigim sifre AutoOpen kalacak ve sifre onayindan sonra anamenu,de otomatik acilsin bu mumkunmu.? tesekkurler



Selamlar
=======
Jezus

 

[mraltin]

Mumkun calismani ekte gonderirsen yapabiliriz.
Bunun icin If Else komutlarini Kullanacaksin.
Yani Acilistaki Sifre ekraninda bir textbox dusunelim.
If textbox1="123" Then
Userform1.Show
Else
msgbox"HATALI ÞİFRE"
End If
Gibi.....

 

[Jezus]

Selam bu soylediginizi nereye yazacam..?

With PassWForm.CodeModule
X = .CountOfLines
.InsertLines X + 1, "Sub CommandButton2_Click()"
.InsertLines X + 2, "ActiveWindow.Close"
.InsertLines X + 3, "End Sub"
.InsertLines X + 4, "Sub CommandButton1_Click()"
.InsertLines X + 5, "MyUser = TextBox1"
.InsertLines X + 6, "MyPass = TextBox2"
.InsertLines X + 7, "Unload Me"
.InsertLines X + 8, "End Sub"
.InsertLines X + 9, "Sub UserForm_Activate()"
.InsertLines X + 10, "Me.SpecialEffect=3"
.InsertLines X + 11, "End Sub"
.InsertLines X + 12, "Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)"
.InsertLines X + 13, "If CloseMode <> 1 Then Cancel = True"
.InsertLines X + 14, "End Sub"
End With
VBA.UserForms.Add(PassWForm.Name).Show
ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=PassWForm
End Sub

 

[Jezus]

Sayin mraltin
Verdigin ornek bana isik oldu yaptim cok guzel calisiyor sagol


Selamlar
=======
Jezus

 

[mraltin]

Ekteki ornek gibi birsey mi istiyorsunuz?İncelermisiniz?

 

[bedersu]

merhaba,
mraltin arkadaşın verdiği kodlar sizin istediğiniz kodlar.Bu kodları kullanıcı adı ve şifre girildikten ve TAMAM tuşuna basıldıktan sonraki satıra koyacaksınız.Bu satırı bulmak için kodlarınızı F8 tuşu ile adımlayın.(Sonraki çalışmalarınız da da işe yarar bu)Okunan satırlar sarı renkte olacaktır.