Új hozzászólás Aktív témák
-
vilag
tag
válasz
Tomaaasz #2325 üzenetére
Nem egészen.
Én azt szeretném, hogy amikor megnyitok egy adott excel fájlt, akkor az abban lévő programkód (megadott feltétel alapján) döntse el, hogy írásra vagy olvasásra nyílik meg. Csak egy fájlról van szó, nincs második.
Egy alábbi félmegoldás van, mert abban az esetben induláskor megkérdezi, hogy írásra vagy olvasásra akarom e megnyitni:
Private Sub Workbook_Open()
ActiveWorkbook.ReadOnlyRecommended = True
End SubÉn viszont azt szeretném ha nem tenné fel a kérdést.
Kb. így:
If felhasználó = admin then
megnyitás írásra
Else
megnyitás olvasásra
End if -
Tomaaasz
aktív tag
válasz
Tomaaasz #2233 üzenetére
Nos, közben siker.
Do While szamlalo < maxSor
azonTomb(szamlalo) = ds.Tables("Azon").Rows(szamlalo).Item("Azonosító")
Dim txt1 As New TextBox
Me.Controls.Add(txt1)
With txt1
.Name = "txtAzon" & szamlalo
.Text = azonTomb(szamlalo)
.Height = 20
.Width = 50
.Left = 10
.Top = 10 * szamlalo * 2
End With
txt1 = Nothing
szamlalo = szamlalo + 1
Loop
Új hozzászólás Aktív témák
- Gyári Apple tokok iPhone 14pm/14/14p/12pm
- (Cini) Minis Forum mini PC Ryzen AI 9 HX 370 AMD Radeon 890M RAM és SSD nélkül! 1 év garanciával
- SAMSUNG 4TB 990 EVO PLUS M.2 NVME PCI-E 4.0 x4/ 5.0 X2 - Új - 7250-6300 MBs - Eladó!
- (Cini) Minis Forum mini PC Ryzen AI 9 HX 370 AMD Radeon 890M 96 GB RAM 2 TB SSD 1 év garancia
- T14s Gen1 14" FHD IPS érintő i7-10610U 16GB 512GB NVMe ujjlolv IR kam gar
- HIBÁTLAN iPhone 12 Mini 128GB Black-1 ÉV GARANCIA - Kártyafüggetlen,MS3634,94% Akkumulátor
- Bomba ár! Lenovo ThinkPad X13 G2a - Ryzen 5650U I 16GB I 256SSD I 13,3" WUXGA I Cam I W11 I Gari!
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
- Asus ROG Zephyrus G14 - 14"2.8K OLED 120Hz - Ryzen 9 8945HS - 16GB - 1TB - RTX 4060 -2,5 év garancia
- Sound Blaster AE-7 (B-Stock)
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest