Forum - Επιλογές γραμμής εργαλείων και κορδελας(Επαναφορά θέματος)

Χαιρετώ όλη την κοινότητα

Είναι η πρώτη μου ανάρτηση σε αυτό το forum, αφού πρώτα περιηγήθηκα εντυπωσιασμένος σε όλο σχεδόν ο forum και ειδικά στην Access.

Αξίζουν πολλά συγχαρητήρια στους δημιουργούς αλλά και σε όσους συμμετέχουν στις συζητήσεις. Θεωρώ οτι ένα μεγάλο «ΕΥΧΑΡΙΣΤΩ» :thanks: ότι είναι η ελάχιστη ηθική ανταμοιβή στους ανιδιοτελείς σκοπούς λειτουργίας της ιστοσελίδας.

Είναι μεγάλη μου χαρά και ευχαρίστηση που συμμετέχω σε αυτό το forum. Είναι πηγή γνώσης και οι απαντήσεις που δίδονται είναι εμπεριστατωμένες και τεκμηριωμένες από εξειδικευμένους και καταρτισμένους επιστήμονες πάνω στο αντικείμενο.

Αν και έχω δημιουργήσει αρκετές Βάσεις Δεδομένων με την Access μετά την περιήγησή μου στο forum άλλαξα γνώμη για τις ταπεινές μου γνώσεις στο αντικείμενο και παρακάτω θα προσπαθήσω να δώσω μια λύση στον παραπάνω φίλο μας το Δημήτρη .

Επί της ουσίας:
Για να ανοίγει η Βάση δεδομένων απευθείας χωρίς τα προεπιλεγμένα μενού και λειτουργίες πρέπει κατά την εκκίνηση να υπάρχουν διαδικασίες που να απενεργοποιούν τις ιδιότητες (False) της Βάσης που αποεπιλέγεις όταν αυτή είναι ανοιχτή.

Χρησιμοποίησε την παρακάτω Δημόσια Λειτουργία :

Κώδικας:

Public Function DisableProperties()

    On Error GoTo TheError

    DoCmd.ShowToolbar "Ribbon", acToolbarNo

    'Disable properties listed below by setting the property value to False

    SetProperties "StartUpShowDBWindow", dbBoolean, False

    SetProperties "StartUpShowStatusBar", dbBoolean, False

    SetProperties "AllowFullMenus", dbBoolean, False

    SetProperties "AllowSpecialKeys", dbBoolean, False

    SetProperties "AllowBypassKey", dbBoolean, False

    SetProperties "AllowShortcutMenus", dbBoolean, False

    SetProperties "AllowToolbarChanges", dbBoolean, False

    SetProperties "AllowBreakIntoCode", dbBoolean, False

    SetProperties "AllowBuiltinToolbars", dbBoolean, False

    Exit Function

    

TheError:

    MsgBox Err.Description

    Exit Function

End Function

Η οποία πρέπει να τοποθετηθεί σε ένα Module

Τη λειτουργία αυτή θα την καλέσεις με το φόρτωμα της αρχικής φόρμας εκκίνησης η οποία μπορεί να είναι μια φόρμα εισαγωγής Κωδικού για είσοδο στις λειτουργίες της Βάσης για περισσότερη ασφάλεια.

Κώδικας:

Private Sub Form_Load()

    Call DisableProperties

End Sub

Κάθε φορά που θα εκκινείς τη Βάση οι ιδιότητες της βάσης που εμφανίζονται παραπάνω θα είναι απενεργοποιημένες και δεν θα έχει πρόσβαση στο σχεδιασμό κ.λ.π.

Χρειάζεται γιαυτό το σκοπό να δημιουργήσεις ένα κουμπί σε μια φόρμα που να επαναφέρει τις λειτουργίας στην αρχική τους κατάσταση (True)

Στο ίδιο Module βάλε την παρακάτω λειτουργία :

Κώδικας:

Public Function EnableProperties()

    On Error GoTo ErrorHandler:

    DoCmd.ShowToolbar "Ribbon", acToolbarYes

    'Set all properties listed below back to normal by setting value to True

    'Show Database window

    SetProperties "StartUpShowDBWindow", dbBoolean, True

    SetProperties "StartUpShowStatusBar", dbBoolean, True

    'show Access Full Menus.

    SetProperties "AllowFullMenus", dbBoolean, True

    'enable F11, ALT F11, etc. for short key

    SetProperties "AllowSpecialKeys", dbBoolean, True

    'Shift Key Override on loading

    SetProperties "AllowBypassKey", dbBoolean, True

    'allow Access Shortcut Menus. May be too severe

    SetProperties "AllowShortcutMenus", dbBoolean, True

    SetProperties "AllowToolbarChanges", dbBoolean, True

    SetProperties "AllowBreakIntoCode", dbBoolean, True

    SetProperties "AllowBuiltinToolbars", dbBoolean, True

    Exit Function

ErrorHandler:

    MsgBox Err.Description

    Exit Function

End Function

Τη Function αυτή την καλείς με ένα Button τοποθετημένο σε μια φόρμα σου (π.χ. Administration Panel) η οποία φόρμα μπορεί να είναι και αυτή κλειδωμένη για περισσότερη ασφάλεια.
Ο Κώδικας στο Button σου με το click μπορεί να είναι ο παρακάτω :

Κώδικας:

Private Sub cmd_LockunlockDB_Click()

    Dim strPasswd As String

    'Dim counter As Integer

    Dim Remaining As Integer

    Dim intLogonAttempts As Integer

    intLogonAttempts = 0

    Do Until intLogonAttempts = 3

        strPasswd = InputBox("Παρακαλώ πληκτρολογήστε έναν έγκυρο ωδικό π.χ. 1234." & vbCrLf & _

                             "Απαιτείται Κωδικός για πρόσβαση στη Βάση Δεδομένων με πλήρεις λειτουργίες  - psw 1234", "Κωδικός Εισόδου στο CPanel")

        ‘Αν ο Κωδικός πληκτρολογηθεί λανθασμένα τρεις φορές η Βάση θα κλείσει .

        If strPasswd = "1234" Then

            Call EnableProperties

 

            Exit Sub

        Else
 

                        intLogonAttempts = intLogonAttempts + 1

            Remaining = 3 - intLogonAttempts

                          MsgBox "Λανθασμένος κωδικός Εισόδου!" & vbCrLf & _ 

Εχετε " & Remaining & " ακόμα προσπάθειες πληκτρολόγησης έγκυρου Κωδικού." & vbCrLf & _

vbOKOnly, "Πληροφορία κωδικού Εισόδου"

            If intLogonAttempts = 3 Then

                MsgBox "Δεν έχετε πρόσβαση στη Διαχείριση της Βάσης δεδομένων. Παρακαλώ επικοινωνήστε με το Διαχειριστή..", vbCritical, "Περιορισμένη Πρόσβαση!"

                Application.Quit

            End If

        End If

    Loop
 

End Sub

Μην ξεχάσεις να δηλώσεις στο Module σου τα παρακάτω :

Κώδικας:

Option Compare Database

Option Explicit

Const dbBoolean = 1

Για να δεις ποιες ιδιότητες της βάσεις είναι ενεργοποιημένες ή απενεργοποιημένες μπορείς να καλέσεις στο «Immediate» της VBA

Κώδικας:

CurrentDb().Properties("StartupShowDBWindow")

CurrentDb().Properties("StartupShowStatusBar")

CurrentDb().Properties("AllowBuiltinToolbars")

Για να δεις τις ιδιότητες της Βάσης σου:

Κώδικας:

Function FindCurrentDbProperties()

    Dim i As Integer

    For i = 0 To CurrentDb.Properties.Count - 1

        Debug.Print CurrentDb.Properties(i).Name

    Next

End Function

Κώδικας:

Sub testCodeDBProperties()

On Error Resume Next

Dim prop As Variant

For Each prop In CodeDb.Properties

    Debug.Print prop.name & ": " & prop & " type: " & VarType(prop)

Next prop

End Sub

Πληκτρολόγησε στο «Immediate» της VBA FindCurrentDbProperties

FindCurrentDbProperties

ή

testCodeDBProperties

Υπάρχουν μειονεκτήματα σε αυτή τη λειτουργία και ένας εξειδικευμένος χρήστης της Access μπορεί να την ανοίξει σε προβολή σχεδίασης και πάλι με κάποιον τρόπο που δεν θα τον περιγράψω εδώ.

Η Καλύτερη επιλογή είναι να συνδυάσεις τα παραπάνω με ένα προσωποποιημένο μενού επιλογών στην κεντρική σου κονσόλα (RibbonToolBar)

Ο παραπάνω κώδικας είναι παρόμοιος με αυτόν που χρησιμοποιεί στο παράδειγμά του ο Διαχειριστής Τάσος Φιλοξενίδης (Access samples - Χρήσιμα αρχεία & παραδείγματα > παράδειγμα προστασίας αντικειμένων βάσης δεδομένων από επεξεργασία (αποκλείει την προβολή σχεδίασης σε φόρμες).

Δημοσιεύω ένα δείγμα Β.Δ. για να δεις τον κώδικα σε λειτουργία.Η Βάση ανοίγει πάντα κλειδωμένη εκτός αν ο διαχειριστής την ξεκλειδώσει.

Αν κάτι δεν καταφέρεις καλά τα ξαναλέμε.
Καλή συνέχεια

Οι απόψεις της κοινότητας θα ήταν πολύτιμες για βελτιώσεις της παραπάνω λειτουργίας.