makroların tek bilgisayarda çalışması

[meda58]

arkadaşlar

elimizdeki makroların yalnızca bana ait bilgisayarda çalışmasını istiyorum

başka bilgisayarda kesinlikle çalışmasını istemiyorum

bunun için yardımlarınızı esirgemezseniz çok memnun olurum

şimdiden sonsuz teşekkürler

 

[fireman64]

Makrolar çalışmadan önce aşağıdaki kodla işlemcinizin seri numarasını kontrol ettirin uyuşursa kodlarınızın çalışmasını sağlayın.

Private Sub UserForm_Initialize()
Dim wmi, cpu, cpuid
  Set wmi = GetObject("winmgmts:")
  For Each cpu In wmi.InstancesOf("Win32_Processor")
   cpuid = cpuid + cpu.ProcessorID
  Next
  TextBox1 = cpuid

End Sub