-
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
-
Delila_1
Topikgazda
válasz
Fferi50 #43303 üzenetére
Nem szűnik meg a füzet bezárása után sem a lap védettsége.
Ha eredetileg nem volt védve a lap, aSheets(x).Protect Password:="Jelszó" , UserInterfaceOnly:=True
sor akkor is védetté teszi.
Védelemnél azt is be szoktam állítani, hogy a zárolt cellákat ne lehessen kijelölni.Sheets(x).EnableSelection = xlNoSelection
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
ROBOTER
addikt
válasz
Fferi50 #43303 üzenetére
Köszi!
Kipróbáltam, de valami mással van a baj.
Érvényesíteni próbálok egy cellában, lista hozzáadásával. És csak ezt nem engedi.
A cella nem zárolt. Kézzel enged hozzányúlni.s = "=AUX2!$A$2:$A$" + CStr(rowCount)
With Range("PARTNER").Cells(Target.Row, 1)
.Interior.Color = RGB(0, 200, 0) 'csak próba, működik
End With
With Range("PARTNER").Cells(Target.Row, 1).Validation
.Delete
' a következő sorra hibát ad:
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=s
End With
De makróból csak akkor engedi a validationt állítani, ha unprotected a sheet. Viszont engedi átszínezni vagy hasonlót.
Ha beteszem a fenti kód elé, hogy
ActiveSheet.Unprotect...
akkor megy, és jól megy. Megcsinálhatom, hogy minden makró elejére és végére beteszek 1-1 protect/unprotectedet, de nem túl elegáns.[ Szerkesztve ]
Új hozzászólás Aktív témák
- A fociról könnyedén, egy baráti társaságban
- Az Amazon árfolyama felment, Bezos elad 5 milliárd dollárnyi részvényt
- Milyen billentyűzetet vegyek?
- Bemutatta 2 Tb-es 3D QLC NAND chipjeit a Kioxia
- Látásjavító szemműtét
- Gyúrósok ide!
- Gaming notebook topik
- Xiaomi Mi 9T - a túl jó Redmi
- Synology NAS
- Star Wars Outlaws - Már nincs akadálya a premiernek
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Steam kulcsok - UTALÁS/REVOLUT - GhostRunner 2/Risk of Rain 2/Saints Row 2023/Steel Rising stb.
- BIG BOX! - Total War Eras (Gyűjtői)
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem nyárra most kedvező áron..."
- LEGJOBB ÁR! / Microsoft Windows és Office Licencek / AZONNAL!
- Vírusirtó, Antivirus, VPN licenckulcsok - kedvezményes ajánlatok (frissítve: 2024. 06. 16.)
- Might and Magic VII (csak CD2)
- Office Professional Plus 2013, 2016, 2019, 2021 RETAIL licenckulcsok - MEGA Akció!
- Neverwinter Nights
- Windows 7 Home Premium, Pro, Ultimate és Windows 8, 8.1 Pro licenckulcsok 64, 32 bit - MEGA Akció!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen