Hirdetés
- Sony Xperia 1 V - kizárólag igényeseknek
- Samsung Galaxy A52s 5G - jó S-tehetség
- Stabil pályára állt az Android 16
- MWC 2025: Előrendelhető a Nothing Phone (3a)
- Samsung Galaxy Watch6 Classic - tekerd!
- Honor Magic6 Pro - kör közepén számok
- Apple iPhone 16 Pro - rutinvizsga
- Garmin Instinct – küldetés teljesítve
- Garmin topik
- Fotók, videók mobillal
-
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
- World of Warcraft (WoW) Díszdobozok
- ESET termékek hivatalos forgalmazója / NOD32 / Internet Security / Android / Server / Mail / stb.
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- DCS World modulok
- DELL PowerEdge R730xd 12LFF 48TB+400GB rack szerver - 2xE5-2680v3,128GB RAM,2x10G NET,H730p RAID
- Asrock PG 4 GAMER!! Kamatmentes részletre!
- Bontatlan AERO BRONZE 650W 80+
- Telefon Felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
- Lenovo ThinkStation P330 SFF / ThinkCentre M720s SFF -Számla, garancia, WIN11
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest