Read/ write/ delete registry

Tested in Excel 365 (16.8730.2046) 64-bit

DISCLAIMER: altering the registry could make your computer unusable. Make sure you know what you are doing! In case you use this code and damage you computer is your sole responsibility.

 
 
  1.  
  3. Public Enum ENM_RegistryOperation
  4.     RegistryRead
  5.     RegistryWrite
  6.     RegistryDelete
  7. End Enum
  8. '
  9. Public Enum ENM_RegistryKeyType
  10.     REG_SZ
  11.     REG_EXPAND_SZ
  12.     REG_DWORD
  13. End Enum
  14. '
  15. Public Function ReadWriteDeleteRegistry(RegistryKeyAndPath As String, _
  16.     Optional RegValue, Optional RegValueType As ENM_RegistryKeyType = REG_SZ, _
  17.     Optional ReadWriteDelete As ENM_RegistryOperation = RegistryRead) As String
  18.    
  19.     Dim RegShell As Variant
  20.     Dim KeyType As String
  21.     Dim TempVal
  22.    
  23.     Select Case RegValueType
  24.         Case REG_SZ
  25.             KeyType = "REG_SZ"
  26.         Case REG_EXPAND_SZ
  27.             KeyType = "REG_EXPAND_SZ"
  28.         Case REG_DWORD
  29.             KeyType = "REG_DWORD"
  30.     End Select
  31.    
  32.     Set RegShell = CreateObject("WScript.Shell")
  33.     TempVal = ""
  34.    
  35.     Select Case ReadWriteDelete
  36.         Case RegistryRead
  37.             On Error Resume Next
  38.             TempVal = RegShell.RegRead(RegistryKeyAndPath)
  39.             On Error GoTo 0
  40.         Case RegistryWrite
  41.             RegShell.RegWrite RegistryKeyAndPath, RegValue, KeyType
  42.             On Error Resume Next
  43.             ' read it to confirm it was written and return as function value
  44.            TempVal = RegShell.RegRead(RegistryKeyAndPath)
  45.             On Error GoTo 0
  46.         Case RegistryDelete
  47.             TempVal = "Error"
  48.             On Error Resume Next
  49.             TempVal = RegShell.RegDelete(RegistryKeyAndPath)
  50.             ' read it to confirm it was deleted
  51.            TempVal = RegShell.RegRead(RegistryKeyAndPath)
  52.             On Error GoTo 0
  53.             ' the function will return "" for successful delete and "Error" for key not found.
  54.            If TempVal <> "Error" Then TempVal = ""
  55.     End Select
  56.    
  57.     ReadWriteDeleteRegistry = TempVal
  58.    
  59.     Set RegShell = Nothing
  60. End Function
  61. '
  62. Public Sub main()
  63.     Dim a
  64.     ' read example (Excel installation path)
  65.    a = ReadWriteDeleteRegistry("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\16.0\Excel\InstallRoot\Path")
  66.     ' or
  67.    a = ReadWriteDeleteRegistry("HKLM\SOFTWARE\Microsoft\Office\16.0\Excel\InstallRoot\Path")
  68.     Debug.Print a
  69.    
  70.     ' write example
  71.    ' WARNING: make sure you don't write in the wrong place
  72.    a = ReadWriteDeleteRegistry("HKEY_CURRENT_USER\Software\TestKey\TestVal", "testing", , RegistryWrite)
  73.     ' or
  74.    a = ReadWriteDeleteRegistry("HKCU\Software\TestKey\TestVal", "testing", , RegistryWrite)
  75.     Debug.Print a
  76.     ' delete example
  77.    ' WARNING: make sure you delete the right one. Make some test with a key that you created
  78.    a = ReadWriteDeleteRegistry("HKCU\Software\TestKey\TestVal", , , RegistryDelete)
  79.     Debug.Print a
  80.    
  81. End Sub
  83.  

Add a Comment

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.