投稿者 N88-Basic  (社会人) 投稿日時 2020/11/27 16:48:04
Windows 10 home(64) Ver 20H2 + Visual Studio 2019 にて、レジストリを操作するアプリを作成していますが実行時エラーが発生します。
状況は以下の通りです。

テスト中のコード(サブキーの作成)(値の設定でも同様のエラーが発生しました)

Dim SubKey_Personalization As String = "SOFTWARE\Policies\Microsoft\Windows\Personalization"
Dim ValueName_NoLockScreen As String = "NoLockScreen"
Dim regkey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.CreateSubKey(SubKey_Personalization)
regkey.SetValue(ValueName_NoLockScreen, 1)
regkey.Close()

エラーは3行目で内容は以下の通りです。
System.UnauthorizedAccessException
  HResult=0x80070005
  Message=レジストリ キー 'HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\Personalization' へのアクセスが拒否されました。
  Source=mscorlib

ただし、値の読出しは問題ありません。
読出しのコード
Dim regkey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(SubKey_Personalization)
Dim iValue As Integer = CInt(regkey.GetValue(ValueName_NoLockScreen)
regkey.Close()

解決策をご存じでしたらご教授ください。
よろしくお願いいたします。