Alterei o formulário pois talvez assim fique mais fácil de explicar o que preciso.

Se não postar seu modelo, para que se possa entender seu desenvolvimento, vai ficar difícil uma resposta.
Se o arquivo for grande, monte um com poucos dados ou poste em um site de compartilhamento tipo 4Shares/Sendspace/Dropbox etc..;
Para manter um controle "cinza", deve utilizar a propriedade Enable, definindo-a como False impede o acesso ao controle e o mesmo fica em um tom diferenciado.

A planilha está aqui:

https://www.zeta-uploader.com/1073080711

Login de adminstrador: THIAGO
Senha 84246

Veja se atende
Obs.: Eliminei da sheet "Branca" as figuras para ficar com tamanho compatível as normas do fórum

Muito obrigado, faltam poucos detalhes.

Os campos não estavam limpando quando eu clicava Novo cadastro, eu consegui resolver assim:

Private Sub LimpaControles()
Me.txtCodigoFornecedor.Text = ""
Me.txtNomeEmpresa.Text = ""
Me.txtNomeContato.Text = ""
Me.txtCargoContato.Text = ""
Me.txtHomePage.Text = ""
Me.txtEndereco.Text = ""
Me.txtCidade.Text = ""
Me.txtRegiao.Text = ""
Me.txtPais.Text = ""
Me.Observaçao.Text = ""
Me.Categoria.Text = ""
Me.Paradainicio.Text = ""
Me.Paradaretorno.Text = ""
Me.Tipo.Text = ""
Me.alteraçao1.Text = ""
Me.desenhista1.Text = ""
Me.data1.Text = ""
Me.alteraçao2.Text = ""
Me.desenhista2.Text = ""
Me.data2.Text = ""
Me.alteraçao3.Text = ""
Me.desenhista3.Text = ""
Me.data3.Text = ""
Me.alteraçao4.Text = ""
Me.desenhista4.Text = ""
Me.data4.Text = ""

Eu queria colocar a fonte preta quando os campos das alterações ficarem cinza, como acontece com os outros campos pois fica mais fácil de ler. (exemplo na foto)

Depois que eu preencho a quarta alteração se eu clicar em Altrerar novamente ele libera o campos alteração 4 novamente eu queria que eles ficassem inacessíveis depois do último preenchimento.

O meu formulário de pesquisa não exibe números só texto, será que alguma de formatação?

Obrigado pela atenção.

Substitua onde está os novos controles como Enabled por Locked
Ex.: alteraçao1.Enabled para alteraçao1.locked
Segue o trecho modificado:

Private Sub DesabilitaAltera()
alteraçao1.Locked = False
alteraçao2.Locked = False
alteraçao3.Locked = False
alteraçao4.Locked = False
desenhista1.Locked = False
desenhista2.Locked = False
desenhista3.Locked = False
desenhista4.Locked = False
data1.Locked = False
data2.Locked = False
data3.Locked = False
data4.Locked = False
alteraçao1.BackColor = corDisabledTextBox
alteraçao2.BackColor = corDisabledTextBox
alteraçao3.BackColor = corDisabledTextBox
alteraçao4.BackColor = corDisabledTextBox
desenhista1.BackColor = corDisabledTextBox
desenhista2.BackColor = corDisabledTextBox
desenhista3.BackColor = corDisabledTextBox
desenhista4.BackColor = corDisabledTextBox
data1.BackColor = corDisabledTextBox
data2.BackColor = corDisabledTextBox
data3.BackColor = corDisabledTextBox
data4.BackColor = corDisabledTextBox
End Sub
Private Sub HabilitaAltera()
If alteraçao1 = "" Then
    alteraçao1.Locked = True
    desenhista1.Locked = True
    data1.Locked = True
    alteraçao1.BackColor = corEnabledTextBox
    desenhista1.BackColor = corEnabledTextBox
    data1.BackColor = corEnabledTextBox
ElseIf alteraçao2 = "" Then
    alteraçao2.Locked = True
    desenhista2.Locked = True
    data2.Locked = True
    alteraçao2.BackColor = corEnabledTextBox
    desenhista2.BackColor = corEnabledTextBox
    data2.BackColor = corEnabledTextBox
ElseIf alteraçao3 = "" Then
    alteraçao3.Locked = True
    desenhista3.Locked = True
    data3.Locked = True
    alteraçao3.BackColor = corEnabledTextBox
    desenhista3.BackColor = corEnabledTextBox
    data3.BackColor = corEnabledTextBox
Else
    alteraçao4.Locked = True
    desenhista4.Locked = True
    data4.Locked = True
    alteraçao4.BackColor = corEnabledTextBox
    desenhista4.BackColor = corEnabledTextBox
    data4.BackColor = corEnabledTextBox
End If
End Sub

Com .Locked eu não consigo escrever nos campos.

??

Private Sub HabilitaAltera()
If alteraçao1 = "" Then
alteraçao1.Locked = True
desenhista1.Locked = True
data1.Locked = True
alteraçao1.BackColor = corEnabledTextBox
desenhista1.BackColor = corEnabledTextBox
data1.BackColor = corEnabledTextBox
ElseIf alteraçao2 = "" Then
alteraçao2.Locked = True
desenhista2.Locked = True
data2.Locked = True
alteraçao2.BackColor = corEnabledTextBox
desenhista2.BackColor = corEnabledTextBox
data2.BackColor = corEnabledTextBox
ElseIf alteraçao3 = "" Then
alteraçao3.Locked = True
desenhista3.Locked = True
data3.Locked = True
alteraçao3.BackColor = corEnabledTextBox
desenhista3.BackColor = corEnabledTextBox
data3.BackColor = corEnabledTextBox
Else
alteraçao4.Locked = True
desenhista4.Locked = True
data4.Locked = True
alteraçao4.BackColor = corEnabledTextBox
desenhista4.BackColor = corEnabledTextBox
data4.BackColor = corEnabledTextBox
End If
End Sub

Quando tento escrever nessas boxes que estão como .Locked não aparece nada, ou seja quando eu clico em Alterar, os campos Alteração 1, Desenhista 1 e Data 1, ficam brancos mas não consigo digitar nada.

Ta invertido, e a pressa
Locked =true para "travar" e Locked=False para "destravar"

Private Sub DesabilitaAltera()
alteraçao1.Locked = True
alteraçao2.Locked = True
alteraçao3.Locked = True
alteraçao4.Locked = True
desenhista1.Locked = True
desenhista2.Locked = True
desenhista3.Locked = True
desenhista4.Locked = True
data1.Locked = True
data2.Locked = True
data3.Locked = True
data4.Locked = True
alteraçao1.BackColor = corDisabledTextBox
alteraçao2.BackColor = corDisabledTextBox
alteraçao3.BackColor = corDisabledTextBox
alteraçao4.BackColor = corDisabledTextBox
desenhista1.BackColor = corDisabledTextBox
desenhista2.BackColor = corDisabledTextBox
desenhista3.BackColor = corDisabledTextBox
desenhista4.BackColor = corDisabledTextBox
data1.BackColor = corDisabledTextBox
data2.BackColor = corDisabledTextBox
data3.BackColor = corDisabledTextBox
data4.BackColor = corDisabledTextBox
End Sub
Private Sub HabilitaAltera()
If alteraçao1 = "" Then
    alteraçao1.Locked = False
    desenhista1.Locked = False
    data1.Locked = False
    alteraçao1.BackColor = corEnabledTextBox
    desenhista1.BackColor = corEnabledTextBox
    data1.BackColor = corEnabledTextBox
ElseIf alteraçao2 = "" Then
    alteraçao2.Locked = False
    desenhista2.Locked = False
    data2.Locked = False
    alteraçao2.BackColor = corEnabledTextBox
    desenhista2.BackColor = corEnabledTextBox
    data2.BackColor = corEnabledTextBox
ElseIf alteraçao3 = "" Then
    alteraçao3.Locked = False
    desenhista3.Locked = False
    data3.Locked = False
    alteraçao3.BackColor = corEnabledTextBox
    desenhista3.BackColor = corEnabledTextBox
    data3.BackColor = corEnabledTextBox
Else
    alteraçao4.Locked = False
    desenhista4.Locked = False
    data4.Locked = False
    alteraçao4.BackColor = corEnabledTextBox
    desenhista4.BackColor = corEnabledTextBox
    data4.BackColor = corEnabledTextBox
End If
End Sub

Resolvido amigo, muito obrigado pela ajuda.

Meu único problema agora é o formulário de pesquisa que não retorna valores numéricos, apenas texto.

Descobri o problema do meu formulário de pesquisa só não sei como resolvê-lo:

É o seguinte:

Se eu inseri texto no campo OS no último formulário cadastrado, da próxima vez que uso o formulário de pesquisa ele só retorna texto no campo OS, e o mesmo acontece se no último cadastro usei número ele só retorna os valores numéricos.

Faça o teste na planilha por favor.

Obrigado.

Aparentemente ao utilizar sql para obtenção dos dados e preenchimento do listbox, é atribuido um valor aos campos considerando o primeiro valor obtido, assim se o primeiro for string (texto) sómente serão "trazidos" valores como texto, diferente e considerado null.
Não sei como resolver, assim um "cambalhacho", formate toda a coluna do campo OS como texto (selecione a coluna, formatar-->Texto), edite (F2+enter) os valores numéricos, e abra o formulario.Veja se vai

Funcionou,

Valeu demais.
Muito Obrigado