בדיוק כמו שאתה יכול להגן על סיסמאות וחוברות עבודה באמצעות סיסמה, אתה יכול הגנה באמצעות מאקרו באמצעות סיסמה ב לְהִצטַיֵן מהצפייה (וההוצאה להורג).
מקם כפתור פקודה בגליון העבודה שלך והוסף את שורות הקוד הבאות:
1. ראשית, צור מאקרו פשוט שאתה רוצה להגן עליו.
טווח ("A1"). Value = "זהו קוד סודי"
2. לאחר מכן לחץ על כלים, מאפייני VBAProject.
3. בכרטיסיה הגנה, סמן את "נעילת פרוייקט לצפייה" והזן פעמיים סיסמה.
4. לחץ על אישור.
5. שמור, סגור ופתח מחדש את קובץ האקסל. נסה לצפות בקוד.
תיבת הדו -שיח הבאה תופיע:
אתה עדיין יכול לבצע את הקוד על ידי לחיצה על כפתור הפקודה אך אינך יכול להציג או לערוך את הקוד יותר (אלא אם כן אתה יודע את הסיסמה). הסיסמה לקובץ האקסל להורדה היא "קלה".
6. אם ברצונך להגן על המאקרו מפני סיסמה באמצעות סיסמה, הוסף את שורות הקוד הבאות:
עמום סיסמא כגרסה
password = Application.InputBox ("הזן סיסמה", "מוגן בסיסמה")
בחר סיסמת תיק
מקרה הוא = שקר
'לעשות כלום
מקרה הוא = "קל"
טווח ("A1"). Value = "זהו קוד סודי"
מקרה אחר
MsgBox "סיסמה שגויה"
סיום בחר
התוצאה כאשר אתה לוחץ על כפתור הפקודה בגיליון:
הסבר: המאקרו משתמש בשיטת InputBox של אובייקט היישום. אם המשתמשים לוחצים על ביטול, שיטה זו מחזירה שקר ושום דבר לא קורה (תיבת הקלט נעלמת). רק כאשר המשתמש יודע את הסיסמה ("קל" שוב), הקוד הסודי יבוצע. אם הסיסמה שהוזנה אינה נכונה, תיבת הודעה מוצגת. שים לב שהמשתמש אינו יכול להסתכל על הסיסמה בעורך Visual Basic מכיוון שהפרויקט מוגן מפני צפייה.
