- Microsoft Outlook topic
- Bittorrent topik
- Már nem hisz a nagy európai EV-forradalomban a Ford
- Visszavonta az Intel és a Qualcomm Huawei-hez kiadott exportlicencét az USA
- ASUS routerek
- HBO Max & OD topic
- Bocsánatot kért az Apple, mert nagyon mellélőtt a legutóbbi reklámjával
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- TP-Link Archer C5 - AC1200 router
- SketchUp
-
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
-
lenkei83
tag
Sziasztok!
Rá tudna nézni valaki, hogy miért akad ki a szinescella.Locked = False sornál?
Köszi
P.Sub zarolas_()
Dim ws As Worksheet
Dim cella As Range
Dim psw As Variant
Dim szinescella As Range
Application.FindFormat.Clear
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.FindFormat.Interior.Color = RGB(255, 255, 0)
Application.ReplaceFormat.Interior.Color = RGB(255, 255, 0)
psw = ""
For Each ws In ThisWorkbook.Worksheets
ws.UsedRange.Cells.Locked = True
For Each cella In ws.UsedRange.Cells
Set szinescella = cella.Find(what:="", searchformat:=True)
szinescella.Locked = False
Next cella
Next ws
ws.Protect Password:=psw, userinterfaceonly:=True
MsgBox "Munkalapok zárolva"
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Új hozzászólás Aktív témák
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Lemezes Retro PC Játékok
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen