Pedepano
nem vi nada bloqueado, acessei i código normalmente

Funções que busco estudar..
1-Salvar arquivo em bloco de notas..

isso vc encontra de monte em salvar como txt

3-conferir linhas de números contra outras linhas..

achei o código amador e ineficiente , tem outros muito mais bem elaborados e rápidos

mas a planilha tem uma boa estrutura em questão de designe e funcionalidade

Pedepano
nem vi nada bloqueado, acessei i código normalmente

Funções que busco estudar..
1-Salvar arquivo em bloco de notas..

isso vc encontra de monte em salvar como txt

3-conferir linhas de números contra outras linhas..

achei o código amador e ineficiente , tem outros muito mais bem elaborados e rápidos

mas a planilha tem uma boa estrutura em questão de designe e funcionalidade

conseguir acessa o nome das macros sim, porem o código esta bloqueado não se consegue visualiza-lo e muito menos editar.
vou aguarda alguém que tenha a boa vontade de me ajuda..

Questao 1

Sub Exporta_txt()
Dim linha, pasta
Application.ScreenUpdating = False
'Módulo1.ClassifLinha
If FileFolderExists("C:Matriz_Megasena") = True Then ' Verifica se a pasta existe.
Else
MsgBox "Foi criado uma pasta no diretório C:" & Chr(10) & _
 "      " & Chr(10) & _
 "de nome: Matriz_Megasena " & Chr(10) & _
 "Onde será salvo as matrizes de jogo"
Set linha = CreateObject("Scripting.FileSystemObject")
Set pasta = linha.CreateFolder("C:Matriz_Megasena")
CreateFolderDemo = pasta.Path
End If

Sheets("Filtros").Visible = True
Arquivo = "C:Matriz_Megasena" & Sheets("Filtros").Range("AS9") & ".txt"
Sheets("Filtros").Select
Range("AQ9:AR800").Select
Set fso = CreateObject("Scripting.FileSystemObject")
Set DataFile = fso.CreateTextFile(Arquivo, True, Unicode)

If Selection.Rows.Count > 1 Then
    r1 = Range(Left(Selection.Address, InStr(Selection.Address, ":") - 1)).Row
Else
    r1 = Selection.Row
End If
If Selection.Columns.Count > 1 Then
    c1 = Range(Left(Selection.Address, InStr(Selection.Address, ":") - 1)).Column
Else
    c1 = Selection.Column
End If
For r = r1 To r1 + Selection.Rows.Count - 1
For c = c1 To c1 + Selection.Columns.Count - 1
DataFile.Write (ActiveSheet.Cells(r, c).Value & " ")
Next c
DataFile.Writeline
Next r

DataFile.Close
Set fso = Nothing
Dim RetVal
arquivo_para_abrir = "notepad.exe " & Arquivo
RetVal = Shell(arquivo_para_abrir, 1)
Sheets("Filtros").Range("AS9").ClearContents
Application.StatusBar = False
Sheets("Filtros").Range("Q21").Select
End Sub

A questao 2

Private Sub Workbook_Open()
If Environ("ComputerName") <> "Nome do Computador" Then

MsgBox "Computador nao autorizado"

End If
End Sub

A questao 3 vc consegue assim =SOMA((CONT.SE(linha a ser verificada;linha do resultado))) finalize com Ctrl+Shift+Enter

Em tempo o unico codigo que esta na planilha é o primeiro.

E como vc pode ver nao tem nenhuma novidade.

Questao 1

Sub Exporta_txt()
Dim linha, pasta
Application.ScreenUpdating = False
'Módulo1.ClassifLinha
If FileFolderExists("C:Matriz_Megasena") = True Then ' Verifica se a pasta existe.
Else
MsgBox "Foi criado uma pasta no diretório C:" & Chr(10) & _
 "      " & Chr(10) & _
 "de nome: Matriz_Megasena " & Chr(10) & _
 "Onde será salvo as matrizes de jogo"
Set linha = CreateObject("Scripting.FileSystemObject")
Set pasta = linha.CreateFolder("C:Matriz_Megasena")
CreateFolderDemo = pasta.Path
End If

Sheets("Filtros").Visible = True
Arquivo = "C:Matriz_Megasena" & Sheets("Filtros").Range("AS9") & ".txt"
Sheets("Filtros").Select
Range("AQ9:AR800").Select
Set fso = CreateObject("Scripting.FileSystemObject")
Set DataFile = fso.CreateTextFile(Arquivo, True, Unicode)

If Selection.Rows.Count > 1 Then
    r1 = Range(Left(Selection.Address, InStr(Selection.Address, ":") - 1)).Row
Else
    r1 = Selection.Row
End If
If Selection.Columns.Count > 1 Then
    c1 = Range(Left(Selection.Address, InStr(Selection.Address, ":") - 1)).Column
Else
    c1 = Selection.Column
End If
For r = r1 To r1 + Selection.Rows.Count - 1
For c = c1 To c1 + Selection.Columns.Count - 1
DataFile.Write (ActiveSheet.Cells(r, c).Value & " ")
Next c
DataFile.Writeline
Next r

DataFile.Close
Set fso = Nothing
Dim RetVal
arquivo_para_abrir = "notepad.exe " & Arquivo
RetVal = Shell(arquivo_para_abrir, 1)
Sheets("Filtros").Range("AS9").ClearContents
Application.StatusBar = False
Sheets("Filtros").Range("Q21").Select
End Sub

A questao 2

Private Sub Workbook_Open()
If Environ("ComputerName") <> "Nome do Computador" Then

MsgBox "Computador nao autorizado"

End If
End Sub

A questao 3 vc consegue assim =SOMA((CONT.SE(linha a ser verificada;linha do resultado))) finalize com Ctrl+Shift+Enter

Em tempo o unico codigo que esta na planilha é o primeiro.

E como vc pode ver nao tem nenhuma novidade.

Código para verificar o nome da maquina não funciona, mesmo o nome da maquia estando correto, a mensagem sempre aparece.
Preciso de uma opção onde a macro busque pelo IP da maquina, e só abra a planilha se o IP da maquina for igual ao IP cadastrado no codigo.

Pedepano
o vba abriu normalmente aqui oq tem senha é algumas abas como a de menu

MPrudencio
tem mais códigos
o fato é que tem um monte de linhas em branco oq faz parecer que o modulo está vazio mas lá em baixo tem as macros

Pedepano
o vba abriu normalmente aqui oq tem senha é algumas abas como a de menu

MPrudencio
tem mais códigos
o fato é que tem um monte de linhas em branco oq faz parecer que o modulo está vazio mas lá em baixo tem as macros

aqui esta tudo bloqueado, não consigo exibir nenhum código, quando clico na opção editar código abre a tela de bloqueio do vba pedido a senha.

Sim o projeto VBA esta com senha.