סיסמה להגן על מאקרו

בדיוק כמו שאתה יכול להגן על חוברות עבודה וגליונות עבודה, אתה יכול סיסמה להגן על מאקרו in Excel מהצפייה (והוצאה להורג).

הצב לחצן פקודה בגליון העבודה והוסף את שורות הקוד הבאות:

1. ראשית, ליצור מאקרו פשוט שאתה רוצה להגן.

Range("A1").Value = "This is secret code"

2. לחץ על כלים, מאפייני VBAProject.

3. בכרטיסייה הגנה, סמן את "נעל פרוייקט לצפייה" והזן סיסמה פעמיים.

4. לחץ על אישור.

5. שמור, סגור ופתח מחדש את קובץ ה- Excel. נסה להציג את הקוד.

תיבת הדו-שיח הבאה תופיע:

אתה עדיין יכול לבצע את הקוד על ידי לחיצה על כפתור הפקודה אבל אתה לא יכול להציג או לערוך את הקוד עוד (אלא אם אתה יודע את הסיסמה). הסיסמה עבור קובץ Excel להורדה היא "קלה".

6. אם אתה רוצה סיסמה להגן על המאקרו מלהיות יצא לפועל, הוסף את שורות הקוד הבאות:

Dim password As Variant
password = Application.InputBox("Enter Password", "Password Protected")

Select Case password
    Case Is = False
        "do nothing
    Case Is = "easy"
        Range("A1").Value = "This is secret code"
    Case Else
        MsgBox "Incorrect Password"
End Select

תוצאה בעת לחיצה על לחצן הפקודה בגיליון:

הסבר: המאקרו משתמש בשיטת InputBox של אובייקט היישום. אם משתמשים לוחצים על ביטול, שיטה זו מחזירה False ולא קורה דבר (InputBox נעלם). רק כאשר המשתמש יודע את הסיסמה ("קל" שוב), הקוד הסודי יבוצע. אם הסיסמה שהוזנה שגויה, מוצג MsgBox. שים לב שהמשתמש אינו יכול להסתכל על הסיסמה בעורך Visual Basic מכיוון שהפרויקט מוגן מפני צפייה.