Pomozi te mi Molim Vas oko ovoga projekta z VB-u

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Imam negdje grešku u kodu,program sam napravio da kad pokrečem word da me pita za šifru i ako 5 puta pogriješim izbaci me iz programa,
program radi u microsoft excellu,ali ne i microsoft wordu,sigurno sam negdje pogriješio kod ali neznam gdje


[Link mogu videti samo ulogovani korisnici]

sifra je:sifra

tako treba da izgleda i u worldu,ali nemogu nikako da napravim...

MOLIM VAS POMAGAJTE!!!!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Pa to je veoma lako, u word sam kopirao iz excela i ubacio sve tvoje kontrole sa imenima koje si im ti dao.

Poboljsao sam tvoj kod na taj nacin sto sam ubacio opciju da ako nezna sifru i zatvori formu, da izadje iz aplikacije.

U formi u Wordu, koja se ovde zove UserForm1 ubaci sledeci kod:


' Autor: rgdrajko Option Explicit Public sifra As String Public ukubrojpokusaja As Integer Public brojac As Integer Public unesenajetacnasifra As Boolean Private Sub ok_btn_Click()     Call provera End Sub Private Sub UserForm_Initialize()     sifra = "sifra"     ukubrojpokusaja = 5     brojac = ukubrojpokusaja End Sub Private Sub UserForm_Terminate()     If unesenajetacnasifra = False Then         Application.Quit     End If End Sub Public Sub provera()     If UserForm1.sifra_txt.Text = sifra Then         MsgBox "Ovo je tacna sifra"         End         Else             MsgBox "sifra nije tacna"             brojac = brojac - 1             UserForm1.pokusaj_lbl.Caption = brojac             If brojac = 0 Then                 Application.Quit             End If     End If End Sub U modulu1 ubaci sledeci kod: Public Sub Macro1()     UserForm1.Show End Sub
Dao sam i Word fajl dole da sve to proveris.

[Link mogu videti samo ulogovani korisnici]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

ali kako da kad pokrenem word da me automatski pita za šifru.

Ovako mi udje u word i ja onda moram da pokrenem makro



HVALA!!!!!!!!!!!!!!!!!!

Dopuna: 18 Sep 2008 20:58

zna te li napraviti da pririskom na enter ukucate šifru,da nemorate stisnuti OK?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Ovako:

Sam Word za objekat Document ima dogadjaj Open koji se izvrsava pri ucitavanju dokumenta, u njega ubaci kod koji je bio u modulu bas(bas modul Module1 obrisi ili ga ostavi praznog):

Private Sub Document_Open()
UserForm1.Show
End Sub

U komandnom dugmetu u dogadjaju Enter unesi sledeci kod(da bi mogao da koristis i misa i taster Enter):

Private Sub ok_btn_Enter()
Call provera
End Sub

U UserForm1 u subrutinu Provera moras ubaciti i sledeci kod ispod smanjenja brojaca:

UserForm1.sifra_txt.Text = ""
UserForm1.sifra_txt.SetFocus

Ovaj kod brise neispravnu sifru u tekst kontroli sifra_txt i postavlja fokus na nju.

I to je to.

Ceo novi ispravljeni kod je ovaj:
U ThisDocument upisi:
Private Sub Document_Open()     UserForm1.Show End Sub
U UserForm1 upisi:
' Autor: rgdrajko Option Explicit Public sifra As String Public ukubrojpokusaja As Integer Public brojac As Integer Public unesenajetacnasifra As Boolean Private Sub ok_btn_Enter()     Call Provera End Sub Private Sub UserForm_Initialize()     sifra = "sifra"     ukubrojpokusaja = 5     brojac = ukubrojpokusaja End Sub Private Sub UserForm_Terminate()     If unesenajetacnasifra = False Then         Application.Quit     End If End Sub Public Sub Provera()     If UserForm1.sifra_txt.Text = sifra Then         MsgBox "Ovo je tacna sifra"         End         Else             MsgBox "sifra nije tacna"                         brojac = brojac - 1             UserForm1.pokusaj_lbl.Caption = brojac                         UserForm1.sifra_txt.Text = ""             UserForm1.sifra_txt.SetFocus                                     If brojac = 0 Then                 Application.Quit             End If     End If End Sub


Jedna napomena:

Posto se macro sifra izvrsava odmah po ucitavanju dokumenta, neces moci da udjes u word dokument(niti da prekines izvrsavanje makroa) sve dok ne otkucas ispravnu sifru: sifra.
Sa Alt-F11 ulazis u prozor sa kodom.

Dole ispod sam ti dao i sam Word dokument sa ispravljenim makroom prema tvojim zahtevima.


[Link mogu videti samo ulogovani korisnici]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

svaka čast Rajko kralju,najblji si-šta bi mi bez tebe