excel dosyası başka bir bilgisayarda çalışmasın

[kemal turan]

Bir excel çalışma sahifesinin sadece bir bilgisayarda çalışmasını nasıl sağlarız.
Yani bir bilgisayarda var olan çalışma sahifesi , kopyala yapıştır yolu ile başika bir bilgisayarda çalışmasın.
Ancak biz izin verirsek çalışsın.Bunu kod ile yapabilirmiyiz.
Teşekkür ederim.

 

[Mahir64]

Bir excel çalışma sahifesinin sadece bir bilgisayarda çalışmasını nasıl sağlarız.
Yani bir bilgisayarda var olan çalışma sahifesi , kopyala yapıştır yolu ile başika bir bilgisayarda çalışmasın.
Ancak biz izin verirsek çalışsın.Bunu kod ile yapabilirmiyiz.
Teşekkür ederim.

Merhaba,

İşinize yarayabilir,
http://www.excel.web.tr/f48/ba-ka-pc-de-acylmasyn-t67862.html

 

[kemal turan]

Merhaba Mahir hocam,
Sn.Necdet Hocamın aşağıdaki çalışmasını formda buldum.
Bu örneği kendi bilsayarımda örneklemeye çalıştım.Revize etmeye çalıştım olmadı.
Bilgisayar adına duyarlı yapabilirmiyiz.
Örnek.
Bilsayar adı = kemal ise aşağıdaki kod nasıl olmalı.

Private Sub Workbook_Open()
If Not Environ("UserName") = "necdet" And _
Not Environ("UserName") = "mehmet" And _
Not Environ("UserName") = "meltem" Then
MsgBox "Yetkili Kullanıcı Değilsiniz"
ThisWorkbook.Close savechanges:=False
End If
End Sub

 

[kemal turan]

Necdet hocam
Aşağıdaki gibi daha önce verdiğiniz kodu kırmızı puntolu yerleri değiştirerek kendime uyarlamaya çalışıyorum bir türlü yapamıyorum.
Yardımcı olabilirmisiniz.Tşk.

Private Sub Workbook_Open()
If Not Environ("kemal turan") = "kemal turan" Then
MsgBox "Yetkili Kullanıcı Değilsiniz"
ThisWorkbook.Close savechanges:=False
End If
End Sub

 

[Necdet]

Merhaba,

Environ("kemal turan") değil Environ("UserName") olmalı

kullanıcı adınızı öğrenmek için MsgBox Environ("UserName") ile mesaj verdirin.

 

[kemal turan]

Necdet bey,
Çok teşekkür ederim.
Kullanıcı adımı yanlış giriyormuşum.
"kullanıcı adınızı öğrenmek için MsgBox Environ("UserName") ile mesaj verdirin." içinde ayrıca teşekkür edeim.
Selametle kalın.

 

[Necdet]

Necdet bey,
Çok teşekkür ederim.
Kullanıcı adımı yanlış giriyormuşum.
"kullanıcı adınızı öğrenmek için MsgBox Environ("UserName") ile mesaj verdirin." içinde ayrıca teşekkür edeim.
Selametle kalın.

Rica ederim, yardımcı olabildiysem ne mutlu bana
Güle güle kullanınız.

 

[kingwish]

Yapamadım

Beyler merhaba
Belliki siz yaptınız bunu.
Ama ben yapamadım.Excel 2007 de yapıştırdığım kod şu.Excel 2007 Modules - Module3 kısmı.
Bilgisayar adım Murat
Nerde hata yapıyorum.

Private Sub Workbook_Open()
If Not Environ("UserName") = "UserName" Then
MsgBox "Yetkili Kullanıcı Değilsiniz"
ThisWorkbook.Close savechanges:=False
End If
End Sub
Bi yardımcı olurmusunuz.

 

[ÖmerBey]

Merhaba,

If Not Environ("UserName") = "Murat" Then

şeklinde değiştiriniz.
Bir de modül içine değil workbook (Çalışma kitabı) kod bölümüne yazınız kodu.

 

[kingwish]

Saol Mucit77 işe yaradı teşekkür ederim.