Kod ekleme

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim .vbs uzantılı dosya içerisindeki kodların içerisine aşağıdaki kodu excel ve word için eklebilir miyiz?
Yardımcı olur musunuz?

Application.ShowDevTools = True

 

[PLİNT]

Merhaba
Aşağıdaki işaretli aralığı ekleyip deneyin.

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Security\DisableHyperlinkWarning"
y.RegWrite RegKey, 1, "REG_DWORD"

'..............'

if RT(m)="Excel"  then
RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & a & "\" & RT(m) & "\Options\DeveloperTools"
y.RegWrite RegKey, 1, "REG_DWORD"
end if
'.....................'

next

MsgBox "* İşlem başarıyla tamamlanmıştır.", vbInformation, "A S L A N"
End If

If s = VbNo Then
MsgBox "* Hiç bir işlem yapılmadı!..", vbInformation, "A S L A N"
End If

 

[ASLAN7410]

Sayın PLİNT çok teşekkür ediyorum, ellerinize sağlık, hayırlı günler hayırlı çalışmalar diliyorum.