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

• vilag tag

  #1857

  #1856 sztanozs

  2012-09-17 12:29:55

  Ú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

  

  vilag

  tag

  #1856 sztanozs

  #1856 sztanozs

  Mármint megnyitva?
  A telepített / elérhető AddInek az Application.AddIns collectionben vannak nyilvántartva. For Each-vel végigmész rajtuk, és megnézed, hogy a tiéd nyitva van-e (property-k, amik kellhetnek: Name, Installed, IsOpen).
  Public Function SajatfuggvenyekBetolve()
  Dim A1 As AddIn
  For Each A1 In Application.AddIns
  If (A1.Name = "sajatfuggvenyek.xla") And A1.IsOpen And A1.Installed Then
  SajatfuggvenyekBetolve = True
  Exit Function
  Next
  SajatfuggvenyekBetolve = False
  End Function

  A megnyitott workbookok pedig az Application.Workbooks collectionben vannak. Megnézni ugyanúgy tudod:
  Public Function PersonalBetolve()
  Dim W1 As Workbook
  For Each W1 In Application.Workbooks
  
  If W1.Name = "personal.xls" Then
  PersonalBetolve = True
  Exit Function
  Next
  PersonalBetolve = False
  End Function

  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