kullanıcı bilgisini nasıl yaparım!!!?

[sturan2]

ağda bir dosya kullanıyorum. hangi bilgisayardan kaçkez girilmiş gibi bir çalışmayı nasıl yapabilirim.

saygılarımla

iyi çalışmalar

 

[sturan2]

cevabı siteden arattırıp buldum konuyu açtığım için özürdilerim. örnek olması için cevabı aşağıya ekliyorum.

Sub Autpen()
ActiveSheet.Unprotect "20112005"
With Application
A = .UserLibraryPath
A2 = Mid(A, 27, 8)
If A2 = "HERSMH03" Then
Sayfa1.Range("H3").Value = "Administrator"
Sayfa1.Range("I3").Value = Sayfa1.Range("I3").Value + 1
End If
If A2 = "HERSMH04" Then
Sayfa1.Range("H4").Value = "isim1"
Sayfa1.Range("I4").Value = Sayfa1.Range("I4").Value + 1
End If
If A2 = "HERSMH05" Then
Sayfa1.Range("H5").Value = "isim2"
Sayfa1.Range("I5").Value = Sayfa1.Range("I5").Value + 1
End If
If A2 = "HERSMH07" Then
Sayfa1.Range("H6").Value = "isim3"
Sayfa1.Range("I6").Value = Sayfa1.Range("I6").Value + 1
End If
If A2 = "HERSMH10" Then
Sayfa1.Range("H7").Value = "isim4"
Sayfa1.Range("I7").Value = Sayfa1.Range("I7").Value + 1
End If
If A2 <> "HERSMH03" And A2 <> "HERSMH04" And A2 <> "HERSMH05" And A2 <> "HERSMH07" And A2 <> "HERSMH10" Then
Sayfa1.Range("H8").Value = "Bilinmeyen"
Sayfa1.Range("I8").Value = Sayfa1.Range("I8").Value + 1
End If
End With
ActiveWorkbook.Save
ActiveSheet.Protect "20112005"
End Sub