Com esse código as planilhas ficam "bloqueadas",
As planilhas ficam ocultas. OK
Mas como todos os botões da capa possuem um hiperlink, estes não funcionam.
As planilhas de acesso livre, via Hyperlink, mantenha essa condição e coloque os nomes delas no código Private Sub Workbook_BeforeClose para que não sejam ocultadas. Eu coloquei só a "CAPA", como exemplo, coloque as demais. Eu não entendo quase nada de VBA, ontem que comecei a ler alguma coisa sobre o assunto, enfim, não sei colocar o nome delas nesse código, eu tentei aqui dessa forma vide abaixo, porém deu erro.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "CAPA" "VENDAS SETEMBRO" "VENDAS OUTUBRO"Then ws.Visible = 2 'oculta as planilhas, exceto "CAPA" Next ws
Me.Save 'salva o arquivo (se não quiser salvar automático coloque um apóstrofo no início deste comando)
End Sub
as planilhas que desejo que sejam bloqueadas eu queria que ao clicar no botão aparecesse o box para incluir a senha, e se essa for digitada corretamente o usuário teria acesso.
É isso que o código faz. Você só precisa relacionar no código os nomes das planilhas e suas respectivas senhas, as quais deseja reexibir, como está comentado no código. Eu coloquei no código somente 4 planilhas como exemplo, ponto de partida. Eu copiei o código que me passou e testei na planilha DRE, eu não conseguia clicar na planilha, então desativei o hiperlink, atribui a macro ao botão, a planilha apareceu mas não consegui acessa-la pelo hiperlink.
Deu para entender?
Consegui entender sem dar! E você, deu pra entender?... kkkkk kkkkkkkkkkkkkkkk eu entendi sem dar também, só que devido ao conhecimento praticamente ZERO sobre o assunto eu não sei fazer, entendeu?