PC-HELP.CZ

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

Jestli to stačí takto

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é.

Super. Díky moc. Jen jsem změnil na

Kód: Vybrat vše

With ActiveSheet

ušetří to hodně práce

PC-HELP.CZ

Makro zápis do zamčené buňky

Makro zápis do zamčené buňky

Re: Makro zápis do zamčené buňky Vyřešeno

Re: Makro zápis do zamčené buňky