Új hozzászólás Aktív témák

• martonx veterán

  #1858

  #1857 vilag

  2012-09-18 09:06:30

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  #1857 vilag

  #1857 vilag

  Ez lett a végső (nek tűnő) megoldás:

  For Each twb In Application.Workbooks
  wbnev = twb.Name
  If wbnev <> "PERSONAL.XLS" And wbnev <> ThisWorkbook.Name Then
  GoTo bezar
  End If
  Next
  
  kilep:
  Application.Quit
  GoTo vege
  bezar:
  Application.DisplayAlerts = False
  Unload Me
  ThisWorkbook.Close
  
  vege:
  Application.WindowState = xlMaximized

  Jelenleg úgy tűnik, hogy minden gond nélkül működik. mondom ezt néhány teszt után.
  Remélem most már így is marad.

  Van azonban egy másik kérdésem:
  A szóban forgó project le van jelszavazva a basicben azon oknál fogva, hogy a mezei felhasználó ne tévedhessen debug módba.
  Van a felhasználói felületen egy gomb aminek a jelentősége most megnőtt (eddig nem is használtam). Ez a gomb arra szolgál, hogy a userformot bezárja és megnyissa a basicet.

  A probléma az lenne, hogy a project kibontásához jelszót kér (mivel ugye lejelszavaztam).

  Szóval a kérdés az, hogy lehet e automatizálni a pojecthez tartozó jelszóbeadást?

  Természetesen a userformon lévő gomb jelszavazva van.

  Üdv, vilag

  Úristen, ez a dolog kezd végtelenül elbutulni

Új hozzászólás Aktív témák