Új hozzászólás Aktív témák
-
#90999040
törölt tag
válasz
öcsi-bácsi #1491 üzenetére
Pontosan ezekről beszéltem. Ezt a kódot így is meg lehetne csinálni:
Sheets("munka1").Select
pass = "123456789"
Sheets("munka2").Unprotect pass
Sheets("munka1").Range("a1").Copy Destination:=Sheets("Munka2").Range("A1")
Sheets("munka2").Protect Password:=passEz pontosan azt csinálja, amit a Tiéd, csak nem 11, hanem 5 sorban.
Újra kihangsúlyozom: VBA-ban a Select és az Activate használatát csak elkerülhetetlen esetben célszerű használni, így a legtöbb esetben az Application.ScreenUpdating használata is feleslegessé válik(kivéve, ha az aktív munkalapra másolsz nagy mennyiségű adatot), valamint a kód is áttekinthetőbb.[ Szerkesztve ]
Új hozzászólás Aktív témák
- Politika
- BestBuy topik
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- Apple notebookok
- Azonnali processzoros kérdések órája
- Építő/felújító topik
- iRacing.com - a legélethűbb -online- autós szimulátor bajnokság
- Home server / házi szerver építése
- Fotók, videók mobillal
- Gumi és felni topik
- További aktív témák...
- Synology DS223 (2GB) /// Teljesen Új // Számlával és 2 év Garanciával
- Épített szépség - I9-13900K - 3080 Ti - 32GB
- Airpods Pro 2 Lightning /// Apple Garancia 6 Hónap + SZÁMLA
- AirPods Pro 1 MagSafe Charging Case /// Számla + Garancia
- Samsung Galaxy Buds FE Fekete Fülhallgató /// Bontatlan // Számla + Garancia