-
Fototrend
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,
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.
[ Szerkesztve ]
-
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.
[ Szerkesztve ]
Új hozzászólás Aktív témák
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Egyre közelebb a Poco F6 startja
- Motoros topic
- Mobil flották
- Konzolokról KULTURÁLT módon
- Politika
- Nálunk is telepíthető a One UI 6.1 a Galaxy S22-re
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- A fociról könnyedén, egy baráti társaságban
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- További aktív témák...
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen