کد غیر فعال کردن shift

[shahabrayane]

دوستان میدانم موضوع تکراری است ولی خواهش می کنم کد غیر فعال کردن shift رو به من هم بدهید . با تشکر


از صدای سخن عشق ندیدم خوشتر

[Ali_Fallah]

از آقای داود شهبازی....
-------------------------------------------------------
یکی از راههای محدود کردن کاربران و حذف منوهای
startup
استفاده از ماژول زیر است که در خط 10 این حالت به صورت
true است این حالت را
False
نمایید و سپس یک کلید
run
را فشار دهید تا
sub
یک بار اجرا شود .




Sub SetStartupProperties()
Const DB_Text As Long = 10
Const DB_Boolean As Long = 1
ChangeProperty "StartupShowDBWindow", DB_Boolean, True
ChangeProperty "StartupShowStatusBar", DB_Boolean, False
ChangeProperty "AllowBuiltinToolbars", DB_Boolean, False
ChangeProperty "AllowFullMenus", DB_Boolean, False
ChangeProperty "AllowBreakIntoCode", DB_Boolean, False
ChangeProperty "AllowSpecialKeys", DB_Boolean, True
ChangeProperty "AllowBypassKey", DB_Boolean, True
End Sub
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If ERR = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function