Bilgisayar adına göre hücrelere giriş yapma izni verme

[bistroboy]

Ben her sayfaya giriş yapıldığında Bilgisayar adını IS1 sütununa yazdırıyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("IS1").Value = CreateObject("WScript.Network").computerName

"ali" ve "mehmet" bilgisayar adına sahip olmayan diğer kullanıcıların o sayfadaki hücreye veri girme izni olmasın.
If Range("IS1").Value <> "ali" And Range("IS1").Value <> "mehmet" Then

Buraya kullanıcı herhangi bir hücreye veri girdiğinde "izniniz yok" diyecek komutlar yazılacak
End If
End Sub
hücreye müdahelerde izniniz yok mesajı nasıl verdirebiliriz.ancak çözümünüz hücre veya sayfa koruma olmayacak.yoksa makrolarım kullanıcıda çalışmaz.
makron ne ile alakalı ki? derseniz ; 3 worksheette belli hücrelere eklenen açıklamalar bir üserform üzerinde bütün olarak görünmekte.

 

[cebir]

merhaba..
a&#351;a&#287;daki kod u deneyin


Private Sub Worksheet_Activate()

Range("IS1").Value = CreateObject("WScript.Network").computerName


Dim Parola As Variant
Parola = InputBox("Parola Giriniz.")
If Parola = Range("&#305;s1").Value Then
Sheets("Sayfa1").Select
Else
Sheets("Sayfa2").Select
MsgBox " YETK&#304;N&#304;Z YOK "
End If
End Sub

mesaj&#305;n&#305;z&#305;n su,on b&#246;l&#252;m&#252;n&#252; atlam&#305;&#351;&#305;m d&#252;zelttim.

 

[bistroboy]

hocam benim kodumdan k&#305;rm&#305;z&#305; yaz&#305;n&#305;n yerine ne gelecekse onu yaz&#305;n

sizin yazd&#305;&#287;&#305;n&#305;z kodda yanl&#305;&#351; anlamad&#305;ysam worksheeti hi&#231; g&#246;r&#252;nt&#252;leyememe k&#305;s&#305;t&#305; konmu&#351;.

 

[cebir]

If Range("IS1").Value <> "ali" And Range("IS1").Value <> "mehmet" Then
MsgBox " YETK&#304;N&#304;Z YOK "
End If

 

[Yüksel Varlı]

Ekteki örneği inceleyiniz. Ben kolay takip edilebilsin diye A1 A2 yadım ,siz değiştirebilir siniz: