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.