מה צריך לדעת
- בטל את ההגנה כבעלים: פתח את הגיליון האלקטרוני. בחר Review > Unprotect Sheet. הזן את הסיסמה המשמשת להגנה על הקובץ. בחר OK.
- בטל הגנה ללא סיסמה: פתח את הגיליון האלקטרוני. פתח את Visual Basic עורך קוד על ידי בחירת Developer > צפה בקוד.
- לאחר מכן, הזן את הקוד שצוין במאמר זה ובחר Run. תוך מספר דקות נחשפת סיסמה. בחר OK.
מאמר זה מסביר כיצד לבטל את ההגנה על חוברות עבודה של Excel כבעלים של חוברת העבודה עם הסיסמה או כאדם פרטי ללא הסיסמה. מידע זה חל על חוברות עבודה של Excel ב-Microsoft Excel 365, Microsoft Excel 2019, 2016 ו-2013.
כיצד לפתוח חוברת עבודה של Excel בתור הבעלים
Microsoft Excel עמוס בתכונות. תכונה אחת כזו היא היכולת להגן על קבצי Excel שלך ברמת התא, הגיליון האלקטרוני או חוברת העבודה. לפעמים יש צורך לבטל את ההגנה על חוברות עבודה של Excel כדי להבטיח ששינויי נתונים יחולו כהלכה.
שיטה זו מניחה שכבעלים של הקובץ, אתה זוכר את הסיסמה המשמשת להגנה על הגיליון האלקטרוני.
-
פתח את הגיליון האלקטרוני המוגן ובחר Review > Unprotect Sheet. תוכל גם ללחוץ לחיצה ימנית על הגיליון האלקטרוני המוגן ולאחר מכן לבחור Unprotect Sheet.
אתה יכול לזהות גיליון אלקטרוני מוגן בקטע השינויים של הכרטיסייה סקירה ברצועת הכלים. אם הגיליון האלקטרוני מוגן, אתה רואה את האפשרות בטל את הגנת הגיליון.
Image -
הזן את הסיסמה המשמשת להגנה על הגיליון האלקטרוני ולאחר מכן בחר OK.
Image -
הגיליון האלקטרוני שלך לא יהיה מוגן כעת וניתן לשנות אותו.
Image
איך לבטל את ההגנה על חוברת עבודה של Excel מבלי לדעת את הסיסמה
ייתכן שהגנת על חוברת העבודה או הגיליון האלקטרוני שלך ב-Excel ולא נאלצת לשנות אותם כבר זמן מה, אפילו שנים. כעת, כשעליך לבצע שינויים, אינך זוכר עוד את הסיסמה שבה השתמשת כדי להגן על הגיליון האלקטרוני הזה.
למרבה המזל, השלבים האלה יאפשרו לך לבטל את ההגנה על חוברת העבודה שלך באמצעות סקריפט Virtual Basic כמאקרו לזיהוי הסיסמה.
- פתח את הגיליון האלקטרוני המוגן.
-
גש לעורך הקוד של Visual Basic על ידי לחיצה על ALT+F11 או בחר Developer > View Code.
Image -
בחלון הקוד של הגיליון המוגן, הזן את הקוד הבא:
Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 כמספר שלם, i2 כמספר שלם, i3 כמספר שלם
Dim i4 כמספר שלם, i5 כמספר שלם, i6 כמספר שלם
בהמשך שגיאה
For i=65 עד 66: עבור j=65 עד 66: עבור k=65 עד 66
עבור l=65 עד 66: עבור m=65 עד 66: עבור i1=65 עד 66
עבור i2=65 עד 66: עבור i3=65 To 66: For i4=65 To 66
For i5=65 To 66: For i6=65 To 66: For n=32 To 126
ActiveSheet. Unprotect Chr(i) & Chr (j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet. ProtectContents=False Then
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)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: הבא: הבא: הבא: הבא
End Sub
Image -
בחר Run או הקש F5 כדי להפעיל את הקוד.
Image -
הקוד ייקח מספר דקות לפעול. לאחר שתסיים, תקבל חלון קופץ עם סיסמה. בחר OK והגיליון האלקטרוני שלך לא יהיה מוגן.
זו לא הסיסמה המקורית ואתה לא צריך לזכור אותה.
