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

• öcsi-bácsi csendes tag

  #1491

  #1490 öcsi-bácsi

  2011-10-15 11:31:53

  Új Válasz

  Ú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

  

  öcsi-bácsi

  csendes tag

  #1490 öcsi-bácsi

  #1490 öcsi-bácsi

  Köszi, rendes vagy.

  Közben találtam egy megoldást:
  'visszhang kikapcs
  Application.ScreenUpdating = False
  "makró fut"
  Application.ScreenUpdating = True

  Ami viszont közben kérdésessé vált: adatokat másolok egy űrlapról makróval, egyik excel lapról a másikra, viszont szándékaim szerint a második lap egyfajta adatbázis lesz, amit ellátnék lapvédelemmel. Viszont a makróm természetesen megáll, ha a második lap védelmét bekapcsolom.
  Kérdésem: hogyan másolhatna a makróm mégis ide adatokat?

  megtaláltam:
  Sub rög4()
  'minta védelem feloldására
  Sheets("Munka2").Select
  'azért kell először feloldani a védelmet, mert a kijelölés munka1!a1 megszűnik
  pass = "123456789"
  ActiveSheet.Unprotect pass
  'most lehet másolni!
  Sheets("munka1").Select
  Range("a1").Select
  Selection.Copy
  Sheets("Munka2").Select
  Range("A1").Select
  ActiveSheet.Paste
  'majd rátenni a védelmet!
  ActiveSheet.Protect Password:=pass
  Sheets("munka1").Select
  End Sub

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