Senha para Pasta com Arquivos

Olá. Poderá remover este topico para o lugar certo, pois não sabia onde poderia postar!

É possível criar uma senha de acesso quando crio uma pasta para organizar meus arquivos dentro? Existem pastas que gostaria que fossem privadas e só eu tivesse acesso para abrir, visto que outras pessoas costuma usar o meu PC.

Diva.pop.s escreveu:Olá. Poderá remover este topico para o lugar certo, pois não sabia onde poderia postar!

É possível criar uma senha de acesso quando crio uma pasta para organizar meus arquivos dentro? Existem pastas que gostaria que fossem privadas e só eu tivesse acesso para abrir, visto que outras pessoas costuma usar o meu PC.

Boa Tarde! Diva.pop.s

|- Antes de atribuir senha à essa pasta,procure ocultá-la. Muitos desconhecem esse 'artifício',que pode dispensar a criação de senhas.
|- Clique direito nessa pasta >> Propriedades.
|- Em "Atributos",marque a caixa "Oculto" >> Aplicar >> OK
|- Ps: Marque esse atributo,somente,à esta pasta!

Abs!

Puxa, legal....mas a pasta sumiu! Kd ela?? ..rsrs..no caso como faço p/ ver de novo??

Terei que ir no painel de controle>>pastas>> e ativar arquivos ocultos?

Existe um caminho, ou atalho, ou forma mais fácil p/ eu ter acesso a essa pasta? Visto que faço isso quase que diariamente. Sempre estou trabalhando com elas...

Diva.pop.s escreveu:Puxa, legal....mas a pasta sumiu! Kd ela?? ..rsrs..no caso como faço p/ ver de novo??

Terei que ir no painel de controle>>pastas>> e ativar arquivos ocultos?

Boa Noite! Diva.pop.s

|- Clique em Iniciar >> Meu Computador >> Ferramentas >> Opções de pasta...
|- Selecione a aba "Modo de exibição".
|- Marque: Mostrar arquivos e pastas ocultos.
|- Caso surja uma mensagem,confirme!
|- Clique em Aplicar >> OK.
|- Ps: Para quem acessa,constantemente,essa pasta não é prático! Verei se encontro algum batch,que facilite isso.

Abs!

Então, é esse caminho mesmo que eu encontrei, porém é muito trabalhoso, pois eu acesso a pasta diariamente...mas achei muito bacana a ideia..se tivesse um jeito de criar um atalho p/ isso..ou outra coisa...

Diva.pop.s escreveu:Então, é esse caminho mesmo que eu encontrei, porém é muito trabalhoso, pois eu acesso a pasta diariamente...mas achei muito bacana a ideia..se tivesse um jeito de criar um atalho p/ isso..ou outra coisa...

Olá! Amiga Diva.pop.s

|- Consegui alterar um script que pode atender aos seus anseios.

Código:

Message = "To work correctly, the script will close" & vbCR
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR & vbCR
Message = Message & "Continue?"

X = MsgBox(Message, vbYesNo, "Notice")

If X = 6 Then
On Error Resume Next


On Error Resume Next

Dim WSHShell, n, p, itemtype, MyBox
Set WSHShell = WScript.CreateObject("WScript.Shell")

p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"

itemtype = "REG_DWORD"

n = WSHShell.RegRead (p)
errnum = Err.Number

if errnum <> 1 then

   WSHShell.RegWrite p, 2, itemtype
End If

If n = 2 Then
  WshShell.RegWrite p, 1, itemtype
  MyBox = MsgBox("Show Hidden Folder MinhaPasta is now ENABLED", 64, "Hidden MinhaPasta")
End If

If n = 1 Then
  WshShell.Regwrite p, 2, itemtype
  MyBox = MsgBox("Show Hidden Folder MinhaPasta is now DISABLED", 64, "Hidden MinhaPasta")
End If

Set WshShell = Nothing

On Error GoTo 0

For Each Process in GetObject("winmgmts:"). _
   ExecQuery ("select * from Win32_Process where name='explorer.exe'")
  Process.terminate(0)
Next

MsgBox "Finished." & vbcr & vbcr , 4096, "Done"

Else

MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"

End If

|- O script foi desenvolvido para ocultar e desocultar todas as pastas. Mas consegui modificá-lo para ações pontuais.
|- Observe cuidadosamente as linhas do script.
|- Salve-o no Bloco de Notas e onde estiver escrito "MinhaPasta",digite o nome da pasta que queira ocultar.
|- Não pode haver erros e salve o script com o nome showhidden.vbs
|- Em Arquivos do tipo,coloque Todos os arquivos.
|- Encaminhe esse arquivo ( .vbs )ao desktop!
|- Pronto! Agora basta executá-lo para ocultar e desocultar sua pasta.
|- Não esqueça de colocar sua pasta,com o atributo oculto,ao utilizar o script.

Abs!

Olha, eu criei uma pasta de teste (com arquivos dentro)de nome "ArquivosObs". Modifiquei o script como vc pediu. E fiz tudo como vc pediu. Colquei o atributo da pasta "oculto". Mas Ao executar o script, acontece:

1- aparece essa cx e eu clico em sim!



2- aparece outra cx e eu clico em sim!

3- Todos os icones do desktop somem e fica parado um tempão só com a img do papel de parede

4- daí eu tenho de desligar o PC no Botão mesmo

5- Qnd Ligo o PC de novo, a função do script já está sendo executada, ou seja, os arquivos ficam ocultos ou não.

6- Detalhe, todas as pastas ocultas do PC aparecem, e não apenas a minha.

Veja, por favor, como ficou o script modificado por mim, e a img do script salvo no desktop . Se fiz algo errado:



Message = "To work correctly, the script will close" & vbCR
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR & vbCR
Message = Message & "Continue?"

X = MsgBox(Message, vbYesNo, "Notice")

If X = 6 Then
On Error Resume Next


On Error Resume Next

Dim WSHShell, n, p, itemtype, MyBox
Set WSHShell = WScript.CreateObject("WScript.Shell")

p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"

itemtype = "REG_DWORD"

n = WSHShell.RegRead (p)
errnum = Err.Number

if errnum <> 1 then

WSHShell.RegWrite p, 2, itemtype
End If

If n = 2 Then
WshShell.RegWrite p, 1, itemtype
MyBox = MsgBox("Show Hidden Folder ArquivosObs is now ENABLED", 64, "Hidden ArquivosObs")
End If

If n = 1 Then
WshShell.Regwrite p, 2, itemtype
MyBox = MsgBox("Show Hidden Folder ArquivosObs is now DISABLED", 64, "Hidden ArquivosObs")
End If

Set WshShell = Nothing

On Error GoTo 0

For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next

MsgBox "Finished." & vbcr & vbcr , 4096, "Done"

Else

MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"

End If






* Mas realmente o script funcionou, p/ mim ficou muito bom assim, não tem problema aparecer as outras pastas ocultas não..só que o PC trava antes de o script funcionar..daí tenho de ficar desligando a força e ligar de novo o PC. Só ai que o PC volta com script funcionando.

Boa Tarde! Diva.pop.s

Diva.pop.s escreveu:* Mas realmente o script funcionou, p/ mim ficou muito bom assim, não tem problema aparecer as outras pastas ocultas não..só que o PC trava antes de o script funcionar..daí tenho de ficar desligando a força e ligar de novo o PC. Só ai que o PC volta com script funcionando.

|- Estranho,pois no meu computador existe esse lag,mas é normal que isso ocorra,num curto intervalo.
|- Não vejo erro no seu script,quanto à isso.
|- Recomendo,não desligar o computador e quando houver o desaparecimento dos ícones,vá ao Gerenciador de tarefas e estabeleça "Nova tarefa" à ser carregada.
|- Abra o Gerenciador de tarefas. ( ctrl+alt+del )
|- Clique na aba "Aplicativos".
|- Clique em "Nova tarefa..."
|- Digite na caixa: explorer.exe
|- Clique OK.
|- Ps: Informe os resultados!

Diva.pop.s escreveu:* Mas realmente o script funcionou, p/ mim ficou muito bom assim, não tem problema aparecer as outras pastas ocultas não..

|- Acho que isso está ocorrendo,por ter configurado à sua pasta e as demais,com o atributo "oculto".

Abs!

Perfeito! Agora sim deu certo. Qnd executo o script e os icones desaparecem e fica só o papel de parede, eu aciono ctrl+alt+del e digito "explorer.exe". Dando ok, volta o desktop normal, inclusive com a função do script executada..e isso tudo bem rapidinho..rs.

Olha, mais umas ´duvidas bobas de principiante:

1- Vou utilizar isso com frequencia, MAS NÃO EXATAMENTE TODOS OS SANTOS DIAS. Apenas qnd necessário. Esse processo pode danificar o S.O do PC? Tipo, dar um "curto" ou etc.?

2- trabalhar com o PC com todos os arquivos ocultos "ativados" pode ser um risco? Digo por causa de virus..ou limpeza com aplicativos q tenho.. e talz..

[quote="joram"]Boa Tarde! Diva.pop.s

Diva.pop.s escreveu:

Diva.pop.s escreveu:* Mas realmente o script funcionou, p/ mim ficou muito bom assim, não tem problema aparecer as outras pastas ocultas não..

|- Acho que isso está ocorrendo,por ter configurado à sua pasta e as demais,com o atributo "oculto".

Abs!

Sim, mas aí no caso, como devo colocar então?

Olá! Diva.pop.s



|- Estava referindo-me à isto! Onde,somente,a pasta que queira ocultar deve receber esse atributo.
|- Amiga! Seu computador está seguro,mesmo com as pastas 'desocultadas'.
|- Lembre que vc tem o WinPatrol sempre vigilante.

Diva.pop.s escreveu:1- Vou utilizar isso com frequencia, MAS NÃO EXATAMENTE TODOS OS SANTOS DIAS. Apenas qnd necessário. Esse processo pode danificar o S.O do PC? Tipo, dar um "curto" ou etc.?

|- Não irá danificar o PC.

Diva.pop.s escreveu:2- trabalhar com o PC com todos os arquivos ocultos "ativados" pode ser um risco? Digo por causa de virus..ou limpeza com aplicativos q tenho.. e talz..

|- A função de ocultar diretórios,não à livrará da ação nefasta ocasionada por algum malware.
|- Outra coisa! Não haverá necessidade de sempre digitar "explorer",no GT,pois essa tarefa já ficou memorizada,dispensando nova digitação.

Abs!

Então, realmente a pasta estava marcada em atributos "aplicar alterações a estas pastas, subpastas e arquivos". Então eu marquei a "somente a esta pasta"..mas ainda continua aparecendo todos os outros arquivos do Sistema ocultos. Enfim..de qlqr formar, ficou muiiiito bom mesmo o seu script..melhor do que eu queria com a senha. Estou satisfeita! Vc é fera mesmo. Parabéns!

Olá! Diva.pop.s

|- Não sei não minha amiga,mas acho que sua pasta possui nome que pode induzir à esse efeito.
|- Renomeie sua pasta para "DV_PS" e substitua lá no script. Verifique o resultado!
|- Ps: Não coloque aspas ao digitar,e respeite a que está no script.

Abs!

Fiz o que vc disse e continua aparecendo todos..então, exclui e criei uma nova pasta com esse nome q vc indicou, e marquei atributo oculto "somente esta pasta". Mudei o script..e mesmo assim..os outros ocultos aparecem juntos..

* Mas no seu PC não aparecem todos, apenas a pasta marcada???


Message = "To work correctly, the script will close" & vbCR
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR & vbCR
Message = Message & "Continue?"

X = MsgBox(Message, vbYesNo, "Notice")

If X = 6 Then
On Error Resume Next


On Error Resume Next

Dim WSHShell, n, p, itemtype, MyBox
Set WSHShell = WScript.CreateObject("WScript.Shell")

p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"

itemtype = "REG_DWORD"

n = WSHShell.RegRead (p)
errnum = Err.Number

if errnum <> 1 then

WSHShell.RegWrite p, 2, itemtype
End If

If n = 2 Then
WshShell.RegWrite p, 1, itemtype
MyBox = MsgBox("Show Hidden Folder DV_PS is now ENABLED", 64, "Hidden DV_PS")
End If

If n = 1 Then
WshShell.Regwrite p, 2, itemtype
MyBox = MsgBox("Show Hidden Folder DV_PS is now DISABLED", 64, "Hidden DV_PS")
End If

Set WshShell = Nothing

On Error GoTo 0

For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next

MsgBox "Finished." & vbcr & vbcr , 4096, "Done"

Else

MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"

End If

Olá! Diva.pop.s

|- O script está correto!

-/-

|- Agora,algumas perguntas:

|- <1> Essa pasta DV_PS se localiza no desktop? ( Não serve atalho! )
|- <2> Nas "Configurações avançadas",vc assinalou o botão Não mostrar pastas e arquivos ocultos ? ( Deve estar assinalado! )

Abs!

- <1> Essa pasta DV_PS se localiza no desktop? ( Não serve atalho! )

Não, ela foi criada dentro de outra pasta no disco D:

|- <2> Nas "Configurações avançadas",vc assinalou o botão Não mostrar pastas e arquivos ocultos ? ( Deve estar assinalado! )

Sim, marquei certo, porém toda vez que executo o script, se eu for lá no "Configurações avançadas", ele vai estar alterado conforme o scripit.


Conclusão, fiz agora diferente, seguir esses passos que vc citou, e com a pasta que criei e deixei no desktop. Continua do mesmo jeito....

Diva.pop.s escreveu:- <1> Essa pasta DV_PS se localiza no desktop? ( Não serve atalho! )

Não, ela foi criada dentro de outra pasta no disco D:

|- <2> Nas "Configurações avançadas",vc assinalou o botão Não mostrar pastas e arquivos ocultos ? ( Deve estar assinalado! )

Sim, marquei certo, porém toda vez que executo o script, se eu for lá no "Configurações avançadas", ele vai estar alterado conforme o scripit.


Conclusão, fiz agora diferente, seguir esses passos que vc citou, e com a pasta que criei e deixei no desktop. Continua do mesmo jeito....

Olá! Diva.pop.s

|- Então recomendo deixar assim mesmo,pois não quero alterar o script. Onde uma instrução incorreta pode 'bugar' seu computador.
|- Gostou do Avatar que lhe disponibilizei? rsr...

Abs!

Sim claro, é melhor deixar o script do jeito q está mesmo..ficou ótimo..muito melhor do que eu queria!Vlw.

Quanto ao Avatar..é isso ae..gostei sim...nem tive tempo de organizar meu perfil aqui, mas deixa passar essas provas agora que eu arrumo tudo..rs. Vc pegou lá no blog?

Diva.pop.s escreveu:Sim claro, é melhor deixar o script do jeito q está mesmo..ficou ótimo..muito melhor do que eu queria!Vlw.

Quanto ao Avatar..é isso ae..gostei sim...nem tive tempo de organizar meu perfil aqui, mas deixa passar essas provas agora que eu arrumo tudo..rs. Vc pegou lá no blog?

Olá! Diva.pop.s

|- 'Printei' sua imagem lá no Fórum do Baboo,ao qual fui Moderador.

Abs!

Sim, eu lembro que vc já me ajudou uma vez lá..e deu tudo certo! Agora vc está por aqui. Que bom que continua ajudando outras pessoas com o seu conhecimento de informática. Deus o abençoe por isso. Desejo Sucesso para que este fórum dê muito certo. Mais para frente vou fazer o post no meu blog indicando este fórum como uma excelente ferramente de soluções de problemas com o PC e segurança também. Ah, depois vou colocar o banner na lateral do blog...Vlw.