Telefonszámunk: 1-472-0679

Hozzászólás: [Resolved] Login.show

Kezdőlap Fórumok Excel programozás [Resolved] Login.show Hozzászólás: [Resolved] 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)