כיצד ליצור הגנה באמצעות סיסמה באמצעות מאקרו
האם ברצונך לוודא שכל גליונות העבודה בתיקיה שבחרת מוגנים באמצעות סיסמה באמצעות מאקרו? זה יכול להיות שימושי אם אתה מתקשה יותר מדי להגן על גליונות עבודה בנפרד או אם ברצונך להגן על כל חוברות העבודה בספרייה באופן אוטומטי. השתמש במקרו הבא כדי להקצות את הסיסמה "הגנה" לכל גליונות העבודה בתיקייה הפעילה:
תת AllSchuetzen ()
גיליון עמום כגליון עבודה
לכל גיליון ב- ActiveWorkbook.Worksheets
Blatt.Protect ("הגנה")
הדף הבא
סיום תת
במקום הטקסט "Schutz", השתמש בסיסמה שבחרת. כמובן שקוד התוכנית הזה הגיוני רק אם תזין אותו מחוץ לחוברת העבודה שבה אתה יוצר את ההגנה. אחרת, כל משתמש יכול לקרוא את הסיסמה בטקסט המקור של VBA.
על מנת שתוכל לשנות משהו בגליונות העבודה המוגנים, עליך להסיר את ההגנה. אתה יכול לעשות זאת באופן ידני באמצעות הפקודה EXTRAS - PROTECTION - ביטול עלה הגנה. פקודה זו זמינה רק אם גליון העבודה הנוכחי מוגן בפועל.
אם ברצונך לשחרר שוב את כל גליונות העבודה המוגנים באמצעות מאקרו, השתמש בקוד התוכנית הבא:
חשיפת תת כל ()
גיליון עמום כדף עבודה
עבור כל גיליון ב- ActiveWorkbook.Worksheets
Blatt.Unprotect ("הגנה")
הדף הבא
סיום תת