devxlogo

SetIESaveAsEnabled – Decide whether IE SaveAs command is enabled

SetIESaveAsEnabled – Decide whether IE SaveAs command is enabled

' Set whether the IE Save As menu item is enabled' Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey ' routines, you can find them in the CodeBank' Example:'   SetIEsaveAsEnabled FalsePublic Sub SetIEsaveAsEnabled(ByVal bEnabled As Boolean)    Const HKEY_CURRENT_USER = &H80000001    Dim sKey As String        sKey = "SoftwarePoliciesMicrosoftInternet ExplorerRestrictions"        ' if the Key does not exist    If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then        ' create the key        CreateRegistryKey HKEY_CURRENT_USER, sKey    End If        ' set the value    SetRegistryValue HKEY_CURRENT_USER, sKey, "NoBrowserSaveAs", _        Abs(Not bEnabled)    End Sub

devx-admin

Share the Post: