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

• #20668 bteebi veterán kőbaltazár #20663

  Új Válasz 2014-02-25 15:16:07 #20668

  Ú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

  

  bteebi

  veterán

  válasz kőbaltazár #20663 üzenetére

  Valami ilyesmi?

  Sub Protect()
  Cells.Select
  Selection.Interior.ColorIndex = 43
  Range("B22:C37,B53,F13").Select
  With Selection
  .Interior.ColorIndex = xlNone
  .Locked = False
  End With
  ActiveSheet.Protect
  End Sub

  Nyomtatásnál a fekete-fehér is jó?

  With Sheets("Lap neve")
  .PageSetup.BlackAndWhite = True

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