Makro excel - automatické zamykání buněk

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

Moderátor: Mods_senior

Adriel12
nováček
Příspěvky: 3
Registrován: prosinec 16
Pohlaví: Nespecifikováno
Stav:
Offline

Makro excel - automatické zamykání buněk

Příspěvekod Adriel12 » 16 pro 2016 08:32

Ahoj,
rád bych navázal s dotazem na kolegův problém s uzamykáním buněk po zapsání hodnoty. Jelikož je toto téma uzavřené, vznesu dotaz tímto způsobem. viewtopic.php?f=35&t=172117
Bylo by možné tento kód, viz níže, specifikovat jen pro určitou oblast buněk?
Předem moc děkuji.

'heslo listu
Const cstrHeslo As String = "heslo"

'před použitím odstraňte zámek všech buněk listu

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngBunka As Range

'odemčení listu heslem
ActiveSheet.Unprotect cstrHeslo

'pro každou z měněných buněk
For Each rngBunka In Target.Cells

'je buňka prázdná?
If IsEmpty(rngBunka) Then
'vyjmi ji oblasti zamčených
rngBunka.Locked = False
Else
'uplatni na ni zámek
rngBunka.Locked = True
End If

Next rngBunka

'znovuzamčení listu heslem
ActiveSheet.Protect cstrHeslo

End Sub

Reklama
guest
Pohlaví: Nespecifikováno

Re: Makro excel - automatické zamykání buněk

Příspěvekod guest » 02 led 2017 10:56

Technicky - ano, dělá se to v událostní proceduře běžně.
Prakticky - něco mi říká, že to nebude fungovat, resp. že to nemá smysl.

Kód: Vybrat vše

'heslo listu
Const cstrHeslo As String = "heslo"
Const cstrOblastAdresa As String = "B2:E20"

'před použitím odstraňte zámek všech buněk listu

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rngBunka As Range
    Dim rngOblast As Range

    'nastavení sledovan0 oblasti
    Set rngOblast = Range(cstrOblastAdresa)

    'došlo ke změně pouze ve sledované oblasti?
    If Union(Target, rngOblast).Address = rngOblast.Address Then

        'odemčení listu heslem
        ActiveSheet.Unprotect cstrHeslo

        'pro každou z měněných buněk
        For Each rngBunka In Target.Cells

            'je buňka prázdná?
            If IsEmpty(rngBunka) Then
                'vyjmi ji oblasti zamčených
                rngBunka.Locked = False
            Else
                'uplatni na ni zámek
                rngBunka.Locked = True
            End If

        Next rngBunka

        'znovuzamčení listu heslem
        ActiveSheet.Protect cstrHeslo

    End If

End Sub

Adriel12
nováček
Příspěvky: 3
Registrován: prosinec 16
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Makro excel - automatické zamykání buněk

Příspěvekod Adriel12 » 04 led 2017 14:32

Dobrý den,
moc děkuji za pomoc, funguje to tak, jak jsem si představoval. Ještě bych se zeptal, zdali by šla udělat úprava v tom, že by to uživatele vyzvalo k zadání hesla při rozkliknutí již zamčeného pole vyskakujícím oknem.
Ještě jednou moc děkuji.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Tisk z excelu mění výšky buněk
    od Moonddur » 28 dub 2023 11:50 » v Kancelářské balíky
    1
    1652
    od atari Zobrazit poslední příspěvek
    28 dub 2023 12:08
  • Automatické přehrávání videa Příloha(y)
    od fafejt » 09 úno 2024 13:59 » v Internet a internetové prohlížeče
    4
    528
    od fafejt Zobrazit poslední příspěvek
    09 úno 2024 17:30
  • 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
  • Windows 11 OneDrive automatické odstranění
    od ArtisPier » 26 zář 2023 11:41 » v Programy ke stažení
    4
    4286
    od ArtisPier Zobrazit poslední příspěvek
    26 zář 2023 12:29
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    5984
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31

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

Kdo je online

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