Jump to content

LF iziplay & dois _SOMA 1,7,13 1.0.0

   (0 reviews)

2 Screenshots

About This File

(1) Planilha atendendo pedido

(2) Está conforme o postado, ou seja, não fiz nenhuma adição ou modificação

(3) Caso encontre algum erro, por favor me avise

 

 

  • Thanks 1

User Feedback

Recommended Comments

Resolvi dar uma olhada nela...

Há 2 pequenos ajustes que não comprometem a planilha

 

(1) Vínculo com outras fontes de dados: 

      Caso queira regularizar, na aba Plan1 :

      - Na 1ª figura (dois invertido) você pode clicar com o botão direito do mouse e Atribuir Macro para dois_Rotina_ND

      - Na 2ª figura (dois normal) você pode clicar com o botão direito do mouse e Atribuir Macro para dois_ProteçãoAba

(2) Caixa de diálogo CRÉDITOS ("Não altere o NOME desta planilha !!!"): 

      Caso queira regularizar, substitua a Macro Private Sub Workbook_Open() do Objeto  EstaPasta_de_trabalho por:

Spoiler

 

Private Sub Workbook_Open()
mdidois = True
plandois = "LF iziplay & dois _SOMA 1,7,13 v1.0.xlsm"
planatual = ActiveWorkbook.Name
If planatual <> plandois Then
  mdidois = False
  mbtipo = vbOKOnly + vbCritical
  mbtitulo = "Créditos"
  mbmensa = "Por favor," & Chr(13) & "Não altere o NOME desta planilha !!!" & Chr(13) & plandois
  mbMsgBox = MsgBox(mbmensa, mbtipo, mbtitulo)
'  Workbooks(planatual).Close savechanges:=False
End If
End Sub

 

 

PS: Após as modificações sugiro salvar, fechar e fazer backup.

 

Link to comment
Share on other sites

×
×
  • Create New...