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

• #31649 lenkei83 tag

  Új Válasz 2016-05-30 13:53:02 #31649

  Ú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

  

  lenkei83

  tag

  Sziasztok!

  Workbook_open eseménybe be van ágyazva egy module-ban lévő kód ami egy egyszerű munkalap védelem. Viszont valamiért munkafüzet megnyitásnál átugrik a soron és nem fut le a kód.
  Olvasgattam fórumokon, de nem találtam értelmes választ.

  Valakinek valami ötlet?

  Üdv.:
  P.

  Private Sub Workbook_Open()
  protect
  End Sub

  Sub protect()
  
  Dim ws As Worksheet
  
  Application.EnableEvents = False
  Application.ScreenUpdating = False
  
  Munka2.AutoFilterMode = False
  Munka3.AutoFilterMode = False
  
  Munka2.Range("A5:Y" & Munka2.Range("A5").End(xlDown).Row).AutoFilter
  Munka3.Range("A1:D" & Munka2.Range("A1").End(xlDown).Row).AutoFilter
  
  Range("year").Locked = False
  Range("month").Locked = False
  For Each ws In Worksheets
  ws.protect AllowFormattingCells:=True, AllowFiltering:=True, UserInterfaceOnly:=True, DrawingObjects:=True, contents:=True, AllowUsingPivotTables:=True
  Next
  
  Munka1.EnablePivotTable = True
  Munka1.protect contents:=True
  
  Application.EnableEvents = True
  Application.ScreenUpdating = True
  
  End Sub

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