استعاده اعدادت الاكسس

[النجاشي]

السلام عليكم 

احبتي الكرام هل توجد طريقه استعيد اعدادت الاكسس اي زي ظبط المصنع

تحاتي اليكم

 

[kanory]

وعليكم السلام

استخدم هذا الكود من خلال وحدة نمطية واستدعيه من خلال النموذج

Function SetOptions()

'View Tab
Application.SetOption "Show Status Bar", -1
Application.SetOption "Show Startup Dialog Box", -1
Application.SetOption "Show Hidden Objects", -1
Application.SetOption "Show New Object Shortcuts", -1
Application.SetOption "Show System Objects", -1
Application.SetOption "Show Macro Names Column", -1
Application.SetOption "Show Conditions Column", -1
Application.SetOption "Database Explorer Click Behavior", 1
Application.SetOption "ShowWindowsInTaskbar", -1

'General Tab
Application.SetOption "Left Margin", 5
Application.SetOption "Right Margin", 5
Application.SetOption "Top Margin", 5
Application.SetOption "Bottom Margin", 5
Application.SetOption "Four-Digit Year Formatting", 0
Application.SetOption "Four-Digit Year Formatting All Databases", -1
Application.SetOption "Track Name AutoCorrect Info", -1
Application.SetOption "Perform Name AutoCorrect", -1
Application.SetOption "Log Name AutoCorrect Changes", 0
Application.SetOption "Enable MRU File List", -1
Application.SetOption "Size of MRU File List", 4
Application.SetOption "Provide Feedback with Sound", 0
Application.SetOption "Auto Compact", 0
Application.SetOption "New Database Sort Order", 1033
Application.SetOption "Remove Personal Information", 0

'Edit/Find Tab
Application.SetOption "Default Find/Replace Behavior", 0
Application.SetOption "Confirm Record Changes", -1
Application.SetOption "Confirm Document Deletions", -1
Application.SetOption "Confirm Action Queries", -1
Application.SetOption "Show Values in Indexed", -1
Application.SetOption "Show Values in Non-Indexed", -1
Application.SetOption "Show Values in Remote", 0
Application.SetOption "Show Values Limit", 1000

'Datasheet Tab
Application.SetOption "Default Font Color", 0
Application.SetOption "Default Background Color", 15
Application.SetOption "Default Gridlines Color", 8
Application.SetOption "Default Gridlines Horizontal", -1
Application.SetOption "Default Gridlines Vertical", -1
Application.SetOption "Default Column Width", 3
Application.SetOption "Default Font Name", "Arial Black"
Application.SetOption "Default Font Weight", 7
Application.SetOption "Default Font Size", 12
Application.SetOption "Default Font Underline", False
Application.SetOption "Default Font Italic", False
Application.SetOption "Default Cell Effect", 0
Application.SetOption "Show Animations", True
Application.SetOption "Show Smart Tags on Datasheets", True

'Keyboard Tab
Application.SetOption "Move After Enter", 1
Application.SetOption "Behavior Entering Field", 1
Application.SetOption "Arrow Key Behavior", 0
Application.SetOption "Cursor Stops at First/Last Field", -1

'Tables/Queries Tab
Application.SetOption "Default Text Field Size", 50
Application.SetOption "Default Number Field Size", 4
Application.SetOption "Default Field Type", 0
Application.SetOption "AutoIndex on Import/Create", ""
Application.SetOption "Show Table Names", -1
Application.SetOption "Output All Fields", 0
Application.SetOption "Enable AutoJoin", -1
Application.SetOption "Run Permissions", 1
Application.SetOption "Substitute Font Name", "Arial Black"

'Forms/Reports Tab
Application.SetOption "Selection Behavior", 0
Application.SetOption "Form Template", "Normal"
Application.SetOption "Report Template", "Normal"
Application.SetOption "Always Use Event Procedures", -1
Application.SetOption "Show Smart Tags on Forms", -1
Application.SetOption "Themed Form Controls", -1

'Advanced Tab
Application.SetOption "Default Record Locking", 0
Application.SetOption "Default Open Mode for Databases", 0
Application.SetOption "Ignore DDE Requests", 0
Application.SetOption "Enable DDE Refresh", -1
Application.SetOption "OLE/DDE Timeout (Sec)", 30
Application.SetOption "Number of Update Retries", 5
Application.SetOption "ODBC Refresh Interval (Sec)", 60
Application.SetOption "Refresh Interval (Sec)", 10
Application.SetOption "Update Retry Interval (Msec)", 250

'International Tab
Application.SetOption "Default direction", 1
Application.SetOption "General alignment", 0
Application.SetOption "Cursor movement", 0
Application.SetOption "Use Hijri Calendar", False

'Error Checking Tab
Application.SetOption "Enable Error Checking", -1

End Function

وهناك بعد الاختلافات حسب نوع الأوفيس

تم تعديل ديسمبر 24, 2017 بواسطه kanory

[النجاشي]

استاذي الكريم @kanory اخوك لست ما بيفهم بالوحده النمطيه ممكن ترفق لي قاعده مصغره الله يجزيك خير

تحياتي اليك

تم تعديل ديسمبر 24, 2017 بواسطه ابو زاهر

[kanory]

للمزيد من المعلومات راجع الرابط 

https://msdn.microsoft.com/en-us/library/office/aa172326(v=office.11).aspx

 

 

[النجاشي]

جزاك الله خير

[kanory]

هذا المثال قد يعمل معك حسب الأوفيس

Ka_Options.rar

[النجاشي]

2 ساعات مضت, kanory said:

هذا المثال قد يعمل معك حسب الأوفيس

Ka_Options.rar

بارك الله فيك استاذي روووووووعه 

تحياتي اليك