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

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
xlnc
Level 3.5
Level 3.5
Příspěvky: 683
Registrován: červenec 11
Pohlaví: Muž

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

Příspěvekod xlnc » 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
lektor, vývojář a zaříkávač pro Microsoft Excel, Excelplus.NET

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

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
  • Excel makro - kopírování buněk
    od Grift » 07 čer 2016 12:55 » v Kancelářské balíky
    1
    1236
    od atari
    13 čer 2016 14:52
  • Makro - sčítání buněk dle příznaku a kopírování
    od lurban » 26 říj 2016 09:02 » v Kancelářské balíky
    0
    253
    od lurban
    26 říj 2016 09:02
  • Makro pro zjištění počtu buněk dle barvy
    od Martin Švach » 21 pro 2016 14:53 » v Kancelářské balíky
    3
    370
    od Martin Švach
    19 led 2017 10:29
  • Excel - podmíněný výpis z buněk
    od summer » 18 pro 2016 09:56 » v Kancelářské balíky
    4
    265
    od summer
    19 pro 2016 21:55
  • Excel - automatické vyplnění řádku
    od SkyWalker » 10 led 2017 09:55 » v Kancelářské balíky
    6
    362
    od SkyWalker
    11 led 2017 12:56

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 0 hostů