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

• #40565 Fferi50 Topikgazda Pinocchio23 #40563

  Új Válasz 2019-03-26 14:01:26 #40565

  Ú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 #40563 üzenetére

  Szia!

  A cella zárolás nem szereti az oszlopok összevonását. Külön-külön nem lehet az oszlopokat zárolni, csak egyben. Ezért meg kell keresni az első olyan dátumot az első sorban, amit már nem kell zárolni.
  Íme a makró:
  Sub zarolo()
Dim oszlop As Integer, cl As Range
ActiveSheet.Unprotect "jelszo"
With ActiveSheet.UsedRange
For Each cl In .Rows(1).Cells
If cl.Value >= Date Then oszlop = cl.Column - 1: Exit For
Next
.Range(.Cells(1, 1), Cells(.Rows.Count, oszlop)).Locked = True
End With
ActiveSheet.Protect "jelszo"
End Sub

  Üdv.

• #40564 Fferi50 Topikgazda Pinocchio23 #40563

  Új Válasz 2019-03-26 13:27:30 #40564

  Ú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 #40563 üzenetére

  Szia!

  Persze.

  Üdv,

• #40559 Fferi50 Topikgazda Pinocchio23 #40556

  Új Válasz 2019-03-26 12:27:18 #40559

  Ú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 #40556 üzenetére

  Szia!

  A lapvédelem feloldása ott van a makró elején:
  (ActiveSheet.Unprotect "jelszo")
  Ezután a teljes használatban levő területet feloldja.
  Hamarabb le kellene állnia, ha nem tudja feloldani.
  Ha viszont feloldja, akkor zárolni is tudni kellene.
  Látatlanban ennél többet nem tudok mondani.
  Esetleg az oszlop számát meg tudod mondani?
  Vagy feltenni a mintát valahova?

  Mert nálam összevont cellák és rögzített oszlopok esetén is megy.

  Üdv.

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