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

• #2998 Delila_1 veterán takyka77 #2997

  Új Válasz 2008-01-17 16:53:16 #2998

  Ú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

  

  Delila_1

  veterán

  válasz takyka77 #2997 üzenetére

  Másold be az alábbi makrót. Minden nyitáskor az aktuális lapon zárolja az egy hetesnél régebbi sorokat, A-tól AD oszlopig. Ha több lapod van,a lapnév helyére írd be a védendő lapod nevét, ha csak egy, azt a sort töröld ki.

  Sub auto_open()
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  Sheets("Lapnév").Select
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor, 1) < Date - 6 Then
  Range(Cells(sor, 1), Cells(sor, 30)).Select
  Selection.Locked = True
  End If
  Next
  ActiveSheet.Unprotect
  End Sub

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