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

• #31766 lenkei83 tag Delila_1 #31765

  Új Válasz 2016-06-13 20:12:55 #31766

  Ú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

  válasz Delila_1 #31765 üzenetére

  Jaa oké. Ezt így értem. A kérdés arra irányult, hogy ha nincs password akkor a userinterface..True sem működik? A gondom az, hogy a kódban amit lentebb bemásoltam,ott van a userinterface True, és ennek ellenére sem frissül magától a fül.

  Van egy ilyenem:

  Private Sub Workbook_Open()
Dim ws As Worksheet


Application.EnableEvents = False
Application.ScreenUpdating = False

For Each ws In Worksheets
ws.unprotect
Next

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 UserInterfaceOnly:=True, AllowFormattingCells:=True, AllowFiltering:=True, DrawingObjects:=True, contents:=True ', AllowUsingPivotTables:=True
Next

Application.EnableEvents = True
Application.ScreenUpdating = True
UserForm10.Show

End Sub

  Majd egy ilyenem a frissítendő munkalapon, ahol egy sima pivot van:

  Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
ThisWorkbook.RefreshAll
Application.ScreenUpdating = True
End Sub

  Ebben az összefüggésben merü fel az a gond, hogy ha zárolva van a munkalap akkor nem frissül a pivot.

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