Telefonszámunk: 1-472-0679

[Resolved] Login.show

Kezdőlap Fórumok Excel programozás [Resolved] Login.show

Topic Resolution: Resolved

Ennek a témakörnek tartalma 8 hozzászólás, 3 résztvevő. Utolsó frissítés:  Potus 2 hónapja telt el.

9 bejegyzés megtekintése - 1-9 / 9
  • Szerző
    Bejegyzés
  • #5858

    Potus
    Felhasználó

    Sziasztok!
    Munkafűzetemet egy jelszavas belépéssel próbálom védeni, ami egy userformon keresztűl adható meg. A problémám csupán csak annyi, hogy mikor rákattintok a fájlra és még mielőtt a jelszó bevitelhez szükséges userform felugrana a fájl kezdő oldala jelenik meg. Nem látszik ugyan minden adat de kb a 80%-a igen. Ez így eléggé vicces. A lényegét veszti majdnem a dolog.
    A login makró meghívása a this workbook openben történik, több makróval egyetemben de a legelső lépésként…
    Van erre valami megoldás?
    a makró:

    Private Sub CmdClose_Click()
    Dim TextBox1
    If TXTuSERNAME.Value = “” Then
    If TXTPIN.Value = “” Then
    MsgBox “Please Input the User Name and the Password”
    Else
    MsgBox “Please Input the User Name”
    End If
    ElseIf TXTuSERNAME.Value = “****” Then
    If TXTPIN.Value = “” Then
    MsgBox “Please Input the Password”
    ElseIf TXTPIN.Value = “***” Then
    Me.Hide: Application.Visible = True
    Else
    MsgBox “Please Input the right User Name and the right Password”
    End If
    Else
    If TXTPIN.Value = “” Then
    MsgBox “Please Input the Password”
    Else
    MsgBox “Please Input the right User Name and the right Password”
    End If
    End If
    Application.ScreenUpdating = False
    If TXTuSERNAME.Value = “****” Then Sheets(“hívatkozások”).Range(“ha1”) = TXTuSERNAME.Value
    Sheets(“nyítólap”).Select
    re_fresh.SHOW
    Application.ScreenUpdating = True
    End Sub

    köszönöm a segítséget! Potus

    #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)

    #5860

    Potus
    Felhasználó

    Attól tartok ez nem megoldás a problémámra. Lehet félreértettük egymást…https://youtu.be/RU7IsYVjHYY
    A naptár kezdő oldala előbb látható mint ahogy a belépéshez szükséges userform megjelenik.
    A te megoldásod viszont csak a belépés után látszik.

    #5861

    Titok
    Felhasználó

    Van valami beforeClose esemény is excelben emlékeim szerint, ott beállíthatod, hogy bezárás előtt aktiválja a kezdőlapot.

    #5862

    Potus
    Felhasználó

    igen… valószínű ez a megoldás befejezése.
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets(“nulla”).Select
    End Sub
    köszi, mindenkinek!

    #5863

    Potus
    Felhasználó

    de, mi lehet az oka, hogy ilyen “lassan” tölti be a userform-ot?
    https://youtu.be/GWimtKGROoY

    #5865

    Titok
    Felhasználó

    Nem nagy a kép a háttérben? Mekkora fájl mérete?

    #5867

    Potus
    Felhasználó

    Sziasztok, Delila, Titok, Kulcsmester!

    Jelentős részét egyűtt hoztuk össze… KÖSZÖNÖM!!!!

    https://youtu.be/l2HYO2JXoA0

    Pacsi! Potus

    #5868

    Potus
    Felhasználó

    ez kimaradt a videóból.

    Attachments:
    You must be logged in to view attached files.
9 bejegyzés megtekintése - 1-9 / 9

Be kell jelentkezni a hozzászóláshoz.