Çalışma Kitabını Salt Olarak Açma

SilinenUye8231 · 20 Şub 2020

Merhaba hayırlı akşamlar.

Ağda ortak kullandığımız bir tane dosyamız mevcut, bu dosya sadece bana normal açılmasını ve başkaları bu dosyayı açtığında onlara sürekli salt olarak açılmasını istiyorum.
Dosya kimsede açık olmasa bile, kontrol olarak kod benim bilgisayarımın adı (ASLAN) değilse başkalarına sürekli salt olarak açılsın istiyorum.

Böyle bişey olabilir mi?
Yardımcı olur musunuz?

Ömer BARAN · 20 Şub 2020

İyi akşamlar Sayın @SilinenUye8231 .

Aşağıdaki kodu açılacak olan belgede ThisWorkbook bölümüne yapıştırıp belgeyi kaydederek tekrar açmayı deneyin.

Önce F8 tuşuna aralıklarla basıp fareyi ilgiLİ satırın (ilk 4 satır için) üstüne götürürseniz,
herbir değişkenin aldığı değeri görebilirsiniz.
Kırmızı işaretlediğim dışında, If....satırının üstündeki değişkenlerin aldığı değere göre,
If.... satırında hangi değişkeni kullanacağınıza karar verirsiniz.
Bu karar göre de o değişkenin sonucunu ÇİFT TIRNAK arasına yazarsınız

Kod:

Bu kodu görmek için giriş yapmanız gerekmektedir (10 satır). Giriş Yap

SilinenUye8231 · 21 Şub 2020

Sayın @Ömer BARAN Bey, ilginiz için çok teşekkür ediyorum.
Aşağıdaki gibi yaptım, kendi bilgisayarımda bile salt okunur açtı.

Kod:

Bu kodu görmek için giriş yapmanız gerekmektedir (10 satır). Giriş Yap

Başka nereleri değiştirmem gerekir?

Ömer BARAN · 21 Şub 2020

Makroyu F8 ile adımladığınızda,
işlem sırası bilgisayar2 satırına geldiğinde
fareyi bilgisayar1 değişkeninin üstüre götürdüğünüzde gördüğünüz değer neyse
If..... satırında çift tırnak arasında onu yazmalısınız.

SilinenUye8231 · 21 Şub 2020

Sayın @Ömer BARAN Bey, bilgisayarı ağ üzerinde kullanıyoruz, dediğiniz gibi yaptım başka bi isim çıktı. O ismi yazıp kaydedip açtığımda salt okunur olarak açmadı.
Bu şekilde kod gayet güzel çalışıyor, ellerinize sağlık.

Bu işlemi Windows başlat butonuna bastığımızda orada yazan kişisel ismimiz ne ise o şekilde ayarlanabilir mi?

Ömer BARAN · 21 Şub 2020

Sayın @SilinenUye8231 .

Verdiğim seçeneklerden kullanici1 seçeneğini denediniz mi acaba?

If satırında, bilgisayar1 yerine kullanici1 yazıp, devamındaki çift tırnak arasına da,
kodu F8 ile adımladığınızda üst tarafta kullanici1 değişkeninin aldığı değeri görüp onu yazın.

Neticede If satırının; kullanacağınız seçeneğe göre
If kullanılan değişken adı <> " seçeneğe ait metinsel değer "
şeklini alması lazım.

Kararı netleştirditen sonra If satırının üstünde kalan seçeneklerden,
sadece If... satırında kullandığınız değişken kalsın, diğerlerini silebilirsiniz elbette.

.

SilinenUye8231 · 18 Haz 2024

Sayın Ömer Bey, aşağıdaki gibi yapınca tam istediğim gibi oldu, ellerinize sağlık, çok teşekkür ediyorum.
Hayırlı sabahlar diliyorum.

Kod:

Bu kodu görmek için giriş yapmanız gerekmektedir (6 satır). Giriş Yap