Ú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
- Sony MILC fényképezőgépcsalád
- Kormányok / autós szimulátorok topikja
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- iPhone topik
- Androidos tablet topic
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Gyúrósok ide!
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Yettel topik
- További aktív témák...
- D-Link DGS-108 8 portos fémházas GB Switch sose használt
- Unifi USW-Flex-Mini 5 portos GB Switch, PoE betáplálás
- Apple iPhone 17 Pro 512GB Kék Színben Kártya-független,12 Hónap Garancia,Bontatlan 0 Perces Készülék
- Apple iPhone 17 Pro Max 256GB Narancssárga Színben Kártya-független,36 Hónap Garancia,Bontatlan
- Lenovo ThinkPad P14s Ryzen 5 PRO5650u 32GB RAM 512GB SSD 4GB dedikált VGA Érintőkijelző
- 0% THM 6 havi részlet beszámítás! 5060Ti/5070/5070Ti/5080/5090 videokártyák készletről KAMATMENTESEN
- Jawbone Up okoskarkötő, aktivitásmérő
- HIBÁTLAN iPhone 13 Pro 128GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3750, 96% Akkumulátor
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
- 154 - Lenovo LOQ (15IRX9) - Intel Core i5-13450HX, RTX 4060
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő