Este fórum está sendo desativado

[AlanBC]

Olá..
Amigos me de uma ajuda aqui.
Qro uma macro pra proteger e desproteger uma planilha no unico botão, de modo q ao clicar se estiver desprotegida ira proteger e vice versa. Uso dois botões distintos:
ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="12345"
Acho em apenas 1 botao vai ficar melhor.
Abraços

[gfranco]

Amigo,
seria +- isso o seu objetivo ?

[gfranco]

**
Senha deste modelo=1234 (pode ser vista/alterada) no módulo.

[AlanBC]

gfranco... muito obrigado. basicamente é isso msm!
o detalhe é q a senha fica visível na digitação. mas é isso aí.... agora, é possível fazer um código com as funções que já uso para cada botão?
ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="12345"
obrigado
abraços.

[gfranco]

gfranco... muito obrigado. basicamente é isso msm!
o detalhe é q a senha fica visível na digitação. mas é isso aí.... agora, é possível fazer um código com as funções que já uso para cada botão?
ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="12345"
obrigado
abraços.

Se o objetivo é aplicar uma máscara à digitação da senha eu sugiro 02 caminhos (01 mais simples e ou outro nem tanto)
Mais simples:
Crie um userform com uma textbox que receberá a senha. Para esse textbox, atribua um asterisco (por exemplo) à sua propriedade "PASSWORDCHAR"

Um pouco mais complicado:
https://www.tomasvasquez.com.br/blog/mi ... ara-senha/

Obs:
Para esse segundo método eu sugiro adequação para sistemas x86/x64:
https://docs.microsoft.com/pt-br/office ... -of-office

[AlanBC]

gfranco, mais uma vez obrigado por responder.
mas acho que não vou por estes caminhos não... veja bem
botao 1 tenho esta macro:

Código: Selecionar todos

Sub proteger()
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFiltering:=True, UserInterFaceOnly:=True, Password:="12345"
End Sub

botao 2 tenho esta outra macro:

Código: Selecionar todos

Sub desproteger()
    ActiveSheet.Unprotect
End Sub

Queria simplesmente juntar essas duas macros aí numa só, fazer uma macro somente. Simples assim. É somente isso. Ao invés de ter 2, teria somente uma com estas mesmas funções.
Tentando seguir esta ideia, é possível?

[osvaldomp]

Veja se aproveita.
Os dois códigos abaixo alternam Protege/Desprotege. O segundo altera também o texto do Botão que dispara a macro.

Código: Selecionar todos

Sub ProtegeDesprotegev1()
 If ActiveSheet.ProtectContents = True Then
  ActiveSheet.Unprotect Password:="12345"
 Else: ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
       True, AllowFormattingColumns:=True, AllowFiltering:=True, UserInterFaceOnly:=True, Password:="12345"
 End If
End Sub

Código: Selecionar todos

Sub ProtegeDesprotegev2()
 If ActiveSheet.ProtectContents = True Then
  ActiveSheet.Unprotect Password:="12345"
  ActiveSheet.Buttons(Application.Caller).Caption = "PROTEGER"
 Else: ActiveSheet.Buttons(Application.Caller).Caption = "DESPROTEGER"
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
       True, AllowFormattingColumns:=True, AllowFiltering:=True, UserInterFaceOnly:=True, Password:="12345"
 End If
End Sub

[AlanBC]

Rapaz... q top tmb!!! Vcs são d+ msm!!!! Muito obrigado Osvaldo. Era isso aí que queria.
Show!!!
Abraços.