Kezdőlap › Fórumok › Excel programozás › [Resolved] Login.show
- This topic has 8 hozzászólás, 3 résztvevő, and was last updated 5 years, 6 months telt el by Potus.
-
SzerzőBejegyzés
-
2019-05-13-21:37 #5858
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 Subköszönöm a segítséget! Potus
2019-05-14-13:41 #5859Vegyé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)
2019-05-15-05:37 #5860Attó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.2019-05-15-09:27 #5861Van valami beforeClose esemény is excelben emlékeim szerint, ott beállíthatod, hogy bezárás előtt aktiválja a kezdőlapot.
2019-05-15-10:19 #5862igen… valószínű ez a megoldás befejezése.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(„nulla”).Select
End Sub
köszi, mindenkinek!2019-05-15-10:30 #5863de, mi lehet az oka, hogy ilyen „lassan” tölti be a userform-ot?
https://youtu.be/GWimtKGROoY2019-05-15-13:08 #5865Nem nagy a kép a háttérben? Mekkora fájl mérete?
2019-05-19-08:16 #5867Sziasztok, Delila, Titok, Kulcsmester!
Jelentős részét egyűtt hoztuk össze… KÖSZÖNÖM!!!!
Pacsi! Potus
2019-05-19-10:49 #5868 -
SzerzőBejegyzés
- Be kell jelentkezni a hozzászóláshoz.