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

• #11813 Delila_1 veterán Pá #11812

  Új Válasz 2011-10-29 17:32:45 #11813

  Ú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 Pá #11812 üzenetére

  A laphoz rendelt makróval lehet megoldani. Az első változatot írtam meg, mikor az A1-be írva a B1 zárolt lesz. Mikor törlöd az A1 tartalmát, mindkét cella felszabadul. A B1-be írva az A1 lesz zárolt.

  A makró indítása előtt a többi cellában – ahova még akarsz írni a fenti kettőt kivéve – töröld a zárolást.

  Private Sub Worksheet_Change(ByVal Target As Range)
  ActiveSheet.Protect UserInterfaceOnly:=True
  
  If Not Intersect(Target, Range("A1:B1")) Is Nothing Then
  If IsEmpty(Target) Then
  Range("A1:B1").Locked = False
  Exit Sub
  End If
  End If
  
  If Target.Address = "$A$1" Then
  Range("B1").Locked = True: Range("A1").Locked = False
  End If
  
  If Target.Address = "$B$1" Then
  Range("A1").Locked = True: Range("B1").Locked = False
  End If
  End Sub

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