Telefonszámunk: 1-472-0679

[Resolved] Login.show

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

Topic Resolution: Resolved
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.