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

• #1491 öcsi-bácsi csendes tag öcsi-bácsi #1490

  Új Válasz 2011-10-15 11:31:53 #1491

  Ú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

  

  öcsi-bácsi

  csendes tag

  válasz öcsi-bácsi #1490 üzenetére

  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