Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Otključavanje CommandButton

[es] :: Office :: Excel :: Otključavanje CommandButton

[ Pregleda: 1839 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.zastava.net.



+2 Profil

icon Otključavanje CommandButton10.10.2008. u 08:14 - pre 188 meseci
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
 
Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net


+89 Profil

icon Re: Otključavanje CommandButton10.10.2008. u 10:13 - pre 188 meseci
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
 
Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.sbb.rs.



+2 Profil

icon Re: Otključavanje CommandButton10.10.2008. u 21:17 - pre 188 meseci
Hvala timmy, probao sam nesto sa tvojim kodom, ali mi nije bas uspelo.
Ako bi mogao malo detaljnije ili mi zakacineki primer.
Pozdrav
 
Odgovor na temu

[es] :: Office :: Excel :: Otključavanje CommandButton

[ Pregleda: 1839 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.