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

• #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