Sadece belirlenen bilgisayarlarda çalışan makrolu excel dosyası

[hguney]

Merhaba,

Makro içeren bir excel sayfasının, sadece belirlediğim bilgisayarlarda çalışmasını ve
diğer bilgisayarlarda açılmamasını istiyorum. Bu konu ile ilgili bir çözümünüz mevcutmudur.
Teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodlar ThisWorBookun kod bölümünde olmalıdır.
Bilgisayarın adını alır ve sizin saptadığınız bilgisayar adı değilse çıkar.

Başka yöntemlerde bulunabilir.

Private Sub Workbook_Open()
If Environ("ComputerName") <> "[COLOR=red][B]MUHASEBE1[/B][/COLOR]" Then
   ActiveWorkbook.Close SaveChanges:=False
   Application.Quit
End If
End Sub

 

[BG]

Sayın hguney

Merhaba,

Makro içeren bir excel sayfasının, sadece belirlediğim bilgisayarlarda çalışmasını ve
diğer bilgisayarlarda açılmamasını istiyorum. Bu konu ile ilgili bir çözümünüz mevcutmudur.
Teşekkürler

linki inceleyiniz.
http://www.excel.web.tr/showthread.php?t=63315&highlight=farkl%FD+bilgisayarda&page=2

 

[hguney]

Teşekkürler