עבודה עם פיבוט באקסל שיש בה גליונות עם הגנה

[חיים_]

עבודה עם פיבוט באקסל שיש בה גליונות עם הגנה

כשאני מבצע הגנה על גליון בחוברת שיש בה טבלאת פיבוט כשעושים רענן הכל אז הנתונים לא מתרעננים. האם יש אפשרות גם לעשות הגנה לגליון וגם לרענן את הנתונים?
ויננדווס 7 אופיס פרו 13

תודה רבה

 

[iyyi]

אפשר לעשות זאת עם קוד מקרו

הקוד יוריד את ההגנה, ירפרש את הנתונים ולאחר מכן יחזיר את ההגנה.
מצורף קוד לדוגמה מפורום של מיקרוסופט:

Sub RefreshPT()
    Dim wsh As Worksheet
    Dim pvt As PivotTable
    For Each wsh In Worksheets
        wsh.Unprotect Password:="secret"
        For Each pvt In wsh.PivotTables
            pvt.PivotCache.Refresh
        Next pvt
        wsh.Protect Password:="secret"
    Next wsh
End Sub

אתה יכול להוסיף כפתור לגיליון שלחיצה עליו תפעיל את המקרו

 

[חיים_]

זה משחרר את כל החוברת?

 

[iyyi]

זה לא מוריד את ההגנה מחוברת העבודה...

המקרו המוצע עובר על כל הגיליונות מוריד מהם הגנה, מרענן את טבלאות הציר ומחזיר את ההגנה לאחר מכן.
אפשר כמובן להתאים אותו לצרכיך.
אל תשכח להגן על המודול של המקרו עם סיסמה. בלי זה יהיה אפשר להיכנס למקרו ולראות את הסיסמה.

 

[חיים_]

 

[חיים_]

קיבלתי הודעת שגיאה. תוכל לבדוק מה לא תקין? מצרף תמונת מסך

 

[חיים_]

אחרי עוד תיקון- הסרתי כפילות SUB מצורף

גם אחרי שהסרתי את ההגנה נותן לי שבגליון מוגן לא ניתן לערוך
יש לך רעיון?

 

[iyyi]

תעלה לאתר קובץ אקסל עם המקרו או שלח לי בפרטי

 

[iyyi]

יש לך שתי שורות SUB - המקורית וזאת שהוספת בהתחלה. מחק אחת