עזרה - שינוי סיסמה לקובץ אקסס באמצעות קוד

[דב פליי]

שלום

האם יש אפשרות לשנות את סיסמת של קובץ אקסס באמצעות קוד?

בתודה מראש לעוזרים

 

[FullTime]

נסה את זה

' Create connection string by using current password.
strOpenPwd = ";pwd=" & OldPswd

' Open database for exclusive access by using current password. To get
' exclusive access, you must set the Options argument to True.
Set dbsDB = OpenDatabase(Name:=DBPath, _
                         Options:=True, _
                         ReadOnly:=False, _
                         Connect:=strOpenPwd)

' Set or change password.
With dbsDB
    .NewPassword OldPswd, Pswd2
    .Close
End With

Me.DB_Pswd = Pswd2

Set dbsDB = Nothing

 

[דב פליי]

הוא כותב לי שגיאה על השורה הזאת

Me.DB_Pswd = Pswd2

תודה על העזרה

 

[FullTime]

תנסה בלעדיו

 

[דב פליי]

ניסתי אבל אז הוא מסמן בצהוב את השורות האלה

Set dbsDB = OpenDatabase(Name:=DBPath, _
                         Options:=True, _
                         ReadOnly:=False, _
                         Connect:=strOpenPwd)

תודה על עזרתך

 

[עמיק]

תבדוק את הקישור
https://www.devhut.net/2012/09/10/ms-access-vba-change-database-password/

 

[דב פליי]

תבדוק את הקישור
https://www.devhut.net/2012/09/10/ms-access-vba-change-database-password/

תודה
אני מסתבך עם הקריטריונים שאני אמור לתת לפונקציה, אשמח להסבר, בקוד שמה הוא מסביר חלקית ואני לא מסתדר עם זה.

בתודה מראש

 

[FullTime]

אתה צריך להביא לו שם קובץ, סיסמה ישנה וחדשה.
הוא לא עובד עם פרוייקט נוכחי.

 

[דב פליי]

אתה צריך להביא לו שם קובץ, סיסמה ישנה וחדשה.
הוא לא עובד עם פרוייקט נוכחי.

אתה מדבר על הקוד ש עמיק הביא?

 

[FullTime]

אתה מדבר על הקוד ש עמיק הביא?

חיובי

 

[עמיק]

מצורף דוגמה
בטופס בקובץ db1 , יש לחצנים שמדגימים את האפשרויות
לשינוי וביטול סיסמה לקובץ test
אצלי הקובץ test נמצא בתיקיה הראשית D
כמובן שצריך לשנות את נתיב הקובץ test (בטופס ב-db1) בהתאם למיקום שלכם
בהצלחה

 

[דב פליי]

מצורף דוגמה
בטופס בקובץ db1 , יש לחצנים שמדגימים את האפשרויות
לשינוי וביטול סיסמה לקובץ test
אצלי הקובץ test נמצא בתיקיה הראשית D
כמובן שצריך לשנות את נתיב הקובץ test (בטופס ב-db1) בהתאם למיקום שלכם
בהצלחה

תודה הקבצי דוגמא זה מאד עוזר!

יש אפשרות גם שיהא גם לפרויקט נוכחי להחליף עם קוד את הסיסמה?

תודה רבה רבה!

 

[עמיק]

כדי לשנות סיסמה צריך לפתוח את הקובץ באמצעות "פתיחה בלעדית"
אפשר לפתוח בקיצור דרך , בכתובת צריך להוסיף סוויצ' - /excl
לדוגמה-D:\test.accdb /excl

 

[דב פליי]

כדי לשנות סיסמה צריך לפתוח את הקובץ באמצעות "פתיחה בלעדית"
אפשר לפתוח בקיצור דרך , בכתובת צריך להוסיף סוויצ' - /excl
לדוגמה-D:\test.accdb /excl

תודה רבה רבה על העזרה!

מה סיסמת הקובץ?

 

[עמיק]

הסיסמה היא - test
לאחר החלפה test2