Ir ao conteúdo
  • Cadastre-se

edibuck

Membros Juniores
  • Total de itens

    8
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

0

Sobre edibuck

  • Data de Nascimento 15-11-1984 (34 anos)

Informações gerais

  • Cidade e Estado
    Guarulhos
  1. 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
  2. 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!
  3. 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?
  4. 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
  5. 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é?
  6. 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
  7. Boa Pessoal! Estive em outro forum fazendo essa mesma pergunta mas não obtive uma resposta! gostaria de saber se podem me ajudar! De forma resumida, quero entender o porque que os clientes directaccess acessam completamente a rede interna da empresa incluindo servidores, ou seja, tudo o que se imaginar! mas do contrario, somente o servidor que destinei ser o Servidor Directaccess, somente ele acessa os clientes directaccess! incrível né??? estou no meu DC WS2012R2, consequentemente ele é o Controlador de Domínio e não o servidor DirectAccess e não acessa esses clientes! Já tentei de tudo! a unica coisa que chegou a resolver foi implantar o DirectAccess junto com o DC, mas deu muitos problemas para os usuários que acessam esse servidor via RDP devidor ficar dando problema no serviço de RPC do servidor! mas enfim! alguém consegue dar uma luz ai?? rsrs Meu objetivo é fazer meu DC se comunicar com esse cliente justamente para fazer backup de arquivos fora da empresa! ele está conectado via IPHTTPS, não sei se esse método afeta alguma coisa!
  8. Pessoal! beleza?? eu tenho a seguinte placa mãe: Placa Mãe: Geforce 6100sm-m da ECS Ram: 2 pents de 512MBs 667Mhz Dual channel Video Externo: Geforce 9500 GT ZOTAC A minha pergunta é se ha como alterar o barramento da PCI-Express de x8 para x16, como verificado, o barramento se chama x16 mas só trabalha a x8, tem como mudar? Thanks.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×