Excel VBA - Minden nem üres cella védelme bezárás előtt

Excel VBA - Minden nem üres cella védelme bezárás előtt
2015-09-28T08:14:52+02:00
2015-10-05T08:51:57+02:00
2022-12-02T21:00:41+01:00
Peter89
Sziasztok!

Arra van lehetőség, hogy minden nem üres cellát zároljunk (jelszavas védelemmel) az excel munkalapon macro-val?

Elég amatőr vagyok még a témában, de eddig eljutottam:

Private Sub Workbook_BeforeClose(Cancel as Boolean) Worksheets("Munka2").Range("B:E").Locked = True ActiveSheet.Protect Password:="1234" End Sub

A nem üres cellákat hogyan találom meg?


Köszönöm a segítséget előre is!
Üdv.: Peti!
Mutasd a teljes hozzászólást!
Szia!

A range.specialcells metódusnak vannak olyan paraméterei, amelyekkel a nem üres cellákat megkaphatod:

Worksheets("Munka2").Range("B:E").Specialcells(xlCellTypeConstants).Locked=True 'Az értékeket tartalmazó cellákat zárolja Worksheets("Munka2").Range("B:E").Specialcells(xlCellTypeFormulas).Locked=True 'A képleteket tartalmazó cellákat zárolja

Üdv.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd