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

• #42977 Delila_1 veterán zsolti_20 #42970

  Új Válasz 2020-02-05 09:26:08 #42977

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

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim WF As WorksheetFunction

Set WF = Application.WorksheetFunction
ActiveSheet.Protect Password:="szupertitkosjelszó", UserInterfaceOnly:=True
If WF.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 5 Then Rows(Target.Row + 1).Locked = False
If WF.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 0 Then Rows(Target.Row + 1).Locked = True
End Sub

  Ez azt csinálja, hogy ha pl. a 4. sor adatait törlöd, az 5. sor celláit zárolja. A 4. sor újra kitöltése után ismét írható lesz az ötödik.
  Erre gondoltál?

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