Caps lock sorunu

[zakkumbaba]

Merhaba,

Garip bir durum ile karşı karşıyayım. Makrolar ile kullandığım çizelgeme "Dosyayı kaydet" butonu ile çalışan

Sub DosyaKaydet()
'
' DosyaKaydet Makro
'
SendKeys "^{s}"
'
End Sub

makrosunu ekledikten sonra bir garip problem oluştu.

CAPS LOCK kapalıyken bu butona bastığımda sorunsuz bir şekilde dosyayı kaydediyor.

Ama CAPS LOCK açıkken butona her basışımla CAPS LOCK bir açılıyor bir kapanıyor. Yani kendiğinden küçük harf-büyük harf geçişi yapıyor. Ve bu farklılık çizelgeyi kapayıp açtığımda kendini belli ediyor.

Çizelgeyi tamamen büyük harf kullandığım için bu sorunu aşmam lazım.

Ayrıca, formül olarak

ThisWorkbook.Save

yerine

SendKeys "^{s}"

kullanmamın bir sebebi var. Dosya ağ üzerinde salt okunur durumda. Ctrl+s yaptığımda dosya salt okunur, farklı kaydedin uyarısı veriyor, vermesini istiyorum. ThisWorkbook.Save formülünde ise salt okunur olmasına rağmen uyarı vermeden ve yeni dosya oluşturmadan kaydediyor.

Yardımcı olabilirseniz çok sevinirim