Hirdetés
- Sony Xperia 1 V - kizárólag igényeseknek
- MWC 2025: A kicsi és a kamerás - megjött a Xiaomi 15 és az Ultra
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- Bivalyerős lett a Poco F6 és F6 Pro
- Stabil pályára állt az Android 16
- Poco F6 5G - Turbó Rudi
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- iPhone topik
- OneSport OT07 - szevasztok, hollandok!
- Apple iPhone 16 Pro - rutinvizsga
-
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
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest