Arquivo só deverá abrir com a macro habilitada

Senhores,
Desenvolvi um arquivo com macro pelo vídeo aula na internet (estou aprendendo).
Ele abre sempre numa tela de "Userform" e essa tela contém 2 campos para digitar: "Usuário" e "Senha", e 3 Botões: "Entrar", "Sair" e "Cadastrar Novo usuário",
Somente após digitar o nome do Usuário e Senha é que as planilhas aparecem.

O meu PROBLEMA é que quando o PC está com a macro desabilitado este arquivo abre normalmente, dando acesso a qualquer Usuário as planilhas.

O que eu DESEJO é que mesmo com macro desablilitado o arquivo abra SOMENTE na tela de "Userform" ou se não for possível que ele abra SOMENTE numa planilha virgem com a informação: "Este arquivo só abre com a macro habilitado"

Um abraço grande

Boa noite!!!


Crie uma guia chamada "Menu"

Rode a macro abaixo, depois save o arquivo (se possível no formato macro xlsm), depois mande para as pessoas que deseja, neste caso via excel (sem macro habilidada), as guias ficaram ocultas.

Código:

Sub AleVBA_1100()
    Dim s As Worksheet
    Const wsKeep As String = "Menu"
   
    Worksheets(wsKeep).Visible = True 
    For Each s In Worksheets
        If s.Name <> wsKeep Then s.Visible = xlSheetVeryHidden 
    Next s
   
End Sub

Obs: Esse meio só priva os usuários leigos em VBA, pois além do projeto VBA está sem senha, se rodar a mesma macro alterando s.Visible = xlSheetVeryHidden , True, as guias apareceram.

Att

alexandrevba escreveu:

Boa noite!!!


Crie uma guia chamada "Menu"

Rode a macro abaixo, depois save o arquivo (se possível no formato macro xlsm), depois mande para as pessoas que deseja, neste caso via excel (sem macro habilidada), as guias ficaram ocultas.

Código:

Sub AleVBA_1100()
    Dim s As Worksheet
    Const wsKeep As String = "Menu"
    
    Worksheets(wsKeep).Visible = True  
    For Each s In Worksheets
        If s.Name <> wsKeep Then s.Visible = xlSheetVeryHidden  
    Next s
    
End Sub

Obs: Esse meio só priva os usuários leigos em VBA, pois além do projeto VBA está sem senha, se rodar a mesma macro alterando s.Visible = xlSheetVeryHidden  , True, as guias apareceram.

Att

Obrigado pelo retorno Alexandrevba,
vou seguir suas orientações, espero que dê certo, semana que vem que vou poder fazer essa inclusão e te aviso, obrigado

Boa noite!!

Ok, eu fico.

Att