Merhaba,

Formun yüklendiğinde olayındaki kodun en üstüne aşağıdaki kodu ekle,

Call RegKeySave("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Play_Background_Sounds", "no")

Formun kapandığında olayına 

Call RegKeySave("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Play_Background_Sounds", "yes")

vba sayfasında en alta aşağıdaki kodu ekle

Sub RegKeySave(i_RegKey As String, i_Value As String, Optional i_Type As String = "REG_SZ")

Dim myWS As Object



  Set myWS = CreateObject("WScript.Shell")

  myWS.RegWrite i_RegKey, i_Value, i_Type



End Sub