freeman 13.03.2018 23:57
Predmet:Input box kao lozinka

Može li mi netko pomoći oko koda kako bi text pretvorio u ***.Kao kod lozinke.
Evo kod.
Dim strInput As String
Dim ctl As Control

For Each ctl In Controls
If ctl.Tag = "*" Then
ctl.Visible = False
End If
Next ctl

If TabCtl0.Value = 1 Then
strInput = InputBox("Upišite lozinku za pristup" & vbNewLine & vbNewLine & "PASSWORD = xxxx", _
"Ograničenje pristupa")


If strInput = "" Or strInput = Empty Then
MsgBox "Nemate odobrenje", , "Odobrenje "
TabCtl0.Pages.Item(0).SetFocus
Exit Sub
End If


If strInput = "xxxx" Then

For Each ctl In Controls
If ctl.Tag = "*" Then
ctl.Visible = True
End If
Next ctl

Else
MsgBox ("Nažalost nemate pristup")
TabCtl0.Pages.Item(0).SetFocus

Exit Sub
End If
End If

End Sub

Gjoreski 14.03.2018 00:12
Predmet:Re: Input box kao lozinka

Imam odgovor za ova ama ke treba da pocekas do petok,ako ne go resi nekoj vo meguvreme

Gjoreski 15.03.2018 19:50
Predmet:Re: Input box kao lozinka

Evo ti Resenie
Stavi ovo u neki modul
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3.  
  4. Private Declare Function CallNextHookEx Lib "user32" _
  5.                                     (ByVal hHook As Long, _
  6.                                     ByVal ncode As Long, _
  7.                                     ByVal wParam As Long, _
  8.                                     lParam As Any) As Long
  9.  
  10. Private Declare Function GetModuleHandle Lib "kernel32" _
  11.                                     Alias "GetModuleHandleA" _
  12.                                     (ByVal lpModuleName As String) As Long
  13.  
  14. Private Declare Function SetWindowsHookEx Lib "user32" _
  15.                                     Alias "SetWindowsHookExA" _
  16.                                     (ByVal idHook As Long, _
  17.                                     ByVal lpfn As Long, _
  18.                                     ByVal hmod As Long, _
  19.                                     ByVal dwThreadId As Long) As Long
  20.  
  21. Private Declare Function UnhookWindowsHookEx Lib "user32" _
  22.                                     (ByVal hHook As Long) As Long
  23.  
  24. Private Declare Function SendDlgItemMessage Lib "user32" _
  25.                                     Alias "SendDlgItemMessageA" _
  26.                                     (ByVal hDlg As Long, _
  27.                                     ByVal nIDDlgItem As Long, _
  28.                                     ByVal wMsg As Long, _
  29.                                     ByVal wParam As Long, _
  30.                                     ByVal lParam As Long) As Long
  31.  
  32. Private Declare Function GetClassName Lib "user32" _
  33.                                     Alias "GetClassNameA" _
  34.                                     (ByVal hwnd As Long, _
  35.                                     ByVal lpClassName As String, _
  36.                                     ByVal nMaxCount As Long) As Long
  37.  
  38. Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
  39.  
  40.  
  41. Private Const EM_SETPASSWORDCHAR = &HCC
  42. Private Const WH_CBT = 5
  43. Private Const HCBT_ACTIVATE = 5
  44. Private Const HC_ACTION = 0
  45.  
  46. Private hHook As Long
  47.  
  48. Private Function NoviProces(ByVal lngCode As Long, _
  49.                         ByVal wParam As Long, _
  50.                         ByVal lParam As Long) As Long
  51.     Dim RetVal
  52.     Dim strClassName As String, lngBuffer As Long
  53.    
  54.     If lngCode < HC_ACTION Then
  55.         NoviProces = CallNextHookEx(hHook, lngCode, wParam, lParam)
  56.         Exit Function
  57.     End If
  58.    
  59.     strClassName = String$(256, " ")
  60.     lngBuffer = 255
  61.    
  62.     If lngCode = HCBT_ACTIVATE Then
  63.    
  64.         RetVal = GetClassName(wParam, strClassName, lngBuffer)
  65.        
  66.         If Left$(strClassName, RetVal) = "#32770" Then
  67.        
  68.            
  69.             SendDlgItemMessage wParam, _
  70.                                 &H1324, _
  71.                                 EM_SETPASSWORDCHAR, _
  72.                                 Asc("*"), _
  73.                                 &H0
  74.         End If
  75.    
  76.     End If
  77.    
  78.  
  79.     CallNextHookEx hHook, lngCode, wParam, lParam
  80.  
  81. End Function
  82.  
  83. Public Function InputBoxPas(Prompt, _
  84.                            Optional title, _
  85.                            Optional Default, _
  86.                            Optional XPos, _
  87.                            Optional YPos, _
  88.                            Optional HelpFile, _
  89.                            Optional Context) As String
  90.                            
  91.     Dim lngModHwnd As Long, lngThreadID As Long
  92.  
  93.     lngThreadID = GetCurrentThreadId
  94.     lngModHwnd = GetModuleHandle(vbNullString)
  95.    
  96.     hHook = SetWindowsHookEx(WH_CBT, AddressOf NoviProces, lngModHwnd, lngThreadID)
  97.     InputBoxPas = InputBox(title, _
  98.                             Default, _
  99.                             XPos, _
  100.                             YPos, _
  101.                             HelpFile, _
  102.                             Context)
  103.     UnhookWindowsHookEx hHook
  104.  
  105. End Function
Poziva se :

PreuzmiIzvorni kôd (Visual Basic):
  1.   K = InputBoxPas("", "Unesi Password", " Password")
  2.  If K = a Then
  3.   End If

freeman 14.03.2018 22:39
Predmet:Re: Input box kao lozinka

Ovo je za ms access.

Avko 15.03.2018 11:39
Predmet:Re: Input box kao lozinka

ja ti nemam pojma o accesu, jbg, tako da ti necu znati pokrenuti kod.
Probaj napraviti obrazac (form) na nju stavi txt box korisnik (user) i zaporka(password) te tipke LOGIN i OTKAZI (cancel) jbg, a koristis Eng acces ili imas prevod?

dobro nema veze, idemo dalje. Ja probao napraviti ali nisam znao kako pokrenuti kod. Kod excela mi to jednostavno samo kliknem na Run, jebajga



sada jos trebas kod sloziti u VBA , nesto kao provjeriti dali su polja prazna

PreuzmiIzvorni kôd (Text):
  1. Private Sub cmd_login_Click()
  2.  
  3. If Trim(txt_username.Value & vbNullString) = vbNullString Then
  4.     MsgBox prompt:="Morate unijeti korisnika", buttons:=vbInformation, title:="Upisi korisnika"
  5.     txt_username.SetFocus
  6.     Exit Sub
  7.   End If
  8.  
  9.   If Trim(txt_password.Value & vbNullString) = vbNullString Then
  10.     MsgBox prompt:="Morate unijeti zaporku", buttons:=vbInformation, title:="Upisi zaporku"
  11.     txt_password.SetFocus
  12.     Exit Sub
  13.   End If
  14.  
  15. ovdje ide kod koji provjerava u bazi dali korisnik odgovara zaporki
  16. trebao bi imati bazu podataka vjerojatno:
  17. userID
  18. korisnik
  19. zaporka
  20.  
  21. pa nekakvim SQL upitom iscitati to
  22. strSQL = "SELECT * FROM tbl_login WHERE korisnik= """ & txt_username.Value & """ AND zaporka = """ & txt_password.Value & """"
  23.  
  24. pa bi trebalo ici kao neki k....palac
  25.  
  26. Set db = CurrentDb
  27. Set rst = db.OpenRecordset(strSQL)
  28. If rst.EOF Then
  29.     MsgBox prompt:="netocan unos", buttons:=vbCritical, title:="Login Error"
  30.     txt_username.SetFocus
  31.   Else
  32.     MsgBox prompt:="Pozdrav, " & rst.Fields(0).Value & ".", buttons:=vbOKOnly, title:="Login Successful"
  33.     DoCmd.Close acForm, "frm_login", acSaveYes
  34.   End If
  35.  
  36.  Set db = Nothing
  37.  Set rst = Nothing
  38. end sub


eto dok ne dode neko pametan pa ti rijesi tu misteriju malo cemo se ovako dopisivati.

freeman 15.03.2018 19:37
Predmet:Re: Input box kao lozinka

Ma hvala na trudu.Formu za logiranje imam već u accessu sve to već radi.Ovo sam stavio usput.Input box mi se činio zanimljiv zbog ograničavanje pristupa.Bio sam u zadnjem postu postavio pitanje o ograničavanju pristupa preko korisničkog menija na alatnoj traci.PoÅ¡to ja radim na accessu 2007 u kojem nisam naÅ¡ao način.Kako izraditi korisnički meni u tool boxu.Odlučio sam se na neka rijeÅ¡enja preko input boxa.To mi se činilo jednostavno.Stavit ću ga da vidiÅ¡ kako to radi.Jedino sam htio da se pri unosu passworda ne prikazuju čitljivi znakovi nego maskirani.Ako netko ima rjeÅ¡enja tema je otvorena.Skinuo sam sa neta jedan modul koji je trebao rijeÅ¡iti moj problem ali zapinje kod-" AddressOf NewProc".

freeman 15.03.2018 19:39
Predmet:Re: Input box kao lozinka

Evo primjera.
Prilozi:
Baza podataka1.rar (Velicina datoteke:56.55 KB)

Avko 14.03.2018 10:17
Predmet:Re: Input box kao lozinka

neznam dali je to VBA za acces ili VB6 ili VBA za excel, ali ako je VBA za excel onda stavis na userform1 textbox1, a onda u properties for textbox1 pod passwordChar stavis *
jeli to to?

Avko 16.03.2018 09:46
Predmet:Re: Input box kao lozinka

freeman, kad ja ucitam tvoju bazuPodataka 1 pokaze mi ovu gresku. Znas li o cemu se radi?

Aplikacija koju pokuÅ¡avate koristiti ima referencu da ne može rijeÅ¡iti objekt, biblioteku vrsta, DLL ili vanjsku bazu podataka. Objekt, biblioteka vrsta, DLL ili baza podataka su izbrisani ili preimenovani. Radi određivanja jesu li potrebne daljnje akcije, u programu Visual Basic Editor otvorite izbornik Alati i u dijaloÅ¡kom okviru Reference provjerite popis Dostupne reference. Ako niste autor aplikacije, obratite se programeru ili administratoru sustava.

Ako ispred reference na popisu Dostupne reference stoji "NEDOSTAJE:", isključite potvrdni okvir kako biste uklonili referencu ako viÅ¡e nije potrebna. Ako vam je referenca joÅ¡ potrebna, isključite potvrdni okvir za "NEDOSTAJE: <referencename>" na popisu Dostupne reference, a zatim stvorite novu referencu datoteke pomoću gumba Pregled... Ako je riječ o instaliranoj aplikaciji baze podataka, možda ćete morati ponovno instalirati ili popraviti aplikaciju.

nedostaje HRDRV.dll, MIGV2.dll

Gjoreski 16.03.2018 12:08
Predmet:Re: Input box kao lozinka

Avko moras ih naci ovi dll i staviti u Sistem32