Salt Okunur Açma

[DemirBilek57]

Arkadaşlar merhaba,


Birden fazla kullanıcının ulaştığı bir excel kitabında bir kullanıcı haricinde (kullanıcı tarafından kitap açık olmasa dahil) diğer kullanıcıların kitabı salt okunur açmasını sağlayacak bir kod var mı acaba

 

[Erdem Akdemir]

Farklı kaydet>Araçlar>Genel Seçenekler>Değiştirme Parolası

Bu gireceğiniz parola ile açarken başka kullanıcılar sadece salt okunur olarak açabilirler.

Not: Salt okunur olarak öner'i tıklamanıza gerek yok.

 

[DemirBilek57]

Sayın kuvarı cevabınız için teşekkürler,

Aslında benim yapmak istediğim şifreden ziyade kullanıcıya tanımlı bir salt okur açılış. Aşağıdaki yazılı koda benzer bir kod ile dosyası açan kullanıcıya göre +1 veya -1 değerlerini verecek bir kod.

Sub SetClearArchiveBit(filespec)
Dim fs, f, r
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(fs.GetFileName(filespec))
f.attributes = f.attributes + 1
End Sub

 

[Emir Hüseyin Çoban]

Arkadaşlar merhaba,


Birden fazla kullanıcının ulaştığı bir excel kitabında bir kullanıcı haricinde (kullanıcı tarafından kitap açık olmasa dahil) diğer kullanıcıların kitabı salt okunur açmasını sağlayacak bir kod var mı acaba

. . .

Tabloyu açan yetkili kullanıcı değilse, salt okunur olacaktır.
Excel kullanıcı ismine göre çalışır.

Sub auto_open()
If Application.UserName <> [COLOR="Blue"]"Yetkili Kullanıcı"[/COLOR] Then
    Workbooks.Open Filename:=ActiveWorkbook.FullName, ReadOnly:=True
End If
End Sub

. . .