Protegendo estrutura da pasta de trabalho

[Daniel]

Porque quando protejo com senha uma pasta de trabalho, protegendo também sua estrutura (para que não apareçam as guias de planilhas) ao abrir novamente o arquivo, a janela que se abre é muito pequena? Existe uma maneira de proteger a estrutura da planilha fazendo com que ao ser aberta a pasta de trabalho, a janela se abra no tamanho normal do excel?

[webmaster]

Daniel,

O que quer dizer com "janela muito pequena"? Minimizada? Restaurada?

Abraços

[Daniel]

Restaurada....ela aparece com cerca de 1/4 do tamanho da janela normal, o que impossibilita utilizar a planilha de forma adequada.

[betoacunha]

Olá

Experimente:

Na área de código da pasta de trabalho insira:

Private Sub Workbook_Open()
Application.WindowState = xlMaximized
End Sub

Abs

Beto Cunha

[Daniel]

Como não sou bom em VBA, gostaria de saber como faço para juntar o código existente em minha planilha e o código para que a planilha abra em janela maximizada.


Private Sub Workbook_Open()
'desativa a interrupção por "Esc" ou "Ctrl+Break"
Application.EnableCancelKey = xlDisabled
'data em que a planilha expira: 31/08/2010
If Date < DateSerial(2010, 8, 31) Then
MsgBox "Atenção: O prazo de validade desta planilha irá expirar dia 31/08/2010."
Else
MsgBox "O prazo de validade desta planilha expirou. Entre em contato com Daniel."
ActiveWorkbook.Close SaveChanges:=False
Worksheets("Menu Inicial").Select
Range("A1").Select
End If
End Sub

Código para abrir maximizada:
Private Sub Workbook_Open()
Application.WindowState = xlMaximized
End Sub

[André]

´

Código: Selecionar todos

Private Sub Workbook_Open()
'Maximiza a planilha
'------------------------
Application.WindowState = xlMaximized

'Faz todo o resto
'-------------------
'desativa a interrupção por "Esc" ou "Ctrl+Break"
Application.EnableCancelKey = xlDisabled
'data em que a planilha expira: 31/08/2010
If Date < DateSerial(2010, 8, 31) Then
MsgBox "Atenção: O prazo de validade desta planilha irá expirar dia 31/08/2010."
Else
MsgBox "O prazo de validade desta planilha expirou. Entre em contato com Daniel."
ActiveWorkbook.Close SaveChanges:=False
Worksheets("Menu Inicial").Select
Range("A1").Select
End If
End Sub