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

• #31246 Nowitzki csendes tag tgumis #31203

  Új Válasz 2016-04-06 23:35:05 #31246

  Ú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

  

  Nowitzki

  csendes tag

  válasz tgumis #31203 üzenetére

  Próbáld meg ezt:
  Sub fejlec_formazas()
  Application.ScreenUpdating = False
  For Each ws In ThisWorkbook.Worksheets
  With ws
  .Activate
  .Unprotect Password:="Lufi09"
  With ActiveWindow
  .FreezePanes = False
  Range("A10").Select
  .FreezePanes = True
  End With
  .Range("I1:I3").Interior.Color = RGB(204, 192, 218)
  With .Range("B1:D3,B8:D158,I8:J158,M8:N158,P8:P158,S8:V158,Y8:Y158")
  .Locked = False
  .FormulaHidden = False
  End With
  If .AutoFilterMode Then .Cells.AutoFilter
  .Range("A6:J6").AutoFilter
  ' kódolás
  .Protect Password:="Lufi09", _
  UserInterfaceOnly:=True, _
  AllowFormattingColumns:=True, _
  AllowFiltering:=True
  .EnableSelection = xlNoRestrictions
  End With
  Next ws
  Application.ScreenUpdating = True
  End Sub

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