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