- Mindennél kisebb és gyorsabb chipeket hoznak az ASML új gépei
- Hódít az AI, közben a Microsoft emberek százait küldi el a felhős részlegétől
- Felfordul a windowsos piac: az Arm megszerezné a PC-s piac 50 százalékát
- Ömlenek a fiatalok a Facebookra
- Ezúttal bennfentes kereskedelemmel vádolják Elon Muskot
-
IT café
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
-
Fferi50
őstag
válasz Mela Kehes #36044 üzenetére
Szia!
Egy makró, ami a fájl megnyitásakor bekéri a felhasználó nevet és a jelszót, majd ennek alapján elrejti azokat a munkalapokat, amelyet nem kell látnia.
(Persze ehhez a felhasználó neveket és a jelszavakat is tárolnod kell a munkafüzetben.)Üdv.
-
Delila_1
Topikgazda
válasz Mela Kehes #36044 üzenetére
Egy kis makró, amit a ThisWorkbook laphoz rendelsz a VB szerkesztőben, megoldja.
Private Sub Workbook_Open()
Dim lapnev As String, lap As Integer
Select Case Environ("Username")
Case "Jancsi"
lapnev = "Munka1"
Case "Juliska"
lapnev = "Munka2"
Case "Péter"
lapnev = "Munka3"
Case "Pál"
lapnev = "Munka4"
End Select
For lap = 1 To Sheets.Count
Sheets(lap).Visible = xlSheetVisible
Next
For lap = 1 To Sheets.Count
If Sheets(lap).Name <> lapnev Then Sheets(lap).Visible = xlSheetVeryHidden
Next
Application.ScreenUpdating = True
End SubA füzet megnyitásakor automatikusan elindul. Az egyes nevekhez (Case "Jancsi") a valódi felhasználó nevét írd be, ahogy a gépe el van nevezve. A lapnev="Munka1" helyére annak a lapnak a nevét add meg, amit a felhasználó láthat.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Eladó Steam kulcsok kedvező áron!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Mass Effect 1 PC
- Miasma Chronicles - Bundle maradék - Keresem
- Vírusirtó, Antivirus, VPN licenckulcsok - kedvezményes ajánlatok (frissítve: 2024. 05. 01.)
- Windows 10, 11 Professional, Home, Enterprise licenckulcsok 64, 32 bit - MEGA Akció!
- Office Professional Plus 2013, 2016, 2019, 2021 RETAIL licenckulcsok - MEGA Akció!
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen