תוֹכֶן
אל תיסגר!
אתה יכול לזהות גיליון אלקטרוני מוגן תחת הקטע שינויים בכרטיסייה סקירה על הסרט. אם הגיליון האלקטרוני מוגן, אתה רואה את האפשרות גיליון הגנה.
הזן את הסיסמה המשמשת להגנה על הגיליון האלקטרוני ובחר בסדר.
הגיליון האלקטרוני שלך לא יוגן כעת וניתן לשנות אותו.
כיצד לבטל הגנה על חוברת עבודה של Excel מבלי לדעת את הסיסמה
יתכן שהגנת על חוברת העבודה או הגיליון האלקטרוני שלך ב- Excel ולא היית צריך לשנות אותה זמן מה ואפילו שנים. כעת כשאתה צריך לבצע שינויים, אתה כבר לא זוכר את הסיסמה שבה השתמשת כדי להגן על גיליון אלקטרוני זה.
למרבה המזל, שלבים אלה יאפשרו לך לבטל את ההגנה על חוברת העבודה שלך באמצעות סקריפט Virtual Basic כמאקרו לזיהוי הסיסמה.
-
פתח את הגיליון האלקטרוני המוגן.
-
גש לעורך הקוד של Visual Basic על ידי לחיצה על ALT + F11 או בחר מפתח> צפה בקוד.
-
בחלון הקוד של הגיליון המוגן, הזן את הקוד הבא:
Sub PasswordBreaker ()
Dim i כמספר שלם, j כמספר שלם, k כשלם שלם
ממדי כמספר שלם, m כמספר שלם, n כמספר שלם
Dim i1 כמספר שלם, i2 כמספר שלם, i3 כמספר שלם
Dim i4 כמספר שלם, i5 כמספר שלם, i6 כמספר שלם
בשגיאה חידוש הבא
עבור i = 65 עד 66: עבור j = 65 עד 66: עבור k = 65 עד 66
עבור l = 65 עד 66: עבור m = 65 עד 66: עבור i1 = 65 עד 66
עבור i2 = 65 עד 66: עבור i3 = 65 עד 66: עבור i4 = 65 עד 66
עבור i5 = 65 עד 66: עבור i6 = 65 עד 66: עבור n = 32 עד 126
ActiveSheet. הגנה על Chr (i) ו- Chr (j) ו- Chr (k) & _
Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _
Chr (i4) ו- Chr (i5) & Chr (i6) & Chr (n)
אם ActiveSheet.ProtectContents = לא נכון אז
MsgBox "סיסמא שמישה אחת היא" & Chr (i) & Chr (j) & _
Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _
Chr (i3) & Chr (i4) & Chr (i5) & Chr (i6) & Chr (n)
צא משנה
סוף אם
הבא: הבא: הבא: הבא: הבא: הבא
הבא: הבא: הבא: הבא: הבא: הבא
סיום משנה
-
בחר לָרוּץ או לחץ F5 כדי לבצע את הקוד.
-
הקוד ייקח מספר דקות לרוץ. לאחר שתסיים, תקבל חלון קופץ עם סיסמה. בחר בסדר והגיליון האלקטרוני שלך לא יוגן.
זו לא הסיסמה המקורית ואינך צריך לזכור אותה.
