Ir para conteúdo

Mfpinheiro

  • Postagens

    14
  • Desde

  • Última visita

Perfil

  • Estado
    Rio Grande do Sul
  • Sexo
    masculino
  • Escolaridade
    Superior incompleto
  • Área Profissional
    Administração
  • Nível Profissional
    Auxiliar Geral
  1. Mfpinheiro

    Macro Bloqueio "X" e Imprimir

    Olá. Tenho a necessidade de executar o bloqueio da impressão no modo padrão do Excel, somente pelo meu botão e também que seja bloqueado o fechamento da planilha pelo: " arquivo fechar ou pelo " X", somente via botão. Essa seria a minha necessidade. Desde já agradeço.
  2. Mfpinheiro

    Macro Bloqueio "X" e Imprimir

    Olá! Já vinha utilizando a situação de bloqueio de Impressão, mas agora tenho a necessidade de bloqueio do "x" ou fechar arquivo. Com a inclusão da segunda situação de macro( "x"), estes dois juntos do modo que está não funciona o comando de fechar a planilha via botão, creio que seja porque está repetido o comando " Private Sub Workbook_BeforePrint(Cancel As Boolean)", pois quando utilizo somente a segunda situação em outra planilha, esta funciona. Segue o que tenho: ' este vai bloquear o menu Imprimir Private Sub Workbook_BeforePrint(Cancel As Boolean) If Range("B1").Value = "" Then MsgBox ("Click no Botão para executar todo o processo!! Imprimir e gravar. Obrigado!"), vbCritical, "Menu Bloqueado por Fabiano !!!" Cancel = True End If End Sub __________________________________________________________________________ 'este vai bloquear o (x) ou fechar planilha Option Explicit Public NoEvents As Boolean Private Sub Workbook_BeforeClose(Cancel As Boolean) If NoEvents Then Exit Sub MsgBox "Para fechar utilize o Botão na Planilha!", vbInformation + vbOKOnly Cancel = True End Sub ___________________________________________________________________________ Sub BotaoFecheMe() 'Redefine a Variável ThisWorkbook.NoEvents = True 'Suprime a mensagem de alerta para Salvar Application.DisplayAlerts = False 'Salva o Arquivo ThisWorkbook.Close savechanges:=True Sheets("Fim").Select Range("A1").Select End Sub Obrigado!
×