- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- laskr99: Újrakezdem a processzor és videókártya szilícium magok fotózását
- VoidXs: Tényleg minden játék optimalizálatlan?
- Steven: Sokat utazó kávéfüggők ide!
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- droidic: Így beszélhetsz élő emberrel EA supportban
- Magga: PLEX: multimédia az egész lakásban
Új hozzászólás Aktív témák
-
Cpt. Flint
tag
válasz
martonx #2360 üzenetére
na de ez a teljes workbookra vonatkozik, neki meg bizonyos sheetekre kell csak, gondolom a workbookot meg kell tudni nyitni "korlátozottan" is.
Én ezt tenném:
Private Sub CommandButton1_Click()
pwd = InputBox("Adja meg a jelszót:", "Munkalapok felfedése")
If pwd = "akarmi" Then
For i = 2 To 3
Worksheets(i).Visible = True
Next
Else
hiba = MsgBox("A megadott jelszó hibás!", vbCritical + vbOKOnly, "Jelszó hiba")
End IfEnd Sub
A CommandButton1 beágyazva az 1-es munkalapra a "Felfedés" felirattal.
A WorkbookOpen-ben persze megcsinálom ugyanilyen for-next ciklussal a worksheetek visible=false beállítását. És nyilván le kell jelszavazni a VB részhez való hozzáférést.
Új hozzászólás Aktív témák
- Gumi és felni topik
- Kerékpárosok, bringások ide!
- Mibe tegyem a megtakarításaimat?
- Kertészet, mezőgazdaság topik
- Gaming notebook topik
- Ismét 128 és 256 GB-os memóriaszetteket villantott a G.Skill
- Xiaomi AX3600 WiFi 6 AIoT Router
- exHWSW - Értünk mindenhez IS
- One mobilszolgáltatások
- gban: Ingyen kellene, de tegnapra
- További aktív témák...
- LG OLED55G42LW LG Gyári garancia 3 év
- HP EliteBook 840G6 ! AKCIÓ!!! a készlet erejéig!
- Kobo Aura Edition 2 (N236) 6" háttérvilágításos kijelzővel, 4 GB-os tárhellyel - jó állapotban
- HP ProBook 430 G8, 13,3" FHD IPS, I5-1135GU CPU, 16GB DDR4, 256GB SSD, WIN 11, 27% áfás számla, 1 év
- Playstation Portal - 3 hónap Bolti Garanciával
- BESZÁMÍTÁS! Gigabyte B365M i5 8500 16GB DDR4 512GB SSD GTX 1060 3GB Rampage SHIVA FSP 400W
- BESZÁMÍTÁS! ÚJ AMD Ryzen 5600X 5700X 5800X 5900X processzor 3 év garancia 27% áfa termékbeszámítás
- LG 48C3 - 48" OLED evo - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - A9 Gen6 CPU
- REFURBISHED - HP USB-C Dock G4 docking station (L13899-001)
- Xiaomi Redmi Note 10 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest