Kezdőlap › Fórumok › Excel programozás › [Resolved] Login.show › Hozzászólás: [Resolved] Login.show
Vegyél fel egy lapot, ami üres, vagy csak olyasmi van rajta, amit mindenki láthat. Legyen a neve pl. Kezdőlap.
A ThisWorkbook laphoz rendelj egy makrót.
Private Sub Workbook_Open()
Sheets("Kezdőlap").Select
UserForm1.Show
End Sub
Ez indítja a UserForm1-et, ami csak egy textboxot, és egy commandbuttont tartalmaz (meg esetleg labelt, ami a jelszót bekérő szöveget tartalmazza).
A textbox PasswordCar tulajdonságához írj be egy csillagot. Ez a karakter jelenik majd meg begépeléskor.
Jön a gomb makrója.
Private Sub CommandButton1_Click()
If TextBox1 <> "Jelszó" Then 'Jelszó helyett írd az igazi jelszót
TextBox1 = ""
Else
UserForm1.Hide
UserForm2.Show
End If
End Sub
A UserForm2 tartalmazza a füzet többi adatának a bevitelét, miegyebet.
A Userform1 bezárását a jobb felső X-szel megakadályozhatod, nézz utána. Ilyent keress:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)