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

• #40554 Pakliman tag Pinocchio23 #40549

  Új Válasz 2019-03-26 11:46:11 #40554

  Ú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

  

  Pakliman

  tag

  válasz Pinocchio23 #40549 üzenetére

  Én először ezzel próbálkoznék:
  a "ThisWorkbook" modul Workbook_Open metódusban:
  1. cellák zárolásának megszüntetése a megfelelő munkalapon,
  2. zárolja a meghatározott dátumokat tartalmazó cellákat
  3. "Lapvédelem" jelszóval

  Most látom, Fferi50 már megelőzött...

• #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