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

• #35677 Delila_1 veterán Carasc0 #35675

  Új Válasz 2017-07-06 17:43:57 #35677

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

  Az AZ16 eleve legyen zárolt, az I16 pedig nem.

  Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect Password:="aaa", UserInterfaceOnly:=True '**********
If Target.Address = "$I$16" And Target >= 3 Then
Range("AZ16") = "I"
Range("$I$16").Locked = True
End If
End Sub

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