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

• #21836 Delila_1 veterán toth60 #21835

  Új Válasz 2014-05-31 15:43:04 #21836

  Ú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 toth60 #21835 üzenetére

  Nagyon szívesen.

• #21834 Delila_1 veterán toth60 #21833

  Új Válasz 2014-05-31 15:12:30 #21834

  Ú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 toth60 #21833 üzenetére

  Tedd eggyel feljebb a színezőst sort, a lezárásos fölé.

• #21832 Delila_1 veterán toth60 #21831

  Új Válasz 2014-05-31 13:08:58 #21832

  Ú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 toth60 #21831 üzenetére

  A lapvédelem előtt add meg a háttérszínt az összes cellának. A makró a védett tartomány hátterét fehérre állítja a védelemmel azonos időben.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 5 Then
  ActiveSheet.Protect Password:="aaa", UserInterfaceOnly:=True
  Rows(Target.Row).Locked = True
  Range("A" & (Target.Row) & ":E" & Target.Row).Interior.Color = vbWhite
  End If
  End Sub

• #21831 toth60 csendes tag toth60 #21830

  Új Válasz 2014-05-31 12:53:00 #21831

  Ú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

  

  toth60

  csendes tag

  válasz toth60 #21830 üzenetére

  Már csak annyit szeretnék- ha nem gond -, hogy a zárolt cellák halvány szürkék legyenek az átláthatóság és az egyértelműség kedvéért...

• #21829 Delila_1 veterán toth60 #21828

  Új Válasz 2014-05-31 11:55:25 #21829

  Ú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 toth60 #21828 üzenetére

  Én vagyok a hibás. Az 1. pontban nem írtam meg, hogy az írható cellák zárolását vedd le, akkor már nem lesz hiba.

  Ha azt akarod, hogy az 5. (E) oszlopba írás után legyen a teljes sor zárolt, akkor az A:E oszlopok celláinak a zárolása elől vedd ki a pipát a cellaformázásnál, a makró pedig a laphoz rendelve:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 5 Then
  ActiveSheet.Protect Password:="aaa", UserInterfaceOnly:=True
  Rows(Target.Row).Locked = True
  End If
  End Sub

  A makró bemásolásakor írd át az aaa jelszót a saját jelszavadra.

• #21827 Delila_1 veterán toth60 #21826

  Új Válasz 2014-05-31 09:23:05 #21827

  Ú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 toth60 #21826 üzenetére

  1. Jelöld ki együttesen a cellákat, amikbe engeded a beírást. Ezt például a Ctrl billentyű nyomva tartása mellett a cellákra kattintással teheted meg.
  2. Adj nevet a kijelölt területnek, legyen a név zárolni.
  3. Védd le a lapot. A védelemnél a Zárolt cellák kijelölése elől vedd ki a pipát, a Nem zárolt cellák kijelölése legyen kijelölve. Nálam a jelszó aaa, ehelyett vigyél be valami mást.
  4. Lapfülön jobb klikk, Kód megjelenítése. Bejutottál a VB szerkesztőbe, ahol a jobb oldali üres felületre másold be a lenti makrót.
  5. Írd át az
  ActiveSheet.Protect Password:="aaa", UserInterfaceOnly:=True
  sorban az aaa-t a saját jelszavadra, indulhat a munka.

  Private Sub Worksheet_Change(ByVal Target As Range)
  ActiveSheet.Protect Password:="aaa", UserInterfaceOnly:=True
  If Not Intersect(Target, Range("zárolni")) Is Nothing Then Range(Target.Address).Locked = True
  End Sub

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