Új hozzászólás Aktív témák

• #40551 Fferi50 Topikgazda Pinocchio23 #40549

  Új Válasz 2019-03-26 11:38:11 #40551

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Pinocchio23 #40549 üzenetére

  Szia!

  Makró:

  Sub zarolo()
Dim oszlop As Range
ActiveSheet.Unprotect "jelszo"
With ActiveSheet.UsedRange
.Locked = False
For Each oszlop In .Columns
If oszlop.Cells(1).Value < Date Then
oszlop.Locked = True
End If
If oszlop.Cells(1).Value = Date Then
Exit For
End If
Next
End With
ActiveSheet.Protect "jelszo"
End Sub

  Beteheted a Workbook Open eseményébe a meghívását.

  Üdv.

Új hozzászólás Aktív témák