Új hozzászólás Aktív témák
-
sztanozs
veterán
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 FunctionA 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 FunctionJOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
Új hozzászólás Aktív témák
- Apple AirPods 2 bontatlan 1 év Apple garancia
- ÚJ Playstation 5 FW 5.10 (exploitolható), lemezes
- Assassins Creed THE REBEL COLLECTION ( 2 JÁTÉK ) /// Szinte Új // Számla + Garancia
- AKCIÓ! iPad (9. generációs) Wi-Fi + Cellular tablet garanciával hibátlan működéssel
- 1év garanciával olcsó Irodai mini pc MONITORCENTER
- Baseus 4K 60Hz HDMI Splitter Bi-Direction HDMI Elosztó Switch
- Eladó Seiko Prospex SAVE THE OCEAN Padi Special Edition The Great Blue
- 512GB Western Digital PC SN740 M.2 NVMe PCIe 4.0 SSD 5000/4900 MB/sec
- Eladó ASUS TUF Gaming VG279QL3A Bontatlan/Garanciális!
- Eladó! - GoPro Hero 9 + Dobozos rögzítőszett
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest