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

• #1857 vilag tag sztanozs #1856

  Új Válasz 2012-09-17 12:29:55 #1857

  Ú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

  Privát üzenet küldése

  

  vilag

  tag

  válasz sztanozs #1856 üzenetére

  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

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