תכנון אקסס לכמה משתמשים

[בעל כישרון]

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

[avi rz]

@בעל-כישרון כתב בתכנון אקסס לכמה משתמשים:

המידע צריך להיות נגיש לכמה מחשבים בתוך המשרד

יצירת תקייה משותפת ברשת ושם להניח את הקובץ
מקובל לעשות חלוקה לשני קבצים 1 הטבלאות 2. הממשק.

@בעל-כישרון כתב בתכנון אקסס לכמה משתמשים:

כשלכל משתמש רמת חשיפה שונה למידע. איך הדרך הכי טובה לעשות זאת

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

@בעל-כישרון כתב בתכנון אקסס לכמה משתמשים:

איך אני יכול להיות בטוח שלא יעבירו את התוכנה הלאה בלי רשות.

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

[סקרן 0]

@avi-rz כתב בתכנון אקסס לכמה משתמשים:

תעשה קוד לקובץ עם הטבלאות זה יכול לעזור

כמדומני שבמצב כזה קובץ הממשק לא יוכל לגשת למסד העורפי
עריכה: הנתון הזה פשוט לא נכון... טעות שלי

@avi-rz כתב בתכנון אקסס לכמה משתמשים:

אם אתה רוצה להגן על הקובץ בעצמו דבר ראשון תסגור אותו מהדורת הפעלה בלבד

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

@avi-rz כתב בתכנון אקסס לכמה משתמשים:

דבר שני תוכל להשתמש פונקציה שבודקת את הסיריאל של הדיסק קשיח או את הכרטיס רשת וכו' וכו'.

רעיון, אבל אם תהיה לו גישה לקוד הוא יוכל לשנות את זה...

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

[מלא]

@סקרן-0 כתב בתכנון אקסס לכמה משתמשים:

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

תוכל לעשות קישור לנתונים בקוד ויוכלו לגשת מהממשק בלי הסיסמה. הסיסמה תהיה שמורה בVBA בלבד.

@סקרן-0 כתב בתכנון אקסס לכמה משתמשים:

הבעיה היא שכל ילד יכול להחזיר את זה למהדורה רגילה...

אם תקמפל את הקובץ לACCDE שינוי סיומת לא יעזור, לא יוכלו לגשת לקוד.

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

[avi rz]

@סקרן-0 כתב בתכנון אקסס לכמה משתמשים:

@avi-rz כתב בתכנון אקסס לכמה משתמשים:

תעשה קוד לקובץ עם הטבלאות זה יכול לעזור

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

אפשר מקור?
לי זה כן עובד, .(אני מקווה שאני לא הבעיתי ).

נ.ב. @סקרן-0 על סגירה כבר ענו לך, וממילא גם א"א לעשות שינויים בקוד

[סקרן 0]

@avi-rz אין לי מקור לזה, זה פשוט מה שקרה לי כשניסיתי...
גם @מלא הציע לעשות את החיבור באמצעות קוד, ומדבריו משמע שבחיבור רגיל זה לא יעבוד. מעבר לזה אני באמת לא יודע.

[מלא]

@סקרן-0 כתב בתכנון אקסס לכמה משתמשים:

גם @מלא הציע לעשות את החיבור באמצעות קוד, ומדבריו משמע שבחיבור רגיל זה לא יעבוד. מעבר לזה אני באמת לא יודע.

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

[Y.Excel.Access]

@מלא כתב בתכנון אקסס לכמה משתמשים:

אם תקמפל את הקובץ לACCDE שינוי סיומת לא יעזור, לא יוכלו לגשת לקוד.
ואם תחסום גם כניסה עם שיפט, וחסימה של F11 וכו' ההגנות הפשוטות.

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

‏‏Microsoft Access Database חדש.accdb ‏‏Microsoft Access Database חדש.accde

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

וגבי הטבלאות - תמיד אפשר לייבא אותם מקובץ אחר בתור טבלאות מקושרות או להעתיקם לטבלאות חדשות:(

[avi rz]

@Y-Excel-Access כתב בתכנון אקסס לכמה משתמשים:

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

אז ככה, F11 בלי alt, זה פותח את חלונית הניווט, וע"ז בא @מלא להוסיף שלא יוכל לפתוח את חלונית הניווט,
וה"ה לגבי הshift בהתחלה.

@Y-Excel-Access כתב בתכנון אקסס לכמה משתמשים:

וגבי הטבלאות - תמיד אפשר לייבא אותם מקובץ אחר בתור טבלאות מקושרות או להעתיקם לטבלאות חדשות:(

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

[בעל כישרון]

@מלא כתב בתכנון אקסס לכמה משתמשים:

ואם תחסום גם כניסה עם שיפט, וחסימה של F11 וכו' ההגנות הפשוטות.

לא הכרתי את זה.
איך באמת אני חוסם את זה?

[מלא]

@בעל-כישרון כתב בתכנון אקסס לכמה משתמשים:

וחסימה של F11

אתה מייצר מאקרו בשם AutoKeys
ובתוכו אתה מוסיף מאקרו משנה
בשורה הראשונה תכתוב {F11}
ובשורה השניה בהוסף פעולה תכניס Beep

---

@בעל-כישרון כתב בתכנון אקסס לכמה משתמשים:

כניסה עם שיפט

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

Function ap_DisableShift()
'This function disable the shift at startup. This action causes
'the Autoexec macro and Startup properties to always be executed.

On Error GoTo errDisableShift

Dim db As DAO.Database
Dim prop as DAO.Property
Const conPropNotFound = 3270

Set db = CurrentDb()

'This next line disables the shift key on startup.
db.Properties("AllowByPassKey") = False

'The function is successful.
Exit Function

errDisableShift:
'The first part of this error routine creates the "AllowByPassKey
'property if it does not exist.
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function 'ap_DisableShift' did not complete successfully."
Exit Function
End If
End Function

Function ap_EnableShift()
'This function enables the SHIFT key at startup. This action causes
'the Autoexec macro and the Startup properties to be bypassed
'if the user holds down the SHIFT key when the user opens the database.

On Error GoTo errEnableShift

Dim db as DAO.Database
Dim prop as DAO.Property
Const conPropNotFound = 3270

Set db = CurrentDb()

'This next line of code disables the SHIFT key on startup.
db.Properties("AllowByPassKey") = True

'function successful
Exit Function

errEnableShift:
'The first part of this error routine creates the "AllowByPassKey
'property if it does not exist.
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, True)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function 'ap_DisableShift' did not complete successfully."
Exit Function
End If

End Function

בעורך Visual Basic, לחץ על חלון מיידי בתפריט תצוגה.
אם ברצונך להשבית את מקש SHIFT, הקלד ap_DisableShift בחלון המיידי ולאחר מכן הקש ENTER. אם ברצונך להפעיל את מקש Shift, הקלד ap_EnableShift בחלון המיידי ולאחר מכן הקש ENTER.
-עד כאן העתקה שאיני יודע למי הקרדיט (כנראה לאי מי מפרוג... שהמציא לי איזה קישור) כי זה שמור לי משנים קדמוניות במחשב.

[בעל כישרון]

פוסט זה נמחק!