[ mirko1949 @ 10.10.2008. 08:14 ] @
U formi (UserForm) imam više CommandButton-a od kojih sam neka preko Properties zaključao stavljajući opciju na Locked: False. Pritiskom na dugme pojavljuje se poruka "Pristup nije moguć". Ovo zbog drugih korisnika.
Da li je moguće izvesti da kada ja hoću da otključam to dugme da na osnovu slične poruke (tipa Yes/No) nekako preko koda i na osnovu Pasworda direktno otklučam to dugme. Ako neko ima i neki drugi predlog, ali suština je u napred iznetom.
Pozdrav
[ timmy @ 10.10.2008. 10:13 ] @
Verovatno si mislio da si postavljao locked na true da zakljucas dugmice.

Evo jedne ideje na brzaka. Vrati svuda locked na false da dugmici postanu aktivni.

Napravis proceduru koja zahteva unos lozinke i ako je ispravan unos postavis promenljivu locked na false.
A onda za svaki Click event tvojih tastera dodas parce koda kojim proveravas stanje promenljive.

Code:

Public locked As Boolean

Private Sub CommandButton1_Click()
    If locked Then Otkljucaj
    If Not locked Then
            MsgBox "Hi"
            '......
    End If
End Sub

Public Sub Otkljucaj() As
    locked = InputBox("Sifra: ", "Eneter unlocking password") <> "123456"
End Function

Private Sub UserForm_Activate()
    locked = True
End Sub


Pozdrav
[ mirko1949 @ 10.10.2008. 21:17 ] @
Hvala timmy, probao sam nesto sa tvojim kodom, ali mi nije bas uspelo.
Ako bi mogao malo detaljnije ili mi zakacineki primer.
Pozdrav