Ahoj,
řeším problém, že jsem vytvořil vzor v excelu, kde je mnoho buněk zamčených. Tento vzor přebrali lidi a vytvořili v něm okolo 150 reportů. Teď nastal problém, že je potřeba změnit jednu buňku, která je zamčená a oni si ji sami nezmění. Nikomu nechci říct heslo a potřeboval bych to změnit,tak abych to nemusel já 150x dělat.
Je nějaké makro, které dokáže udělat zápis do konkrétní buňky, která je zaheslovaná? Není problém v makru vyplnit i to heslo. Nepředpokládám, že v makru někdo bude heslo hledat.
Díky moc
Makro zápis do zamčené buňky Vyřešeno
-
- člen HW spec týmu
-
Elite Level 12
- Příspěvky: 16106
- Registrován: květen 08
- Bydliště: České Budějovice
- Pohlaví:
- Stav:
Offline
Re: Makro zápis do zamčené buňky Vyřešeno
Jestli to stačí takto
Password zadáváš to své.
//edit
Případně pokud je více listů, tak cyklem projít každý
Listy se odemykají jen pro potřeby VBA procedur, uživatelům jsou nadále nepřípustné.
Kód: Vybrat vše
Sub ZmenaZamcenehoListu()
With ThisWorkbook.Worksheets(1)
'odemkne
.Protect Password:="123456", UserInterfaceOnly:=True
'zmeni obsah bunky A1
.Range("A1").Value = "blabla"
End With
End Sub
Password zadáváš to své.
//edit
Případně pokud je více listů, tak cyklem projít každý
Kód: Vybrat vše
Sub ZmenaZamcenychListu()
Dim wsh As Worksheet
For Each wsh In Worksheets
With wsh
'odemkne
.Protect Password:="123456", UserInterfaceOnly:=True
'zmeni obsah bunky A1
.Range("A1").Value = "blabla"
End With
Next
End Sub
Listy se odemykají jen pro potřeby VBA procedur, uživatelům jsou nadále nepřípustné.
Nikdy neříkej, že to nejde, protože se najde někdo, kdo o tom neví a udělá to!
Chcete si nechat sestavit nový počítač?
Chcete si nechat sestavit nový počítač?
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 1628
-
od atari
Zobrazit poslední příspěvek
19 dub 2023 21:53
-
-
Excel - filtr na formát buňky + obsah Příloha(y)
od popcorn » 19 zář 2023 17:07 » v Kancelářské balíky - 0
- 1868
-
od popcorn
Zobrazit poslední příspěvek
19 zář 2023 17:07
-
-
- 9
- 1111
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů