Boa noite!!

Isso deve te ajudar...

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range) 
    Application.EnableEvents = False
    If Not Application.Intersect(Target, Range("A1:XFD100000")) Is Nothing Then
        Target(1).Value = UCase(Target(1).Value)
    End If
    Application.EnableEvents = True
End Sub

Att

Caro colega, alexandrevba

Onde coloco esse código?

pois, não consegui colocá-lo...

At.te

Boa noite!!
Segue...

1 - Selecionar o menu Tools - Macro - Visual Basic Editor ou carregar em ALT+F11.

2 - No Editor, mais precisamente na janela de projecto, podemos selecionar uma das planilhas para que o código apenas funcione nela ou EstaPasta_de_trabalho para que funcione em todas. Neste exemplo vamos selecionar apenas uma Plan (Plan1)
3 - Colocar o seguinte código no editor de código:

Pra maiores detalhes veja:
http://www.ambienteoffice.com.br/office ... os_em_vba/

Att

Pra seu governo, o PROCV() não diferencia maiúscula/minúscula.

Desta forma, vc não tem um problema.

Abs.

Entendi MANDRIX.xls,

Deixa eu explicar tenho que digitar uma palavra em uma InputBox, mas se eu, digito essa palavra como minuscula dá erro, gostaria de deixar o capslock ativado para não ter esse problema.

At.te
csfab

Desculpe,

Não sabia que envolvia macro.

Abs,

Cara!
Usa o Lcase() no codigo aonde estiver o retorno do imputbox. Porque a resposta seja qual ela for vai ser convertida em maiuscula, o q vai permitir a comparação exata.

Coloca o arquivo ai q essa eu sei!!!!!!!!!!!

Já vai dando o meu joinha!!!!!!!!

Lovera.

Você já conhece o arquivo.

A idéia de Capslock é quando clico no botão digitar palavra.

Descompactar em c: com a pasta "jogo"

At.te
csfab

Lovera.

Com sua dica consegui resolver meu problema, mas em vez de usar o Lcase(), usei o Ucase pois queria maíuscula.

Ficou assim...

Public Sub lsSugerirPalavra()
    Dim lSugestao As String

    If lSituacao = 0 Then
        lSugestao = InputBox("Digite a palavra com acentuação:", "Sugestão", ActName)
        
        [b]lSugestao = UCase(lSugestao)[/b]
        
        
        If lSugestao <> lPalavraAdv Then
            lSituacao = 0
            MsgBox "Você Perdeu!"
        Else
            lSituacao = 2
            MsgBox "Você venceu!", , "Parabéns"
        End If
    Else
        MsgBox "Jogo Encerrado!"
    End If

Puxa cara. Eu tinha visto a sua mensagem ontem.
Ia resolver essa parada hoje a tarde. Mas já q tu matou.

Parabens. Tem razão eu troquei as bolas! hauhauahau