Exibir apenas forms sem afetar outras pastas de trabalho (VBA)

Shura16 disse:

Cada planilha tem uma opção de ocultar. Basta clicar com o botão direito e em ocultar na mesma para fazer isso.

Se quiser fazer isso via código, eu não conheço VBA, mas você pode gravar um Macro para ver o código gerado e usar no meio do seu código.

Shura16 disse:

Ah, "tindi" !

Bom então o cenário muda. Creio não ser possível com VBA, pois o VBA precisa da aplicação que o roda.

O que você poderia fazer então é partir para uma linguagem de programação independente como o Visual Basic (de preferência com .NET Framework), e então utilizar a planilha em Excel como "base de dados".

Basole disse:

Veja se desta forma lhe atende:
O userform é aberto no modo modal, permitindo que voce possa ter acesso( interagir/ editar ), outras pasta de trabalho
[code=vb]
' No modulo de EstaPasta_de_Trabalho

Private Sub Workbook_Open()
Windows("AQUI_o_nome_da_sua_Pasta_de_Trabalho.xlsm").Visible = False
Application.WindowState = xlMinimized
UserForm1.Show vbModeless
End Sub

'No modulo do UserForm

Private Sub CommandButton1_Click()
Unload UserForm1
Application.Quit
End Sub
[/code]

Basole disse:

Bom pra mim aqui funciona perfeitamente desta forma:
ThisWorkbook.Windows(ThisWorkbook.Name).Visible = False

Mas tente então, como voce estava fazendo " Application.Visible = False "
E acrescentando a abertura do userform de forma modal.
[code=vb]
PrivateSub Workbook_Open()
Application.Visible = False
UserForm1.Show vbModeless
End Sub
[/code]

Outra opção seria usar api (* caso o seu office ñ seja 64 Bits), para inserir um botao minimizar/maxminizar, no userform p/ voce poder abrir outros arquivos:
(Este codigo tbm permite voce ajustar manualmente o tamanho do form ativo)
Em um modulo:
[code=vb]
Option Explicit
Public Declare Function FindWindowA& Lib "User32" (ByVal lpClassName$, ByVal lpWindowName$)
Public Declare Function GetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&)
Public Declare Function SetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)

' Déclaration des constantes
Public Const GWL_STYLE As Long = -16
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_FULLSIZING = &H70000

'Attention, envoyer après changement du caption de l'UF
Public Sub InitMaxMin(mCaption As String, Optional Max As Boolean = True, Optional Min As Boolean = True _
, Optional Sizing As Boolean = True)
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, mCaption)
If Min Then SetWindowLongA hWnd, GWL_STYLE, GetWindowLongA(hWnd, GWL_STYLE) Or WS_MINIMIZEBOX
If Max Then SetWindowLongA hWnd, GWL_STYLE, GetWindowLongA(hWnd, GWL_STYLE) Or WS_MAXIMIZEBOX
If Sizing Then SetWindowLongA hWnd, GWL_STYLE, GetWindowLongA(hWnd, GWL_STYLE) Or WS_FULLSIZING
End Sub
[/code]
E no modulo do seu userform no evento initialize:
[code=vb]
Private Sub UserForm_Initialize()
InitMaxMin Me.Caption, True, True, True
End Sub
[/code]

A segunda usando o Application.visible faz justamente o que eu não quero, esconde o exce, porém não se pode mais abrir ou mexer em nenhuma outra pasta de trabalho, afinal nesse caso o excel como um todo é ocultado e não só a pasta de trabalho que tem os userforms.

Basole disse:

Veja se desta forma lhe atende:
O userform é aberto no modo modal, permitindo que voce possa ter acesso( interagir/ editar ), outras pasta de trabalho
[code=vb]
' No modulo de EstaPasta_de_Trabalho

Private Sub Workbook_Open()
Windows("AQUI_o_nome_da_sua_Pasta_de_Trabalho.xlsm").Visible = False
Application.WindowState = xlMinimized
UserForm1.Show vbModeless
End Sub

'No modulo do UserForm

Private Sub CommandButton1_Click()
Unload UserForm1
Application.Quit
End Sub
[/code]