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

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

revol
nováček
Příspěvky: 25
Registrován: květen 14
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod revol » 01 črc 2014 10:33

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

Reklama
d1amond
člen HW spec týmu
Elite Level 12
Elite Level 12
Příspěvky: 16106
Registrován: květen 08
Bydliště: České Budějovice
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod d1amond » 01 črc 2014 18:09

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

revol
nováček
Příspěvky: 25
Registrován: květen 14
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod revol » 02 črc 2014 10:05

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

Kód: Vybrat vše

With ActiveSheet
   


ušetří to hodně práce 8)


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • VBA Excel 365 vložit obrazek do buňky
    od wlk60 » 19 dub 2023 15:43 » v Kancelářské balíky
    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
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1111
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů