- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- ricshard444: Fényképező ? Telefon helyett
- gban: Ingyen kellene, de tegnapra
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- amanoba: Zakuszkarecept Puskás Csabától, a Borkonyha Étterem head séfjétől
- eBay-es kütyük kis pénzért
- bitpork: MOD Júni 28- Augusztus 2- szombat jelen állás szerint.
- M0ng00se: Hardvert áruhitelre?
Ú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
- Óra topik
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Számtech boltosok memoárjai, azaz amikor kiborulunk...
- iPhone topik
- Motorola Edge 40 - jó bőr
- World of Tanks - MMO
- SONY LCD és LED TV-k
- Víz- gáz- és fűtésszerelés
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- PlayStation 1 / 2
- További aktív témák...
- Garancia! GAMER PC! Ryzen 5600X / RTX 3070 / B550 / 32GB 3200MHz /1Tb + 512Gb NVMe / 600w!
- iPhone SE2 64GB fekete, gyönyörű újszerű állapotban, 3db van, 85% 92% és 100% akkuval
- iPhone SE2 64GB 82% piros, saját dobozzal
- Apple iPhone 13 Pro Max 128GB, Kártyafüggetlen, 1 Év Garanciával
- iPhone 12 128GB, fekete vagy fehér színben, újszerű állapotban
- KATONAI ÜTÉSÁLLÓ!!! Getac S410 i5-6300u, G3: i5-8365u, G4: i5-1145G7
- OLCSÓBB!!! több EIZO EV2456 FlexScan 24" 1920x1200 16:10 IPS fekete több jelenlegi ár: 170.000.-!!!
- Samsung Galaxy A53 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA!Épített KomPhone i5 13400F 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RTX 5070 GAMER PC termékbeszámítással
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest