パソコン内部時計の修正をエクセルで出来ますか？

質問

エクセルのVBAを使ってパソコンの内部日時を変更したいのですが方法を教えて下さい。
OSがXPでエクセル2003の時には下記のVBAで動作しました。
しかしOSがWin7でエクセル2010になると「エラー70」になりました。
PC内部の日付を修正する方法を教えて下さい。
宜しくお願いします。

　Sub PC_Date_Time()
　 With Worksheets("Sheet1")
　 Date$ = .Cells(2, 3)
　 Time$ = .Cells(3, 3)
　.Cells(5, 3) = 1
　End With
　End Sub

回答No.1

todo36

エラーになるのはUACが原因でしょう。
システム時計を設定するにはAdminに昇格する必要があります。

同じプロセスで昇格するのは難しいので、別プロセスを管理者権限で実行する。

CMD.EXEを起動してDOSコマンドのdate, timeで日時を設定するサンプル
Set sha=CreateObject("Shell.Application")
sha.ShellExecute "cmd.exe","/C ""date 2011/01/01 time 11:11:11""","","runas"

参考URL：

http://ebi.dyndns.biz/diary/20080813.html

お礼

お礼が遅くなり申し訳ありません。
何とか自分で編集して作成できました。
有難うございました。