מתקשה לשמור גיליון עם סיסמה

[יוסיפלג]

מתקשה לשמור גיליון עם סיסמה

שלום רב !!
ברשותי חלונות 10 ואופיס 2016
אני מקליט מאקרו שאמור לשמור לי על גיליון עם סיסמת הגנה.
התכנה מבקשת לחזור על הסיסמה - אני חוזר עליה מאשר - ויוצא מהגיליון.
כשאני חוזר וקורא לגיליון הוא עולה מיידית ללא בקשת סיסמה !!
הערה : אני מקליט את המאקרו הנ"ל בניפרד ואחר"כ "שותל" אותו
בתוך מאקרו אחר קיים.. (באמצעות CNTL V) והמחשב מסרב לבצע שמירה עם סיסמה.
התוכלו בבקשה לנחש עבורי "מה אני עושה לא טוב או לא נכון" ??.
תודה

 

[u333]

שאלה והצעה:

השאלה: איך אתה שומר גיליון עם סיסמא ?
וההצעה: צרף לכאן את הקובץ עם הקוד

 

[יוסיפלג]

מתקשה לשמור גיליון עם סיסמה.

שלום לך U333 !!
ראשית תרשה לי להודות לך על עצתך בשבוע שעבר בקשר עם העתקת מאקרוס בין חוברות. הצעתך לגרירה היתה מצויינת - ועבדה היטב !!
היום אני מנסה לכתוב (להוסיף) בתוך מאקרו "גדול מאד" כמה שורות שתכליתן לשמור את הגיליון אבל עם סיסמה !!
לשם כך כתבתי מאקו "זמני" ובתוכו הקשתי: שמור בשם, כלים/אפשרויות כלליות,
סיסמה לפתיחה נגיד 123456, אישור ואישרור שוב..
כאשר כתבתי את המאקו ה"זמני" הנ"ל...הכל בוצע כדבעי..
נכנסתי אליו : CTRL A עבור למאקרו "הגדול" ובתוכו CNTL V
אבל כאשר הרצתי את המקרו הגדול הוא לא ביצע שמירה בכלל !!
ואני שואל: למה ?? מה עשיתי לא נכון ??
תודה

 

[u333]

מצטער שאתה עונה לא לעניין. לא ענית על שאלותי....

ציטוט:
השאלה: איך אתה שומר גיליון עם סיסמא ?
וההצעה: צרף לכאן את הקובץ עם הקוד

 

[יוסיפלג]

מצטער שאני לא מבין את שאלתך..

כנראה שהבורות אצלי... לא היתה ברורה לי שאלתך "איך אתה שומר גיליון עם סיסמה, לכן פרטי לך את כל התהליך בו כתבתי בתוך הקלטת מאקרו פקודה לשמור
גיליון מסויים עם סיסמה. אני אתמצת שנית: יש לי גיליון...(שנוצר מאתר הבנק) ממנו אני מעביר נתונים לגיליון אחר (שנמצא בתוך חוברת גדולה מאד) .בסוף העברת הנתונים אני רוצה לחזור לגיליון שממנו לקחתי את הנתונים ולשמור אותו עם סיסמה. וזה לא מצליח לי.
ומה שמוזר לי הוא כשאני מבצע שמירה עם סיסמה - ישרות ולא באמצעות מאקרו - הכל עובד תקין והגיליון נשמר עם סיסמה כמו שרציתי. רק כשאני מנסה לכתוב זאת בתוך מאקרו.. זה לא עובד !!
מובן שמחשש עינה בישה...לא אוכל לצרף כל קובץ..
תודה

 

[u333]

נשברתי ! אציין רק זאת:

כנראה שאין לך ידע אודות המונחים הנכונים להגדרת מצב גיליונות וקבצים !
לגבי גיליון:

• ניתן להגן עליו - עם או בלי סיסמא.
• ניתן להסתיר אותו - שני סוגי הסתרה, רגילה או very hidden
• ניתן לשמור אותו כקובץ נפרד. קובץ - דהיינו חוברת עבודה - עם או בלי סיסמא.
• ניתן, ע"י מקרו, להתנות את ביטול ההסתרה בהקשת טקסט מסוים - שאפשר לקרוא לו "סיסמא" - את המקרו ניתן להסתיר ע"י הגנה על הקוד באמצעות סיסמא.

לצערי, לא הצלחתי להבין לאיזה סוג מאלו שלמעלה שייכים הגיליונת שלך.
כל שאלה נוספת - רק עם צרוף קובץ והמקרו ש'נכתב-הוקלט-הודבק'. אם יש בעיות של "עינא בישא" - סלק את המידע בשאר הגיליונות ו/או צרף רק את הקוד.

 

[מיכאל אבידן]

האם תסכים להחליף את המושג 'גיליון' במושג 'קובץ'

. . .

&nbsp
או שאני סתם "משתעשע" בניחושי סרק...!?
&nbsp

 

[יוסיפלג]

אתה לא משתעשע

אתה אישית לימדת אותי (באחת ההתכתבויות, לפני שנים) להבחין בין גיליון בודד לבין חוברת שמכילה יותר מגיליון אחד...
לכן אני חוזר: אני מנסה -באמצעות פקודת מאקרו - להעביר נתונים מגיליון (עם סיומת xlsx) לתוך גליון אחר שנמצא בחוברת ...ולחזור לגיליון המקור ולשמור אותו עם סיסמה..וזה לא מצליח לי.
האם תוכל לעזור לי ??
תודה

 

[מיכאל אבידן]

צר לי על שאינני זוכר "מה לימדתי את מי" . . .

אני עדיין לא מבין למה הכוונה בלשמור

גיליון (ציטוט מדבריך).

אני גם לא מכיר גיליון עם סיומת XLSX (do זה ציטוט מדבריך).

אם כל מה שאתה מבקש הוא להחיל סיסמת הגנה על הגיליון המקרו - אזי, לאחר שחזרת אליו והוא הגיליון הפעיל כל שעליך להריץ היא פקודת מקרו אחת (בחרתי ב- 123 כסיסמה).

ActiveSheet.Protect Password:="123"

 

[יוסיפלג]

סיסמה בפתיחת גיליון

תודה על תשובתך הקודמת.
הנוסחה שהצעת נותנת הגנה על כל הגיליון נגד כתיבה (בשוגג?) על התאים.
מה שאני מחפש זה הגנה על פתיחת הגיליון: כל מי שיקרא לגיליון יתקל בתיבה עליה רשום" גיליון ABC מוגן. הקש סיסמה לפתיחה.
את הפקודה הזו שאני מחפש אני רוצה לכתוב בתוך מאקרו כך שלאחר שאייבא ממנו נתונים לגיליון אחר בחוברת אחרת - יחזור לגיליון הראשון ישמור עליו כך שאחרים לא יוכלו לפתוח אותו ללא סיסמה.
מקווה שעכשו אני יותר מובן
תודה

 

[מיכאל אבידן]

בזאת אסיים את מה שיש לי להציע . . .

בהנחה ששמו של הגיליון המסותר הוא: Sheet2, נסה להריץ את המקרו הראשון - בדוק את האפשרות לבטל (ידנית) את ההסתרה ואז הרץ את המקרו השני.

בסיום כל העבודה יהיה עליך להגן עם סיסמה על פרויקט ה- VBA.

כל הר"מ הוא בגדר העיקרון הכללי וייתכן שיהיה עליך להתאימו לצרכיך.

Sub Hide_Protect()
      Sheets("Sheet2").Visible = 0
      ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False
End Sub

Sub UnHide()
      ActiveWorkbook.Unprotect Password:="123"
      Sheets("Sheet2").Visible = 1 '
End Sub