Notifications
Clear all

Redimensionar janela - proibido

7 Posts
2 Usuários
0 Reactions
2,040 Visualizações
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Bom dia!

Por gentileza, alguém poderia me ajudar a resolver uma problema?

Como faço para bloquear o redimensionamento da janela de uma planilha?

Os botões maximizar e minimizar não devem funcionar mesmo que o usuário clique neles.

O único botão que vai funcionar é o fechar.

O usuário que abrir a planilha não vai conseguir redimensionar a janela (o usuário vai usar a planilha no
tamanho pré-definido anteriormente pelo criador da planilha).

Em anexo, segue uma imagem contendo mais detalhes.

Muito obrigado pela atenção e ajuda.

 
Postado : 08/01/2018 7:01 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Tente algo assim..

Option Explicit


Private Sub Workbook_Open()

    Const iHEIGHT   As Integer = 300 'Altura
    Const iWIDTH    As Integer = 500 'Largura

    With Windows(Me.Name)

        .WindowState = xlNormal
        .Height = iHEIGHT
        .Width = iWIDTH

    End With

End Sub

Não testado!!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/01/2018 7:11 am
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Olá, vou passar mais detalhes sobre o que eu gostaria de fazer.

Quando o usuário abrir a planilha, ele não vai poder redimensionar (maximizar, minimizar, aumentar a largura ou altura), deve usar o tamanho que eu escolher.

O único botão que o usuário vai poder usar é o fechar (botão fechar em vermelho).

Será que isso é possível?

Muito obrigado.

 
Postado : 09/01/2018 6:23 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Você testou meu código?

Quanto aos botões, eu sugiro usar o editor de ribbons, mas eu não sei se vai ficar da forma como pretende.

http://www.contextures.com/excelribbonaddcustomtab.html
https://www.rondebruin.nl/win/s2/win003.htm

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/01/2018 6:38 am
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Olá, referente ao seu código.

Eu testei mas não deu certo.

Por essa razão eu postei uma imagem com mais detalhes sobre o assunto.

:(

 
Postado : 09/01/2018 8:47 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

O evento Open tem que ficar dentro do módulo de EstaPasta_de_trabalho.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/01/2018 9:43 am
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Sim, eu fiz isso mas não deu certo. :(

:( :( :( :(

 
Postado : 09/01/2018 10:27 am