Este fórum está sendo desativado

[Amado]

Viva gfranco (ou demais utilizadores)

Aproveitando o ter-se colocado à disposição de mais qualquer necessidade, venho apresentar mais uma.
Um dia após ter colocado o ficheiro à disposição dos utilizadores, começaram a surgir as questões; pensava que tinha criado todas as formas de impedir os mesmos de estragarem dados já registados. Como tal, todos os botões que criei através das macros terminam sempre com a proteção das folhas/planilhas exceto nas 2 que a seguir indico:

- utilizadores
- Existências

Nestas 2 planilhas permiti que os utilizadores retirem a proteção através do botão “Novos registos” mas acontece que se esquecem de clicar no outro botão (“Fim dos registos”) deixando a planilha desprotegida para quem vem a seguir.

Pretendia (através de VBA) que ao encerrar o ficheiro, as duas planilhas fossem protegidas com a password comum a todas as planilhas (“Inclu”).

Obs. – Já consegui que o Excel, ao abrir, fosse através da planilha “Indíce” mas parece que existe algum conflito pois nem sempre consigo abrir o Excel.

Desde já obrigado pela ajuda
Amado

P.S. - Já agora um pedido de esclarecimento: na planilha "Indíce" coloquei um botão que permite desligar um ficheiro de música (Windows Media Player) mas que, quase sempre, deixa de ter um aspeto de botão para passar a um quadrado grande e preto. Deve-se a quê e como evitar?

[alexandrevba]

Boa tarde!!
Digite o nome ou índice da guia Sheets(1) e Sheets(2), depois digite a senha desejada.
Tente.

Código: Selecionar todos

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Fonte: http://www.ozgrid.com/VBA/excel-macro-protected-sheet.htm
    Sheets(1).Protect Password:="Senha1", _
    UserInterFaceOnly:=True
    Sheets(2).Protect Password:="Senha2", _
     UserInterFaceOnly:=True
End Sub

Att

[Amado]

Caro alexandrevba

Muito obrigado pela solução que me facultou; era isso mesmo.

Amado