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

• #1856 sztanozs veterán vilag #1855

  Új Válasz 2012-09-17 10:55:16 #1856

  Ú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

  

  sztanozs

  veterán

  válasz vilag #1855 üzenetére

  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

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