Script:

Dim strFolderPath, strPassword, objShell, objFolder, objFSO



' Caminho da pasta que você deseja proteger

strFolderPath = "C:\Caminho\Para\Sua\Pasta"



' Senha que você deseja usar

strPassword = "suaSenhaSegura"



Set objShell = CreateObject("Shell.Application")

Set objFSO = CreateObject("Scripting.FileSystemObject")



' Verifica se a pasta existe

If objFSO.FolderExists(strFolderPath) Then

    Set objFolder = objShell.NameSpace(strFolderPath)



    ' Cria um arquivo zip protegido por senha

    objShell.NameSpace(strFolderPath & ".zip").CopyHere objFolder.Items



    ' Aguarda a conclusão do processo de compactação

    Do Until objFSO.FileExists(strFolderPath & ".zip")

        WScript.Sleep 100

    Loop



    ' Exclui a pasta original

    objFSO.DeleteFolder strFolderPath, True



    ' Renomeia o arquivo zip para incluir a senha

    objFSO.MoveFile strFolderPath & ".zip", strFolderPath & "_" & strPassword & ".zip"



    MsgBox "A pasta foi protegida com senha e compactada como: " & strFolderPath & "_" & strPassword & ".zip"

Else

    MsgBox "A pasta especificada não existe."

End If

Como Executar o Script:

1. Abra o Bloco de Notas no seu computador.
2. Copie o código acima e cole no Bloco de Notas.
3. Substitua "C:\Caminho\Para\Sua\Pasta" pelo caminho real da pasta que você deseja proteger.
4. Substitua "suaSenhaSegura" pela senha que você deseja usar.
5. Salve o arquivo com a extensão .vbs, por exemplo, ProtegerPasta.vbs.
6. Clique duas vezes no arquivo .vbs que você salvou para executar o script.
7. Uma mensagem será exibida informando que a pasta foi protegida com senha.