Hirdetés
- Android szakmai topik
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- OneSport OT07 - szevasztok, hollandok!
- Samsung Galaxy A70 - áram, erősség
- MIUI / HyperOS topik
- Milyen okostelefont vegyek?
- Stabil pályára állt az Android 16
- Redmi Note 11 és 11S - biztos alapra jobb építeni
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
urobee
tag
Szia!
@Pakliman első kódja kicsit átalakítva szerintem megoldás lehet:
Ez ugye a thisworkbook-ba kerül:
Private Sub Workbook_Open()
'A munkafüzet megnyitásakor elmentjük az éppen aktuális munkalapot:
Set ASH = ActiveSheet
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
'Munkalap aktiválásakor mengnézzük, hogy az új munkalap a védendő-e:
If Sh Is Worksheets("rejtett") Then
'Ha a védendő, akkor jelszót kérünk:
If InputBox("Jelszó:") = "jelszo" Then
'Ha jó a jelszó, engedjük az aktívvá tételt,
'és elmentjük új aktívként
Set ASH = ActiveSheet
'elrejti az összes oszlopot és sort
Columns.EntireColumn.Hidden = False
Rows.EntireRow.Hidden = False
Else
'Ha rossz, akkor:
MsgBox "Ehhez a laphoz Neked semmi közöd!!"
'Visszaállítjuk az előző munkalapot aktívnak:
ASH.Activate
End If
End If
End SubEz pedig az elrejteni kívánt lapra:
Private Sub Worksheet_Activate()
'megjeleníti az összes oszlopot és sort
Columns.EntireColumn.Hidden = True
Rows.EntireRow.Hidden = True
End SubEz csak akkor lehet problémás, ha vannak rejtett sorok/oszlopok a munkalapon.
-
urobee
tag
Szia,
remélem ilyesmire gondoltál:
Kijelölöd az azonosítók oszlopát (minden sort) -> Kezdőlap fülön: Feltételes formázás -> Cellakijelölési szabályok -> Ismétlődő értékek.
Így megjelöl minden azonos értéket tartalmazó sort elég áttekerni a táblázatot és átlehet nézni egyesével mire van szükség és mire nincs.
Új hozzászólás Aktív témák
- Május 5-én csörög utoljára a Skype
- Milyen légkondit a lakásba?
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Android szakmai topik
- Mozilla Firefox
- BestBuy topik
- Elektroncsöves Hi-Fi
- Kínai és egyéb olcsó órák topikja
- Békéscsaba és környéke adok-veszek-beszélgetek
- PlayStation 5
- További aktív témák...
- BOMBA AKCIÓK! STEAM, UBISOFT CONNECT, EA APP, XBOX EREDETI KULCSOK 100% GARANCIA
- Csere-Beszámítás! RTX Számítógép játékra! I7 6700 / RTX 2060 6GB / 32GB DDR4 / 250SSD+500HDD
- Apple iPhone 11 Pro 64GB, Kártyafüggetlen, 1 Év Garanciával
- LG 55CS6 - 55" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox!
- LG Velvet 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest