Hogy tudnám megoldani Excelben?

Szia.

Igen mindkét módon (Visual Basicban is és anélkül is)

1. Zárolás + Lapvédelem

KIjelölöd az összes cellát jobb klick - Cellaformázás - Védelem -> Zárolás - Pipa kivesz - OK

Mosdt kijelölöd azokat a cellákat amiket védetté akarsz tenni - Jobb klick - Cellaformázás - Védelem -> Zárolás - Pipa berak - Ok.

Jobb klick a munkafüzet lap nevén - Lapvédelem - OK. (vagy Korrektura - Lapvedelem).

2. VBA : (L11-es cella védetté tétele, előtte az összes celláról le kell venni a "Zárolást" és nincs megadva jelszó a lapvédelem feloldásához)

ActiveSheet.Unprotect

Range("L11").Select

Selection.Locked = True

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Sok sikert.

Üdv.

Szia.

Itt a teljes kód :

Private Sub Workbook_Open()

Rem C2 cella : Rows = 2, Column=3

StarRow = 2

StartColumn = 3

Datum$ = Date

Honap$ = Mid(Datum$, 6, 2)

Honap = Val(Honap$)

Honap = Honap - 1

If Honap >= 1 Then

CellposRow = ActiveCell.Row

CellposColumn = ActiveCell.Column

ActiveSheet.Unprotect

Rem C2 -> Balról Jobbra

Range(Cells(StarRow, StartColumn), Cells(StarRow, StartColumn - 1 + Honap)).Select

Selection.Locked = True

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Cells(CellposRow, CellposColumn).Select

End If

End Sub

A C2-es cellától indul (ott van január), ha nem lenne akkor értelemszerűen módositsd a kezdőértékeket a cellának megfelelően :

Rem C2 cella : Rows = 2, Column=3

StarRow = 2

StartColumn = 3

Esetlegesen ha nem balról jobbra lennének a havi cellák, hanem fentről lefelé akkor ehelyett a két sor helyett :

Rem C2 -> Balról Jobbra

Range(Cells(StarRow, StartColumn), Cells(StarRow, StartColumn - 1 + Honap)).Select

Használd ezt a két sort :

Rem C2 -> Fentrõl Lefelé

Rem Range(Cells(StarRow, StartColumn), Cells(StarRow - 1 + Honap, StartColumn)).Select

Továbbra is áll a következő két dolog :

1. Először is a munkafüzet összes cellájáról le kell venni a "Zárolást", és csak azután használható a makró

2. Illetve, ha a lapvédelemhez jelszót adsz meg akkor nem tudja a makró "levenni" a lapvédelmet a munkafűzetről, tehát nem is fog jól működni.

Sok sikert.

Üdv.

Ja még egy dolog :

A dátumnak magyar formátumnak kell lennie, tehát YYYY.MM.DD, ha nem az lenne akkor ezt a sort kell módositani a dátumformátumnak megfelelően :

Honap$ = Mid(Datum$, 6, 2)