edibuck

2 minutos atrás, CasaDoHardware disse:

Faz um if de acordo com o criterio.

 

Se o usuario tiver acesso total você inibe o codigo se for para bloquear você executa

 

if textboxusuario = usuario bloqueado then

 

codigo de bloqueio

 

end if

 

Sim! de certa forma eu entendi sua colocação... mas neste caso, o que ocorre em específico é o seguinte...

 

O código abaixo que vou postar, eu o utilizo para bloquear em algumas planilhas dentro da Pasta de Trabalho as funções para que ninguém possa roubar dados da planilha, mas em algumas planilhas!!!! outras pode ser copiadas por completo... mas tem o dono da empresa que eu poderia fazer um usuário e deixa-lo com permissão para tudo em todas as planilhas! só não sei como eu poderia fazer isso! juntando com as ideias que encontramos no youtube com varias pessoas ensinando a criar login e senha, não sei onde eu faria essa junção!...

 

 

 

 

 

 

 

Em EstaPasta_de_trabalho, segue o código

 

Private Sub Workbook_Open()

 

On Error Resume Next

Application.ScreenUpdating = False

Worksheets("ordem frente").Visible = True

Worksheets("PERDAS").Visible = True

Worksheets("cadastro de ligas").Visible = True

 

Application.ScreenUpdating = True

End Sub

 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

 

Application.ScreenUpdating = False

Worksheets("ordem frente").Visible = xlVeryHidden

Worksheets("PERDAS").Visible = xlVeryHidden

Worksheets("cadastro de ligas").Visible = xlVeryHidden

Application.ScreenUpdating = True

ThisWorkbook.Save

 

Dim oCtrl As Office.CommandBarControl

 

          For Each oCtrl In Application.CommandBars.FindControls(ID:=21)

              oCtrl.Enabled = True

          Next oCtrl

 

          For Each oCtrl In Application.CommandBars.FindControls(ID:=19)

              oCtrl.Enabled = True

          Next oCtrl

 

          Application.CellDragAndDrop = True

          Application.OnKey "^c"

          Application.OnKey "^v"

          Application.OnKey "^x"

         

Select Case Application.CutCopyMode

    Case Is = xlCopy

        Application.CutCopyMode = True

    Case Is = xlCut

       Application.CutCopyMode = True

End Select

End Sub

 

Private Sub Worksheet_Activate()

 

Dim oCtrl As Office.CommandBarControl

 

          For Each oCtrl In Application.CommandBars.FindControls(ID:=21)

              oCtrl.Enabled = False

          Next oCtrl

 

          For Each oCtrl In Application.CommandBars.FindControls(ID:=19)

              oCtrl.Enabled = True

          Next oCtrl

         

          For Each oCtrl In Application.CommandBars.FindControls(ID:=22)

              oCtrl.Enabled = True

          Next oCtrl

         

          Application.CellDragAndDrop = False

          Application.OnKey "^c"

          Application.OnKey "^v"

          Application.OnKey "^{x}", ""

         

 

 

End Sub

 

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

Select Case Application.CutCopyMode

    Case Is = xlCopy

        Application.CutCopyMode = False

    Case Is = xlCut

       Application.CutCopyMode = False

End Select

End Sub

 

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

Select Case Application.CutCopyMode

    Case Is = xlCopy

        Application.CutCopyMode = False

    Case Is = xlCut

       Application.CutCopyMode = False

End Select

End Sub

 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = True Then

Cancel = True

MsgBox "A opção Salvar como encontra-se desativada. Utilize a função Salvar para guardar suas alterações"

End If

End Sub

 

 

CODIGO UTILIZADO NAS PLANILHAS DESBLOQUEADAS PARA TUDO....

 

Private Sub Worksheet_Activate()

Dim oCtrl As Office.CommandBarControl

 

          For Each oCtrl In Application.CommandBars.FindControls(ID:=21)

              oCtrl.Enabled = True

          Next oCtrl

 

          For Each oCtrl In Application.CommandBars.FindControls(ID:=19)

              oCtrl.Enabled = True

          Next oCtrl

 

          Application.CellDragAndDrop = True

          Application.OnKey "^c"

          Application.OnKey "^v"

          Application.OnKey "^x"

         

    

 

End Sub

 

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

Select Case Application.CutCopyMode

    Case Is = xlCopy

        Application.CutCopyMode = True

    

    Case Is = xlCut

       Application.CutCopyMode = True

    

End Select

End Sub

 

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

Select Case Application.CutCopyMode

    Case Is = xlCopy

        Application.CutCopyMode = True

     

    Case Is = xlCut

       Application.CutCopyMode = True

      

End Select

End Sub

 

 

E ESTES, SÃO PARA BLOQUEAR EM ALGUMAS PLANILHAS

 

Private Sub Worksheet_Activate()

 

Dim oCtrl As Office.CommandBarControl

 

          For Each oCtrl In Application.CommandBars.FindControls(ID:=21)

              oCtrl.Enabled = False

          Next oCtrl

 

          For Each oCtrl In Application.CommandBars.FindControls(ID:=19)

              oCtrl.Enabled = False

          Next oCtrl

 

          Application.CellDragAndDrop = True

          Application.OnKey "^{c}", ""

          Application.OnKey "^{v}", ""

          Application.OnKey "^{x}", ""

         

 

 

End Sub

 

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

Select Case Application.CutCopyMode

    Case Is = xlCopy

        Application.CutCopyMode = False

    Case Is = xlCut

       Application.CutCopyMode = False

End Select

End Sub

 

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

Select Case Application.CutCopyMode

    Case Is = xlCopy

        Application.CutCopyMode = False

    Case Is = xlCut

       Application.CutCopyMode = False

End Select

End Sub

Oi Pessoal...

 

Tenho pesquisado e venho aprendendo bastante sobre o VBA! até consegui montar um código para que possa bloquear o Copiar, colar e recortar e o "Salvar como" também!

E tenho aprendido também a criar um login e senha para acesso a Pasta de trabalho do excel para cada usuário! mas gostaria de saber agora, como posso conciliar a um usuário esse código mencionados acima, e deixar outro usuário como controle total da pasta de trabalho? 

 

Fico grato quem puder ajudar!

Boa Pessoal!!!

 

Venho aqui suplicar uma ajuda!! tenho pesquisado e muito na internet e vejo bastante o pessoal postar problemas com notebook Samsung com essa placa-mãe NP300e4c-AD2BR

E há posts de pessoas na internet e em outros fórum que citam a atualização da BIOS para a versão P04RAP porque dizem ser a única que resolve este problema! mas não há lugar algum que eu possa adquirir essa BIOS, alguém pode me ajudar?

Boa Pessoal,

Indo direto a pergunta...

 

Tenho 2 HDs fazendo o RAID 1 (Espelhamento) configurado e funcionando normalmente no Servidor, remover um dos HDs e instala-lo em um Workstation para incluir outros arquivos, isso pode gerar algum erro ou confusão na controladora do Servidor e correr o risco de perder os dados em ambos os HDs???? Ou se ao devolver ao Servidor, ele sincroniza os novos arquivos com o outro HD sem problemas??

 

Tenho certeza que essa pergunta é boa pra muita gente... hehehehehe

 

Espero muito a ajuda de vocês, se trata de um Servidor:

 

 

Dell T310

Controladora PERC H700

E ae Higor!!!

 

Quero formatar, mas quero formatar usando a restauração de fabrica do Windows 8 Original! inclusive, eu já estou bootando pelo pendrive normalmente! o problema é que ele abre aquela tela de "Opções Avançadas" a mesma que o Windows 8, 8.1 e 10 tem substituindo o antigo F8! e nessa tela nenhuma das opções possui alguma que faça a restauração! esquisito, né?

Boa Pessoa!

 

Estou pretendendo finalmente fazer o uso pela primeira vez do meu Pendrive que criei a anos atrás! mas não estou conseguindo fazer o restore!

 

Meu note está com um novo HD e eu consigo sim bootar com o Pendrive, mas só consigo entrar nas "Opções Avançadas" onde tem lá as opções que o Windows 8 oferece, de reparar inicialização, restaurar um ponto de verificação, usar prompt de comando... mas não aparece nada referente ao backup! já tentei todas as opções, nenhuma usa o pendrive que criei para restaurar a instalação de fabrica!

 

Meu pendrive tem 9,5GB usados, tem varios arquivos .WIM, e outros arquivos relacionados a Dell! acredito que seja feito por linha de comando o restore neste meu caso, mas não achei nada pesquisando, alguém pode me ajudar?

 

Dell Inspiron R14 5421

Windows Original: Windows 8 SL 64bits