Excel - uzamčení dvou buněk, když je v jiné buňce daný text

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

Moderátor: Mods_senior

23barcelona
nováček
Příspěvky: 24
Registrován: červenec 12
Pohlaví: Žena
Stav:
Offline

Excel - uzamčení dvou buněk, když je v jiné buňce daný text

Příspěvekod 23barcelona » 12 črc 2012 18:28

Zdravím,

prosím o radu v MS Excel 2007. V Buňce C59 mám rozevírací seznam. Z něho si může uživatel vybrat ano nebo ne.
Pokud si vybere ano, chci, aby nemohl do buňky F60 a F61 nic napsat a pokud tam už něco předtím napsal, aby se zobrazila v těchto buňkách nula.
Pokud si uživatel vybere v seznamu ne, musí být buňky F60 a F61 volně přepisovatelné. Můžete mi, prosím, někdo poradit, jak to mám udělat.

Moc děkuji.

Reklama
cmuch
Level 4.5
Level 4.5
Příspěvky: 1547
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Excel - uzamčení dvou buněk, když je v jiné buňce daný t

Příspěvekod cmuch » 12 črc 2012 19:19

Vítej na PC-Help

Snad jen pomocí makra a se zamknutím listu.
Nejprve je potřeba odebrat zámek buňkám kam se má zapisovat i po zamknutí listu.
Makro vložit do listu kde se má vykonávat (přes ALt+F11)

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

 If Range("C59") = "ano" Then
    Application.EnableEvents = False
    ActiveSheet.Unprotect
    ActiveSheet.Range("F60:F61").Locked = True
    ActiveSheet.Range("F60:F61") = "0"
    ActiveSheet.Protect
    Application.EnableEvents = True
   
  ElseIf Range("C59") = "ne" Then
    Application.EnableEvents = False
    ActiveSheet.Unprotect
    ActiveSheet.Range("F60:F61").Locked = False
    ActiveSheet.Protect
    Application.EnableEvents = True
 End If
End Sub

pokud by měl být zámek list pod heslem tak za protec a unprotec dát do uvozovek heslo.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Jiné řazení dat ze zdroje v MS Excel na samostatných listech Příloha(y)
    od Rosta_Kolmix » 09 říj 2024 22:06 » v Kancelářské balíky
    12
    7192
    od Rosta_Kolmix Zobrazit poslední příspěvek
    18 lis 2024 20:57
  • EXCEL -jak otevřít 2 excel sobory abych je viděla současne a samostatně
    od Ketty02 » 30 srp 2024 21:19 » v Vše ostatní (sw)
    2
    4810
    od Riviera kid Zobrazit poslední příspěvek
    02 zář 2024 16:21
  • Přechod z Excel 21 na Excel 24
    od Snekment » 29 led 2025 13:46 » v Kancelářské balíky
    2
    12223
    od Snekment Zobrazit poslední příspěvek
    29 led 2025 15:05
  • Jaký z těchto dvou notebooků vybrat?
    od Speed_dead » 10 říj 2024 21:49 » v Rady s výběrem hw a sestavením PC
    11
    1968
    od Speed_dead Zobrazit poslední příspěvek
    12 říj 2024 21:07
  • Pohoda a excel Příloha(y)
    od brownwld » 06 kvě 2025 17:28 » v Kancelářské balíky
    1
    4725
    od atari Zobrazit poslední příspěvek
    07 kvě 2025 09:41

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ů