Hirdetés
- Honor Magic6 Pro - kör közepén számok
- Bemutatkozott a Poco X7 és X7 Pro
- Xiaomi Watch 2 Pro - oké, Google, itt vagyunk mi is
- Szerkesztett és makrofotók mobillal
- iPhone topik
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Huawei Watch Fit 3 - zöldalma
- Milyen okostelefont vegyek?
- Samsung Galaxy A54 - türelemjáték
- OneSport OT07 - szevasztok, hollandok!
-
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
- Telefon felvásárlás!! Samsung Galaxy A70/Samsung Galaxy A71/Samsung Galaxy A72
- Telefon felvásárlás!! Samsung Galaxy Note 10+/Samsung Galaxy Note 20/Samsung Galaxy Note 20 Ultra
- ÚJ- Hp Elitebook 840 G8 i5 11. gen 14" Magyar laptop / notebook- Win11
- Honor Magic5 Lite 128GB, Kártyafüggetlen, 1 Év Garanciával
- Ha megbízható,bővíthető házat keresel !
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest