ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[erseldemirel2]

Arkadaşlar ağdaki pc lerin bazıları unicode olmayan programlama dili olarak İngilizce(Amerikan) olabiliyor. Bu sebepten makrolar hata veriyordu. Kullanıcıyı uyarmak için kitap açılınca şu uyarıyı yapıyorum. Bilgi amaçlı ekledim
Kolay gelsin

Kod: Tümünü seç

Private Sub Workbook_Open()
Unicode = CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Language\Default")
If Unicode = "041f" Or Unicode = "041F" Then
Else
MsgBox "Bilgisayarinizda Dil Hatasi Tespit Edildi. Unicode Dilinizin Türkce Olmasi Gerekiyor. Cozum Icin; " & vbCrLf & _
"" & vbCrLf & _
"Denetim Masasi > Bolge > Yonetimsel > Unicode Olmayan Programlar Için Gecerli Dil:" & vbCrLf & _
"" & vbCrLf & _
"Turkce (Turkiye)" & vbCrLf & _
"" & vbCrLf & _
"Olarak Secim Yapiniz. Simdi Excel Kapatiliyor! " & vbCrLf & _
"" & vbCrLf & _
"", vbInformation, "UYARI"
Call Shell("RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Intl.cpl,,1/f:", vbNormalFocus)
Application.Quit
Application.DisplayAlerts = False
ThisWorkbook.Close SaveChanges:=False
Exit Sub
End If
End Sub

[feraz]

Sağol üstad kod ile hatırlatmak güzel olmuş.

Aslında hep kadama takılan bir soru var eklediğiniz resimin oralarda yani Dil değiştirme yerinde Beta gibi birşey yazıyor onu anlamadım.İşaretleyincede excel tam çalışmıyordu.Kısaca o Beta kısmı ne işe yarar?

[erseldemirel2]

Sayın Feraz ; Beta sanırım Utf-8 için olabilir. Ben hiç seçmiyorum. ASCII ile sorun çıkarabilir. Önermiyorum.

[feraz]

Sağol üstad.Utf-8 Türkçe karaktere çözüm olur diye düşünmüştüm betadaki.Yani ne amaçla onu yerleştirmişler anlamadım.

[erseldemirel2]

O seçeneği hiç kullanmıyorum. Müdahele durumunu tam çözemedim.

[Bülent]

Paylaşımınız için teşekkürler Ersel bey.

[erseldemirel2]

Paylaşımınız için teşekkürler Ersel bey.

Rica ederim bu forumun sayesinde güzel çözümler oluşturulabiliyor.