Telefonszámunk: 1-472-0679

Kezdőlap Fórumok Excel programozás Login.show Hozzászólás: Login.show

#5859

delila
Felhasználó

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)