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

• #47072 Pakliman tag Dilikutya #47070

  Új Válasz 2021-07-02 12:34:41 #47072

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

  Szia!

  1 lehetőség...:
  Private Sub Worksheet_Change(ByVal Target As Range)
'Feltételezzük, hogy az A oszlopban kezdik a beírást, a dátum pedig az X oszlopba kerül...
If Not Application.Intersect(Target, Columns(1)) Is Nothing Then
Application.EnableEvents = False

'Ha van "zárolt" cella, akkor van bekapcsolt védelem is a munkalapra...
ActiveSheet.Unprotect "jelszo"

Cells(Target.Row, "X") = Date

ActiveSheet.Protect "jelszo"
Application.EnableEvents = True
End If
End Sub

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