Bom dia!!

Tente..

Dim ctrl As Control 
For Each ctrl In Me.Controls 
    If TypeOf ctrl Is TextBox Then 
        ctrl.Enabled = False 
    End If 
Next 

Olá seja bem vindo (a), wesleyldi!!!

Por favor Leia os links abaixo, obrigado!!!

Nossas Regras
viewtopic.php?f=7&t=203

Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784
Lembre se de usar nossa base de dados (Pesquisa) e a Biblioteca

Como Anexar Aquivos Compactados
viewtopic.php?f=7&t=3841

Abrir Novo Tópico
viewtopic.php?f=7&t=5317
Att

alexandrevba,
muito obrigado pelas orientações do forum.
porem o código deu o "erro de compilação:
usa invalido da palavra-chave Me"
o que seria ?

Bom dia!!

Você está usando um formulário (UserForm)??

Poste seu arquivo modelo compactado!!

Att

Bom dia!!

Como nos links, favor ler as regras, os arquivos devem ser compactado!!!!!

mil desculpas tenho certeza que aprendo.
segue o arquivo compactado

Bom dia!!

Veja se é isso
http://www.sendspace.com/file/amcq0i

Att

não.
tenho varias txt e quero elas visible = False ao abrir.
somente isso que o Excel abra com todos os txt.visible = false
e estao abrindo em true apos eu reiniciar o computador .

Veja se e assim:

Public Sub vsbfalso()
Dim rt As Long, sh As Long

With Sheets("Formulário")
    rt = .Shapes.Count

    For sh = 1 To rt
        If Left(UCase(.Shapes(sh).Name), 3) = "TXT" Then
            .Shapes(sh).Visible = False
        End If
    Next
End With

End Sub

Wesley, como postou no forum "Formulários", imaginou-se que estaria utilizando TextBox no mesmo, masse tratando de objeto activex, o conceito muda, e são tratados como OLEObjects.

Seu modelo está um pouco confuso, mas a rotina abaixo da para você ter uma base a adaptar ao seu modelo.

Veja, você tem 3 TextBox com os Nomes :
TXT_FS_FIN_CTS1, TXT_FS_FIN_CTS2, TXT_FS_FIN_CTS3.

Então uma vez que deu NOMES aos mesmo, para tornar estes 3 como Visible=False, utilize a seguinte rotina :

Public Sub VisibleFalse()
    Dim x As Long
     
    With Sheets("Formulário")
        
        'Temos 3 TextBox  com nomes iguais, alterando somente o Numero
        'ao "x" é atribuido a numeração (1,2,3)
        For x = 1 To 3
            .OLEObjects("TXT_FS_FIN_CTS" & x).Visible = False
        Next x
        
    End With
    
End Sub

[]s

Veja se e assim:

Public Sub vsbfalso()
Dim rt As Long, sh As Long

With Sheets("Formulário")
    rt = .Shapes.Count

    For sh = 1 To rt
        If Left(UCase(.Shapes(sh).Name), 3) = "TXT" Then
            .Shapes(sh).Visible = False
        End If
    Next
End With

End Sub

Boa Reinaldo, você já foi mais direto, olhei rapidamente e como o exemplo tem vários txtbox não me atentei aos nomes de todos.

Valeu.

muito obrigado mauro na próxima vez vou no fórum "Active X"