Este fórum está sendo desativado

[Isnar]

Bom dia pessoal;

Estou com o seguinte problema, tenho uma planilha com um Userform de Login que estava ocultando corretamente as planilhas atrás e aparecendo somente o Userform para solicitar usuário e senha. Após vincular essa planilha a outra pasta de trabalho, essa planilha ao abrir mostra o Useform de login mas mostra todas as planilhas atrás, sendo possível até fechar o userform e trabalhar na planilha sem efetuar login. Alguém sabe como resolver isso?

Segue código:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets

If ws.Name <> "Menu" Then
ws.Visible = xlSheetVeryHidden

End If

Next ws


Application.Visible = True



End Sub

Private Sub Workbook_Open()

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = xlSheetVisible
Sheets("senha").Visible = xlSheetVeryHidden

Next ws

Application.Visible = False

UserForm1.Show

End Sub